Как зациклить код?

[boldoc]

Решили с другом сделать текстовый квест, вместе придумываем сюжет, а вот программирую я. Ознакомлен с паскалем на очень низком уровне, но кое что всё таки умею. Не могу зациклить код.

Program TextGame;
uses winCrt;
var y,x: real;
Begin
Writeln ('Куда пойти? право-1, прямо-2, лево-3');
Read (y);
if (y=1) then writeln ('Вы вошли в лес. Куда идти дальше? В глубь-1, Назад-2');
if (y=1) then read (x);
if (x=1) then writeln ('Вы вышли к землянке');
if (x=2) then тут я хочу сделать так чтоб при нажатии 2 т.е. Назад, программа начиналась сначала т.е. самый первый вопрос: Куда идти? есть вариант что можно просто переписать код на эту ветку, но это глупо и слишком много;
if (y=2) then writeln ('Вы вышли на поляну');
if (y=3) then writeln ('Вы вышли к ручью');
end.

делал repeat
until x=0;
помогло, но при возврате к вопросу: куда идти? при нажатии любой цифры он выдавал "Вы вышли к землянке" каждый раз, без разницы на какую цифру я нажал. Прошу помочь.



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

[_-Re@l-_]

Видите? Вы считываете с клавиатуры переменную y, а проверяете то x, то y.
Надо бы так

Uses CRT;
Var
     X : Integer;
Begin
        Clrscr;
        Write('Куда идти? 1- в глубь, 2-назад');
        Readln(X);
        Repeat
             Case X Of 
             1 : Writeln('Вы зашли в глубь');
             2 : Writeln('Вы пошли назад');
             End;             
             Readln(X);
       Until X = 0;
       Readln;
End.

Логика такая(повторюсь, именно логика - остальное ваше).

[Alex11223]

И вместо read/readln удобнее будет readkey
http://tpdn.ru/guide/pf/readkey/

[boldoc]

хмм я переделал

Program TextGame;
uses winCrt;
var y,x: integer;
Begin
Writeln ('Куда пойти? право-1, прямо-2, лево-3');
Read (y);
if (y=1) then begin
         clrscr;
writeln ('Вы вышли в лес. В глубь-1 назад-2');
readln (x);
Repeat
     case x of
     1 : writeln ('Вы вышли к землянке');
     2 : writeln ('Вы вернулись назад');
     end;
     Readln (x);
until x=0;
if (y=2) then writeln ('Вы вышли на поляну');
if (y=3) then writeln ('Вы вышли к ручью');
end;
end.

только мне нужно чтобы было вот так:
Куда пойти? нажимаешь 1
Вы вышли в лес. В глубь-1, назад-2 нажимаешь 2
и переходит обратно на "Куда пойти?"


на readkey после того как разберусь попробую переделать.

[Alex11223]

Мб лучше как-то так?

if (y=1) then begin
   write('Вы вошли в лес. ');
   a:=0;
   repeat
      write('Bыберите куда идти: 1 — вглубь, 2 — назад: ');
      readln(x);
      case x of
      1: a:=a+1;
      2: a:=a-1;
      end;
      case a of
      1: write('Вы пришли к ...');
      2: write('Вы пришли к ...');
      3: write('Вы пришли к ...');
      0: write('Вы вернулись ко входу в лес. ');
      end;
   until a:=-1;

[boldoc]

замысел понял, но ругается на

until a:=-1;

ошибка 40 данное выражение должно быть булевского типа(((

[Alex11223]

Опечатка, там := вместо =

[boldoc]

Так заработало, но когда я я нажимаю 1 он выдаёт вы пришли к... и опять вопрос Куда идти? вглубь дальше((( а если сразу нажать 2 т.е. назат то он просто завершает программу(((

[Alex11223]

Ну после того, как вышли из леса мы должны вернуться к "Куда пойти? право-1, прямо-2, лево-3". Наверно это тоже надо в цикле (только добавить 4 кнопку для выхода, а то бесконечно будем ходить или более конкретно определиться с содержанием квеста).

он выдаёт вы пришли к... и опять вопрос Куда идти? вглубь дальше(((

И? Почему грустный смайлик? Допишите, куда мы пришли вместо ...)

[boldoc]

При нажатии 2 я хочу чтобы он начинал с начала т.е. выполнял 1 begin заново, можно так сделать? или нужно на каждую ветку квеста копировать по сто раз?

Program TextGame;
uses winCrt;
var y,x,a: integer;
Begin принажатии 2 программа продолжала работать с этого места
Writeln ('Куда пойти? право-1, прямо-2, лево-3');
Read (y);
if (y=1) then begin
   write('Вы вошли в лес. ');
      a:=0;
      repeat
      write('Bыберите куда идти: 1 — вглубь, 2 — назад');
      readln(x);
      case x of
      1: a:=a+1;
      2: a:=a-1;
      end;
      case a of
      1: write('Вы пришли к ...');
      2: write('Вы пришли к ...');
      3: write('Вы пришли к ...');
      0: write('Вы вернулись ко входу в лес. ');
      end;
     until a=-1;
if (y=2) then writeln ('Вы вышли на поляну');
if (y=3) then writeln ('Вы вышли к ручью');
end;
end.