Advertisement
madcatzano

pascal help

Nov 30th, 2018
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.83 KB | None | 0 0
  1. program jatek;
  2. uses crt;
  3. label eleje;
  4.    
  5.     var c:char;
  6.     y:char;
  7.     x:char;
  8. begin
  9.     clrscr;
  10.     eleje:
  11.     writeln('Merre indulsz el a (balra)');
  12.     delay(1000);
  13.     writeln('s (le)');
  14.     delay(1000);
  15.     writeln('d (jobbra)');
  16.     delay(1000);
  17.     writeln('w (elore)');
  18.     readln(c);
  19.  
  20.     Case c of
  21.         'a':
  22.         begin
  23.             clrscr;
  24.             writeln('Elore mentel');
  25.             delay(2000);
  26.             clrscr;
  27.             writeln('Kocsmaba vagy. e (iszol) , h (szamot kersz)');
  28.             readln(y);
  29.             Case y of
  30.             'e':
  31.                 begin
  32.                     clrscr;
  33.                     writeln('Ittal.');
  34.                     delay(1000);
  35.                     writeln('Haza menni. t (taxi) , b (seta)');
  36.                     readln(x);
  37.                     case x of
  38.                         't': writeln('Taxiztal');
  39.                         'b': writeln('Setaltal');
  40.                         'h':
  41.                         begin
  42.                             clrscr;
  43.                             writeln('Szamot kertel');
  44.                             delay(1000);
  45.                             end;
  46.                     end;
  47.                 end;
  48.             end;
  49.         end;
  50.     end;
  51. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement