Встречено 'else', а ожидалось ';'

@CekTopPopov · Регистрация: 12.06.2013

Pascal

var a,b,c,D, x1, x2: real;
 
begin
  writeln('Дано уравнение вида ax^2+bx+c=0');
  writeln ('Найти корни уравнения!');
  Writeln('Введите данные переменных a,b,c');
  readln(a,b,c);
  D:=sqr(b)-4*a*c;
  writeln('D=',D);
  if D=0 then 
  writeln('Уравнение имеет один корень');
      begin
        x1:=-b/2*a;
        writeln('Корень уравнения x1=',x1);
      end
  else if D<0 then writeln('Нет корней'); 16 строка
  else if D>0 then
      begin
        x1:=-b-sqr(d)/2*a;
        x2:=-b+sqr(d)/2*a;
        writeln ('Корни уравнения x1=',x1, 'и x2=',x2);
      end;  
end.

на 16 строке выдаёт "Program1.pas(16) : Встречено 'else', а ожидалось ';'", ставлю после end ";" пишит "Program1.pas(16) : Встречено 'else', а ожидался оператор.", помогите разобраться.

@ed8009 · 15.11.2013, 14:21

Pascal

var a,b,c,D, x1, x2: real;
 
begin
  writeln('Дано уравнение вида ax^2+bx+c=0');
  writeln ('Найти корни уравнения!');
  Writeln('Введите данные переменных a,b,c');
  readln(a,b,c);
  D:=sqr(b)-4*a*c;
  writeln('D=',D);
  if D=0 then 
begin
  writeln('Уравнение имеет один корень');
        x1:=-b/2*a;
        writeln('Корень уравнения x1=',x1);
      end
  else if D<0 then writeln('Нет корней')
  else if D>0 then
      begin
        x1:=-b-sqr(d)/2*a;
        x2:=-b+sqr(d)/2*a;
        writeln ('Корни уравнения x1=',x1, 'и x2=',x2);
      end;  
end.

Опции темы