Задание:
(Время: 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 221,0000002,00000020 -1 616,000000
Решение:
uses crt; var a,b,c,d,x: real; beginclrscr; 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); endend.P.S. Надеюсь на благодарность и лучший ответ.
Знаете другой ответ?