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

[ne4kin]

program Mycalculator; {Программа выполняет роль калькулятора}
uses crt;
var chislo1,chislo2,otvet:real; deistvie:char; stop:boolean; n:integer;
 begin
 stop:=false;
writeln('Выберете способ работы с числами: 1-арифметический, 2-аналитический');
if 1 then stop:=true;
 repeat
 clrscr;
 writeln('                     Арифметический способ:');
 writeln;
 writeln;
 read(chislo1); read(deistvie); read(chislo2);
   case deistvie of 
   '+' : otvet:=chislo1+chislo2;
   '-' : otvet:=chislo1-chislo2;
   '*' : otvet:=chislo1*chislo2;
   '/' : otvet:=chislo1/chislo2;
   'w' : if chislo1>chislo2 then writeln(chislo1); else writeln(chislo2); {Проверяет какое число больше и выводит его}
   writeln(otvet);
   end;
 if not stop then
 repeat
 clrscr;
 writeln ('                     Аналитический способ:');
 writeln;
 writeln;
 read(chislo1);
 write('Введите q для корня, w для степени, e для выхода из программы, s для sin, c для cos: '); readln(deistvie);
  case deistvie of 
  'q' : otvet:=sqrt(chislo1);
  'w' : begin
        writeln('Введите степень: ');
        readln(n);
        otvet:=chislo1;
        for i:=1 to no do otvet:=otvet*chislo1;
        END; 
  'e' : BREAK;
  's' : otvet:=sin(chislo1);
  'c' : otvet:=cos(chislo1);
  end;
 writeln(otvet);
end.

В чем ошибка? у меня в интерпретаторе ABSPascal выходит ошибка о том, что ожидался символ ":" .
Никак не могу понять. помогите!!!

[_-Re@l-_]

в интерпретаторе ABSPascal

А что, для паскаля уже существуют интерпретаторы? Сколько я помню, паскаль компилируемый язык...
Используйте лучше Borland Pascal 7.0

[ne4kin]

Поправка кода:

program Mycalculator; {MicroCalc}
uses crt;
var chislo1,chislo2,otvet:real; deistvie:char; stop:boolean; n,i:integer;sx:byte;
 begin
 clrscr;
 stop:=false;
writeln('Bbl6epuTe cnoco6 pa6oTbl: 1-APuFMETu4eski, 2-AHaLuTucheski');
readln(sx);
if sx=1 then stop:=true;
 repeat
 clrscr;
 writeln('                 APufMETu4eski:');
 writeln;
 writeln;
 read(chislo1); read(deistvie); read(chislo2);
   case deistvie of
   '+': otvet:=chislo1+chislo2;
   '-' : otvet:=chislo1-chislo2;
   '*' : otvet:=chislo1*chislo2;
   '/' : otvet:=chislo1/chislo2;
   'w' : if chislo1>chislo2 then writeln(chislo1) else writeln(chislo2); {Проверяет какое число больше и выводит его}
   end;
   writeln(otvet);
 until sx=0;

 if not stop then
 repeat
 clrscr;
 writeln ('                     AHALuTu4eski:');
 writeln;
 writeln;
 read(chislo1);
 write('q-sqrt, w-CTEnEHb, e=exit, s-sin,c-cos: '); readln(deistvie);
  case deistvie of 
  'q' : otvet:=sqrt(chislo1);
  'w' : BEGIN
        writeln('ENTER DEGREE: ');
        readln(n);
        otvet:=chislo1;
        for i:=1 to n do otvet:=otvet*chislo1;
        END; 
  'e' : BREAK;
  's' : otvet:=sin(chislo1);
  'c' : otvet:=cos(chislo1);
  end;
 writeln(otvet);

 until deistvie = 'm';
end.

Сейчас попробовал в borland pascal 7.0
Ошибка: error 10: unexpected end of file и указывает на последнюю строку
че делать(( ?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Niro]

че делать(( ?

поставить в конце программы

end.

И на какую строчку указывал компилятор в вашем первом варианте?

[ne4kin]

пробывал. тоже самое пишет

[Niro]

'w' : if chislo1>chislo2 then writeln(chislo1); else writeln(chislo2);

перед else точка с запятой не ставится

'w' : if chislo1>chislo2 then writeln(chislo1); else writeln(chislo2);
writeln(otvet);
end;

поменять местами, в данном случае end относится к case
и ещё у вас два repeat, но один until

[ne4kin]

то же самое выходит
ошибка та же

[Niro]

то же самое выходит
ошибка та же

А вы исправили?
Я всё-таки скопировал, добавил еще одни until с левым условием и компилятор со мной согласен

if sx=1 then stop:=true;

зачем нужна эта строчка? для арифм. способа? но он будет выполняться всегда

until deistvie = 'm';

почему, где видит пользователь m? что бы цикл завершился

[ne4kin]

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

А вы исправили?
Я всё-таки скопировал, добавил еще одни until с левым условием и компилятор со мной согласен

где именно вы добавили? у меня ниче не получилось

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

until deistvie = 'm';
Если пользователь введет m то цикл завершается

[Niro]

где именно вы добавили?

ну например после

until deistvie = 'm';