Question

(Время: 1 сек. Память: 16 Мб Сложность: 28%)Сложно найти человека, который любит решать однообразные задачки по математике. В последнее время школьникам стало легче, ведь с появлением компьютеров почти в каждой квартире стало существенно проще проверять себя.Но программы, в которых решение уравнений является стандартной функцией, установлены не везде. Напишите программу, которая сможет решить уравнениеax2 + bx + c = 0при заданных коэффициентах a, b и c.Входные данныеЕдинственная строка входного файла INPUT.TXT содержит три целых числа a, b и c, каждое из которых не превосходит по модулю 30000. Числа разделяются пробелами.Выходные данныеНа первой строке выходного файла OUTPUT.TXT выведите число действительных корней заданного уравнения. Затем выведите сами корни по одному на строке с ошибкой, не превосходящей 10-4. Если для заданных коэффициентов корней бесконечно много, на единственной строке выходного файла выведите -1.Примеры№INPUT.TXTOUTPUT.TXT11 -3 22 1.0000002.00000020 -1 616.000000

Answer 1

uses crt;
var a,b,c,d,x:real;
begin
clrscr;
     writeln('введите A,B,C');
     readln( a,b,c );
     d:=sqr(b)-4*a*c;
     if d<0 then
        writeln('действительных корней нет') 
     else if d=0 then
        begin
        x:=(-b)/2*a;
        writeln('корень уравнения: ',x);
        end else
        begin
        x:=(-b+sqrt(d))/2*a;
        writeln('1-ый корень уравнения: ',x);
        x:=(-b-sqrt(d))/2*a;
        writeln('2-ой корень уравнения: ',x);
        end
end.

P.S. Надеюсь на благодарность и лучший ответ.