Вычисление корней квадратного уравнения

@nikkka · Регистрация: 10.09.2009

Студворк — интернет-сервис помощи студентам

Допустим я хочу написать функцию для вычисления корней квадратного уравнения. Она будет примерно такой

Pascal

function square(a:real;b:real;c:real): real;
var d : real;
otvet:string;
x1: real;
x2 :real;
begin
d:=b*b-4*a*c;
if d<0 then  begin writeln('No ansueres: D is less then zero!'); readln; halt; end;
x1:=((-b)+(sqrt(d)))/2*a;
x2:=((-b)-(sqrt(d)))/2*a;
square:=x1;
end;
begin
writeln(square(5,5,6) :4:2);
readln
end.

Но ведь у меня может быть дав ответа! А функции можно прировнять только или x1 или x2! Что делать в таком случеи?

Добавлено через 1 минуту

Сообщение от nikkka

Но ведь у меня может быть дав ответа!

Извените - не "дав" а "два".

@unick12345 · 22.09.2009, 17:30

можно попробовать повторно вызвать функцию но уже для второго корня, а функции передать типа признак (1 или 2) и по нему выдавать результат. чтото типа этого

Pascal

function square(a:real;b:real;c:real;i:integer): real;
var d : real;
otvet:string;
x1: real;
x2 :real;
begin
d:=b*b-4*a*c;
if d<0 then  begin writeln('No ansueres: D is less then zero!'); readln; halt; end;
x1:=((-b)+(sqrt(d)))/2*a;
x2:=((-b)-(sqrt(d)))/2*a;
if i=1 then
square:=x1;
if i=2 then
square:=x2;
end;
begin
writeln(square(5,5,6,1) :4:2);
writeln(square(5,5,6,2) :4:2);
readln
end.

@gloomy2 · 22.09.2009, 18:42

Упаковать в структуру примерно так:

Pascal

   ...
   type
      RootType = record
         x1 : real;
         x2 : real;
     end;
   ....
   function SquareRoot(a,b,c : real) : RootType;
   var
      roots : RootType; 
   begin
   ......
      roots.x1 := ....;
      roots.x2 := ....;
      SquareRoot := roots; 
   end;

Опции темы