Корни квадратного уравнения Опции

[ToM SoIeR]

Всем хай, помогите найти ошибку в проге для решения квадратных уравнений.

Program EX_3;
var
a,b,c:real;
x1,x2:real;
D:real;
Begin
Writeln ('Reshenie kvadratnogo uravnenie');
Writeln ('Vvedite A');
Readln (a);
Writeln ('Vvedite b');
Readln (b);
Writeln ('Vvedite c');
Readln ( c);
D:=(b*b)-4*(a*c);
if D>0 then
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln ('Pervyi kopenb', x1);
Writeln ('VtopoI kopenb', x2)
end.
If D=0 then
x1:=-b/2*a;
Writeln ('Odin kopenb' , x1);
end;
If D<0 then
Writeln (HET KOPNEU');
Readln
end.

В следующий раз пользуйся тегами

Сообщение отредактировано: klem4 - 8.02.2006 22:01

[Altair]

 var
   a,b,c, x1,x2, D :single;
Begin
     writeln ('Reshenie kvadratnogo uravnenie');
     write ('Vvedite A=');  Readln ( a );
     write ('Vvedite b');   Readln ( b );
     write ('Vvedite c');   Readln ( c );
     D:=sqr(b)-4*(a*c);
     if D>0 then begin {BEGIN!}
        x1:=(-b+sqrt(D))/(2*a);
        x2:=(-b-sqrt(D))/(2*a);
        Writeln ('Pervyi kopenb', x1);
        Writeln ('VtopoI kopenb', x2)
     end;
     If D=0 then begin {begin}
        x1:=-b/2*a;
        Writeln ('Odin kopenb' , x1);
     end;
     If D<0 then writeln ('HET KOPNEU');
     Readln
end.

что будет если ввести a=0 ? ;)

для решения квадратных уравнений.

;)