(ПАСКАЛЬ)Помогите почему не компилируется! - есть ответ

Aleks Aslanyan, 310 просмотров

program CALC;
label n,e;
var a,b,result:longint; c:char; en,d:string[1];
n;
begin
writeln ('Tiv nshan Tiv');
{$I-}
readln (a,c,b);
{$I+}
case c of
'+': result:=a+b;
'-': result:=a-b;
'*': result:=a*b;
'/': result:=a/b;
if IoResult<>0 then writeln ('Error!Restarting program!') and goto n else writeln (a,'+',b,'=',result);
writeln ('Continue? yes or no?');
readln (en);
if en=yes then goto n;
if en=no then goto e;
writeln ('Writed incorrect command stoping programm');
e;
end;
end.

Ответы:

roach1967

1. Метки должны находиться внутри операторных скобок begin...end. программы.
2. После меток n и e должно стоять двоеточие а не точка с запятой!
3. Не определены переменные yes, no. Так как en - односимвольная строка, то нужно определить эти переменные как константы 'y' и 'n'. Соответственно вводить на запрос продолжения только одну из этих букв (ну или любую другую, но одну!).
Но лучше всего оформить вопрос продолжения таким образом:
- объявить переменную en как char (символ);
- после вывода вопроса про продолжение написать:

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.