Pascal. Создать процедуру, которая может найти дискриминант квадр. уравнения по введённым коэффициентам.

1

Ответы и объяснения

Лучший Ответ!
2014-03-17T22:43:34+00:00
На pascal abc

uses  crt;
    var 
    a,b,c,d,x1,x2,x : real;
begin  
   write ('Введите a,b,c:'); 
   readln (a,b,c); 
   d:=b*b-4*a*c; 
   if d > 0 then
      begin           
      x1:=(-b+sqrt(d))/2*a;           
      x2:=(-b-sqrt(d))/2*a;           
      writeln ('x1= ', x1:1:3,' ', 'x2= ', x2:1:3)           
      end 
   else if d = 0 then begin               
    x:=-b/2*a;               
   writeln ('x= ', x);               
  end 
else if d < 0 then                
writeln ('Корней нету');
end.