Question

Вообщем написал программу на паскале, а она не работает: Program Proga; var a,b,c,d,x1,x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); Writeln ('Укажи переменную "a"'); readln(a); Writeln ('Укажи переменную "b"'); readln(b); Writeln ('Укажи переменную "c"'); readln(c); if a = 0 then; begin writeln('Не квадратное уравнение!'); end; else then; begin d:= sqr(b)-4*a*c; if d < 0 then; begin writeln('Нет корней'); end else then; x1:= (-b+sqrt(d))/2*a; x2:= (-b-sqrt(d))/2*a; writeln ('X1 =',x1,'X2 =',x2); end; end. на 16 строке пишет ошибку: Встречено 'else', а ожидалось ';' , если ставлю ";" пишет: Встречено 'else', а ожидался оператор Подскажите в чем беда, заранее спасибо!

Answer 1

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.

Answer 2

Проблема в вашем коде связана с неправильным использованием операторов `else` и `then`. В Pascal они используются в паре и не должны разделяться точкой с запятой. Давайте поправим ваш код:

Program Proga;
var
  a, b, c, d, x1, x2: real;

begin
  writeln('Дано уравнение вида ax^2 + bx + c = 0');
  Writeln('Укажи переменную "a"');
  readln(a);
  Writeln('Укажи переменную "b"');
  readln(b);
  Writeln('Укажи переменную "c"');
  readln(c);

if a = 0 then
  begin
    writeln('Не квадратное уравнение!');
  end
  else
  begin
    d := sqr(b) - 4 * a * c;

if d < 0 then
    begin
      writeln('Нет корней');
    end
    else
    begin
      x1 := (-b + sqrt(d)) / (2 * a);
      x2 := (-b - sqrt(d)) / (2 * a);
      writeln('X1 = ', x1, ' X2 = ', x2);
    end;
  end;
end.

Внесенные изменения включают исправления в использовании операторов `if`, `else`, и `then`. Также, обратите внимание на корректное использование скобок в выражении `(-b + sqrt(d)) / (2 * a)` и `(-b - sqrt(d)) / (2 * a)`.