21. Что делает программа? Приведите блок-схему программы.
{
Решение квадратного уравнения }
Основная
программа }
var
a,b,c:
real; { коэффициенты уравнения }
xl,x2:
real; ( корни уравнения }
function
KvadrUr(a,b,c: real; var xl,x2: real): integer;
{
a,b,c - коэффициенты уравнения }
{
xl,x2 - корни уравнения }
{значение
функции - количество корней или -1, если
неверные исходные данные }
var
d:
real; ( дискриминант
}
begin
if
a = 0 then KvadrUr := -1 else
begin
d:=b*b-4*a*c;
if
d < 0 then
KvadrUr:=0
{ уравнение не имеет решения }
else
begin if d > О
then
KvadrUr:=2 { два разных корня }
else
KvadrUr:=1; { корни одинаковые }
xl:=(-b+Sqrt(d))/(2*a);
x2:=(-b-Sqrt(d))/(2*a);
end;
end;
end;
begin
writeln('Решение
квадратного уравнения');
writeln('Введите
в одной строке коэффициенты и нажмите
'');
write('->');
readln(a,b,с);
case
KvadrUr(a,b,c,xl,x2) of
-1:
writeln('Ошибка исходных данных.');
0:
writeln('Уравнение не имеет решения.');
1:
writeln('x=',xl:6:2,' Корни одинаковые.');
2:
writelnГxl=',xl:6:2,'
х2=',х2:6:2);
end;
readln;
end.
