Разработать алгоритм и программу нахождения действительных корнейквадратного уравнения ax^2+bx+c=0Ввод значений коэффициентов a, b, cпредусмотреть с клавиатуры. Обеспечить возможность работы с наборомкоэффициентов (не менее 10-ти) без перезапуска программы. Результатырешения представить в виде таблицы. На паскале ABC

Итак, для начала разберемся с формулой:

+ bx + c = 0

Возьмем случайные значения

a = 1

b = -11

c = -152

Подставим и получим

x^2 - 11x - 152 = 0

d = 27

x1 = 19

x2 = -8

Теперь подставим всё это в программу:

var

a,b,c,i,n : integer;

r1,r2,d : real;

begin

i:=0;

write('Введите колличество повторений: ');

read(n);

while i <> n do

begin

i:=i+1;

writeln('Ввод номер ', i, ': ');

write('a = '); read(a);

write('b = '); read(b);

write('c = '); read(c);

d:=(sqr(b) - (4*a*c));

if d > 0 then

begin

r1:=((-b + sqrt(d)) / (2*a));

writeln('x1= ', r1:3:2);

r2:=((-b - sqrt(d)) / (2*a));

writeln('x2= ', r2:3:2)

end

else

if (d = 0) then

begin

writeln('x = ');

writeln(-b / (2 * a))

end

else

if (d < 0) then

begin

writeln('Нет корней')

end

end;

end.