Ошибка при составлении квадратного уравнения в Paskal

[dazmont]

Помогите с ошибкой в составлении кода для квадратного уравнения

[VIK_aka_TOR]

после end перед if d= 0 then пропущена ";"... должно помочь...
и впредь копируйте сам текст кода... а не изображение... дя вставки кода используйте # на панели ...

[dazmont]

поставил там ;
но потом у меня вместо 2 ошибок стало 4 ошибки

[VIK_aka_TOR]

кинь текст кода... посмотреть и проверить что не та..
для вставки кода используй решетку...

[dazmont]

 program kvadrat_urav;

uses crt;
  var a,b,c:integer;
  D:integer;
  x1,x2: real;



BEGIN

      clrscr;

        writeln('Џа®Ја*¬¬* ¤«п аҐиҐ*Ёп Єў*¤а*в*ле га*ў*Ґ*Ё©');
        writeln('‚ўҐ¤ЁвҐ Є®нддЁжЁҐ*вл Єў*¤а*в*®Ј® га*ў*Ґ*Ёп:');
        write('a = ');   readln(a);
        write('b = ');   readln(b);
        write('c = ');   readln(c);

        D:=b*b-4*a*c;

        if (D>0) then
          begin
             x1:=(-b+sqrt(D))/2*a;
             x2:=(-b-sqrt(D))/2*a;
             writeln('Љ®аҐ*м x1 = ' ,x1:6:2);
             writeln('Љ®аҐ*м x2 = ' ,x2:6:2);

           end






         if (D=0) then
         begin
        x:= (-b)/(2*a);
        writeln('Љ®аҐ*м x = ' ,x:6:2);




          end
       else begin
       writeln('€§ аҐиҐ*Ёп б«Ґ¤гҐв, зв® D<0');
       writeln('„Ґ©б⢨⥫м*ле Є®а*Ґ© *Ґв!');
       end  ;











      readln;




END.

[bonjovi]

end ;
if D=0 then

И переменную x опиши в разделе VAR, как переменную типа REAL

[VIK_aka_TOR]

 program kvadrat_urav;
uses crt;
  var a,b,c:integer;
  D:integer;
  x1,x2,x: real;
BEGIN
      clrscr;
        writeln('Программа для решения квадратных уравнений');
        writeln('Введите коэфициенты:');
        write('a = ');   readln(a);
        write('b = ');   readln(b);
        write('c = ');   readln(c);

        D:=b*b-4*a*c;

        if (D>0) then
          begin
             x1:=(-b+sqrt(D))/2*a;
             x2:=(-b-sqrt(D))/2*a;
             writeln('Корень x1 = ' ,x1:6:2);
             writeln('Корень x2 = ' ,x2:6:2);
          end
            else
                if (D=0) then
                  begin
                    x:= (-b)/(2*a);
                    writeln('Корень x = ' ,x:6:2);
                  end
                    else begin
                      writeln('Из решения следует, что  D<0');
                      writeln('Действительных корней нет!');
                      end;
      readln;
END.

разве что не была объявлена переменная "x" которая использовалась... а так все рабочее)

и все же там лучше не ; ставить а else... а так все работает)...

[dazmont]

все заработало
спасибо всем за помощь!

[dazmont]

только у меня теперь при решении
даже если d>0
пишет , что d<0
!!!!!!!!!!!

[VIK_aka_TOR]

Сообщение от dazmont

только у меня теперь при решении
даже если d>0
пишет , что d<0
!!!!!!!!!!!

я вам полностью рабочий скинул...
там нужно вместо ; когда я вам в самом начале писал... поставить else... и все будет как нужно)