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

[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

[Sum42]

поправил

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

не так пишешь формулу дискриминанта, и корней квадратного уравнения
--------------------------------
да и задание не мешает писать)

Сообщение отредактировано: Sum42 - 5.11.2010 15:07

[krofik]

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

вот так короче окончательный вариант.
одноклассники, можете списывать.