Решение уравнений, простая, но мудрёная Опции

[rov4]

Привет всем!
Помогите, пожалуйста, найти, в чём моя ошибка при составлении программы (необходимо решить уравнение). Я уже тысячу раз всё переделывала, но в результате получается не то, что надо (должно быть 2 корня, а у меня получается только один).
Задание: уравнение имеет вид: а*х*х+в=0;
а=2;
в=-8.
Вот, что у меня получилось:

Код

program lab;
var a,b,d,x1,x2:real;
begin
writeln;
write('a:2');
readln(a);
if a=0 then
begin
write('false');
readln;
halt;
end;
write('b:-8');
readln(B);
writeln('a*',a:5:2,'x*x+','b=',b:5:2,'0');
writeln;
d:=b*b-(4*a);
if d<0 then
begin
write('false');
readln;
halt;
end;
if d=0 then
begin
x1:=-b/(2*a);
readln;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('d:',d:5:2);
readln;
end;
write('x1:',x1:5:2,'x2:',x2:5:2);
readln(x1,x2);
end;
end.

Все исходники должны помещаться в теги [ CODE] [ /CODE] Т.е. ваша программа, должна быть между [ CODE] и [ /CODE]. Пожалуйста, внимательнее...

Сообщение отредактировано: volvo - 12.01.2005 10:02

[volvo]

rov4
Кое-что исправил

Код

program lab;
var a,b,c, d,x1,x2:real;
begin
 writeln;
 write('a:'); readln(a);
 if a=0 then
   begin
     write('false'); readln; halt
   end;

 write('b:'); readln(b);
 write('c:'); readln(c);
 writeln(a:5:2, '*x*x+', b:5:2, '*x+', c:5:2,'= 0'); writeln;

 d:=b*b-(4*a*c);
 if d<0 then
   begin
     write('false'); readln; halt;
   end;

 if d=0 then
   begin
     x1:=-b/(2*a);
     writeln('one root: x1 = ', x1:5:2); readln; halt
   end;

 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 writeln('two roots:');
 writeln('x1 = ', x1:5:2, ' x2 = ', x2:5:2, ' d = ',d:5:2);
 readln;
end.

Вводим: А=2, В=0, С=-8

Сообщение отредактировано: volvo - 12.01.2005 11:33