Задание:
Ребят помогите) ax в квадрате +bx+c=0 найти корни, решения составить с помощьюпаскаля
Решение:
program kvurav; uses crt; var a,b,c: integer; d,x,x1,x2: real; beginClrscr; writeln ('Введите коэффициент при Х в квадрате (а) '); readln (a); writeln ('Введите коэффициент при Х (b) '); readln (b); writeln ('Введите число С‘'); readln (c); D: =sqr (b) — 4*a*c; writeln ('Дискриминант=',D: 4:2); if d>=0 then begin d: =sqrt (d); x1: =(-b+d) /2*a; writeln ('X1=', x1:4:2); if d>0 then begin x2: =(-b-d) /2*a; writeln ('X2=', x2:4:2); end; end else writeln ('Дискриминант меньше нуля — корней нет'); readln; end.
Знаете другой ответ?