Процедура SgRoot
Листинг 6.5. Процедура SgRoot
// решает квадратное уравнение
procedure SqRoot(a,b,c : real;
var xl,x2 : real;
var ok : boolean);
{ a,b,c — коэффициенты уравнения x1,x2 — корни уравнения ok = True — решение есть ok = False — решения нет }
var
d : real; // дискриминант
begin
d:= Sqr(b) - 4*a*c; if d < 0 then
ok := False // уравнение не имеет решения
else
begin
ok := True;
x1 := (-b + Sqrt(d)) / (2*a) ; x2 := (b + Sqrt(d)) / (2*a);
end;
end;
