主页 / 问题 / 933413
Accepted
Ярослав Смирнов
Asked:2020-01-18 02:10:17 +0000 UTC2020-01-18 02:10:17 +0000 UTC

错误“遇到'else'而需要操作员”

  • 772

报错，怎么写？

遇到“else”并期望操作员（第 19 行）

var a, b, c, d, x1, x2: real;
begin
  writeln ('ax2+bx+c=0');
  write ('a=');
  readln (a);
  write ('b=');
  readln (b);
  write ('c=');
  readln (c);
  d := (b*b)+(4*a*c);
  if (a = 0) then
    write ('Уравнение не является квадратным.')
  else
    if (d > 0) then
      d:= sqrt(d);
      x1 := (-b+d)/2;
      x2 := (-b-d)/2;
      write ('x1=', x1, 'x2=', x2);
    else
      if (d = 0) then
        x1 := (-b-d)/2
        write ('Единственный x=', x1)
      else
        write ('Корней нет');
end.
pascalabc.net

1 个回答

  1. Best Answer

    简单的条件应该写成表格

    if .. then
  одна строчка кода
else
  одна строчка кода

    如果您需要有条件地执行几行或几块代码，那么您应该begin .. end像这样将它们包装起来：

    if .. then
begin
  ..
  несколько строк кода
  ..
end
else
begin
  ..
  несколько строк кода
  ..
end

    对于您的情况：

    if (d > 0) then
begin                         <<-- тут нужно начать блок
  d:= sqrt(d);
  x1 := (-b+d)/2;
  x2 := (-b-d)/2;
  write ('x1=', x1, 'x2=', x2);
end                           <<-- тут нужно закончить блок
else
                              <<-- тут блок begin-ом начинать не нужно, т.к. if это уже блок
  if (d = 0) then
  begin                       <<-- тут нужно начать блок
    x1 := (-b-d)/2
    write ('Единственный x=', x1)
  end                         <<-- тут нужно закончить блок
  else
    write ('Корней нет');
    • 2

相关问题