Определение количества корней квадратного уравнения

LastQuinsy

Составить программу определения количества корней квадратного уравнения, а также вычисление их значений.Подскажите решение...
2 ответа

LastQuinsy

program kvadrat;
uses crt;
var a,b,c,x1,x2,d:real;
begin clrscr;
writeln('vvedite a,b,c');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
writeln('uravnenie imeet dva resheniya');
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('x1= ',x1:5:2,'    x2= ',x2:5:2);
end;
if d=0 then
x1:=(-b)/(2*a);
writeln('uravnenie imeet odno reshenie. x= ',x1 :5:2);
if d<0 then
writeln('reshenij net');
readln;
end.
вот пожалуста))


LastQuinsy

аригато)