Составьте программу вычисления корней квадратного уравнения aх^2+…

Question

Составьте программу вычисления корней квадратного уравнения aх^2+ вх + с=0 по данным значениям егокоэффициентов.

Answer 1

53

cyberdub

28 февраля 2023

var a, b, c, d, x1, x2: real; begin write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); d: =b*b+4*a*c; if d=0 then begin x1: =b / (2*a) writeln (x1:3:3); end else if d>0 then begin x1: =(- b+sqrt (d) / (2*a); x2: =(- b — sqrt (d) / (2*a); writeln (x1:3:3, ', x2:3:3); end else writeln ('Нет решения'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: