(Время: 1 сек. Память: 16 Мб Сложность: 28%)Сложно найти человека, который любит решать однообразные задачки по математике. В последнее время школьникам стало легче, ведь с появлением компьютеров почти в каждой квартире стало с...
(Время: 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.000000
2.00000020 -1 61
6.000000
Гость
Ответ(ы) на вопрос:
Гость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. Надеюсь на благодарность и лучший ответ.
Не нашли ответ?
Похожие вопросы