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