Ошибка Pascal;

[k4k7u3]

Я написал простенькую программу, только изучаю язык. А оно мне светит ошибку возле слова else "Ожидался оператор". Если я не поставлю ";" перед else светит что "ожидалась ;", Подскажите в чем дело? Правда я работаю не с Паскалем а с ABC. Это имеет значение?

program cykl_1;
  var
    A,N: integer;
begin
      writeln ('Введите число');
      readln (N);
      if N >= 0 then
        A:=2*N;
        writeln ('N= ', A)
      else
        A:= Abs(N);
        writeln ('N= ', A);
    readln
end.

[Vanta11a]

После then begin/end забыли.

program cykl_1;
var
A,N: integer;
begin
writeln ('Введите число');
readln (N);
if N >= 0 then
begin
A:=2*N;
writeln ('N= ', A);
end
else
begin
A:= Abs(N);
writeln ('N= ', A);
end;
readln
end.

[k4k7u3]

Спасибо огромное. А подскажите еще пожалуйста почему мне светит ошибку возле первого слова do ''Ожидался оператор''????

program lab_1;
var a,b,c,eps,x1,x:real;i:integer;
function f(x:real):real;
 begin
  f:=(x*x*x*x)-(45*x*x*x)+(593*x*x)-(1731*x)-6210;
 end;
 function fsh(x:real):real;
  begin
  fsh:=(12*x*x-270*x+1186);
begin 
 i:=0;
 eps:=0.0001;
 writeln ('Введите крайний левый интервал');
 readln (a);
 writeln ('Ведите крайний правый интервал');
 readln (b);
  if f(b)*fsh(x)>0 then 
  repeat
    x1:=x-((f(x)*(b-x))/(f(b)-f(x)));
  c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
   until (abs(x-((f(x)*(b-x))/(f(b)-f(x))))<eps); 
   do
    writeln('x',i+1,'=',(f(b)*a-f(a)*b)/(f(b)-f(a)):2:4);
   else 
    repeat  
     x1:=x-((f(x)*(x-a))/(f(x)-f(a)));
     c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
   until abs(x-((f(x)*(x-a))/(f(x)-f(a))))<eps);  
   do
    writeln('x',i+1,'=',(f(b)*a-f(a)*b)/(f(b)-f(a)):2:4);
   readln();   
 end.

[Sab_zero]

насколько я понял у тебя нет

while

а do есть))

[k4k7u3]

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

насколько я понял у тебя нет

while

а do есть))

Извините, а куда его поставить???

[Vanta11a]

if f(b)*fsh(x)>0 then
begin
repeat
x1:=x-((f(x)*(b-x))/(f(b)-f(x)));
c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
until (abs(x-((f(x)*(b-x))/(f(b)-f(x))))<eps);
writeln('x',i+1,'=',(f(b)*a-f(a)*b)/(f(b)-f(a)):2:4);
end
else
begin
repeat
x1:=x-((f(x)*(x-a))/(f(x)-f(a)));
c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
until abs(x-((f(x)*(x-a))/(f(x)-f(a))))<eps);
writeln('x',i+1,'=',(f(b)*a-f(a)*b)/(f(b)-f(a)):2:4);
end;

Вроде как-то так.