Question

найти дискриминант квадратного уравнения, если коофициент вводится с клавиатуры

Answer 1

var a, b, c, e, f: integer; 
 d, x1, x2: real;
begin
 write('Введите коэффициент x^2: ');
 readln(a);
 write('Введите коэффициент x: ');
 readln(b);
 write('Введите свободный член: ');
 readln(c);
 d:=b*b-4*a*c;
 if (d>=0) then
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=(-b+sqrt(d))/(2*a);
  write('Уравнение имеет 2 корня:  ');
  writeln;
  writeln('Первый корень: ',x1:4:2);
  writeln('Второй корень: ',x2:4:2);
 end
 else
 writeln('Дискриминант < 0');
 readln;
end.