Урок № 5. Т. Алгоритмов - Паскаль - составление программы решения квадратного уравнения

УРОК № 5

Т. АЛГОРИТМОВ - Паскаль

составление программы решения квадратного уравнения

ЗАДАНИЕ 1

Составить программу решения квадратного уравнения

Дано:

A,B, C-действительные

Найти:

X1, X2, X - действительные

Решение

Сначала ищем дискриминант

D = B2 – 4AC

Если D>0, то уравнение имеет два решения:

Если D=0, то уравнение имеет одно решение:

Если D<0, то уравнение не имеет решений

Паскаль

Program KvUr;

Var

A, b,с:integer;

Begin
Writeln(‘введите коэффициенты квадратного уравнения’);
read(a,b,c);

d:=b*b-4*a*c;
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);
writeln(‘x1=’,x1:6:2);
writeln(‘x2=’,x2:6:2);
end
else if d=0 then begin
x:=-b/(2*a);
writeln(‘x=’,x:6:2);

end
else writeln(‘нет решений’);

End.