program kvadratnoe;
var
a,b,c,x1,x2,d:real;
begin
write('Введите первый коеффициент а: ');
read(a);
write('Введите второй коеффициент b: ');
read(b);
write('Введите свободеый член c: ');
read©;
d:=sqr(a)-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/a;
x2:=(-b-sqrt(d))/a;
writeln('Дискриминант больше нуля');
writeln('x1= ',x1);
writeln('x2= ',x2);
end
else
begin
if d=0 then
begin
writeln('Дискриминант равен нулю');
x1:=(-b+sqrt(d))/2;
writeln('x= ',x1);
end
else
begin
writeln('Дискриминант меньше нуля, уравнение корней не имеет.');
end;
end;
end.
Сообщение отредактировано: Lapp -