Квадратное уравнение
Добавлено: 23.11.2011 22:37:17
- Код: Выделить всё
program ddd;
var a,b,c,D,x1,x2:real;
begin
writeln('ўўҐ¤ЁвҐ a b б');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a=0 then
begin
if b=0 then
if c=0 then writeln('е-«оЎ®Ґ зЁб«®')
else writeln('Ґв Є®аҐ©')
else writeln('x=',-c/b:5:5)
end
else
D:=b*b-4*a*c;
if (D=0)and(a<>0) then writeln('x=',-b/(2*a):5:5)
else
if (D>0) then writeln('x1=',(-b+sqrt(D))/(2*a):5:5,' x2=',
(-b-sqrt(D))/(2*a):5:5)
else writeln('Ґв Є®аҐ©');
readln
end.
Преподаватель требует решить уравнение вида x^2-3.4x+2.89
Программа выдает ответ "нет корней". Если поменять тип данных на extended то это уравнение программа решает, а вот уравнение вида x^2-10.4x+27.04 не решает. Подскажите в чем ошибка.