НУЖНО К ЗАВТРАШНЕМУ ДНЮ!

Question

НУЖНО К ЗАВТРАШНЕМУ ДНЮ! Написать программу в Паскале общей формы решения квадратного уравнения.

Answer 1

59

maestrat

07 апреля 2023

program kvur; uses crt; var a,b,c,x1,x2,d: real; begin write ('Введите первый коэффииент, a='); readln (a); write ('Введите второй коэффииент, b='); readln (b); write ('Введите свободный член, c='); readln (c); ///////решение d: =sqr (b) — (4*a*c); writeln ('D=',d); if d>0 thenbegin x1: =(-1)*b+sqrt (d) / (2*a); x2: =(-1)*b-sqrt (d) / (2*a); writeln ('Ответ: x=',x1,'; ',x2); end; if d=0 thenbegin x1: =(-1)*b/ (2*a); writeln ('Ответ: x=',x1); end; if d<0 then writeln ('нет решений'); end.

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

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

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

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

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