Вычисление дискриминанта Опции

[krofik]

эх я новичок и почти не чего не знаю, помогите плс. здесь логическая ошибка, но какая!?

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 - 6.11.2010 12:16

[TarasBer]

Sum42, только вместо 2a надо писать (2*a), а то компилятор не поймёт.
krofik, ты бы внимательно посмотрел, правильно ли переписал формулу из учебника.