Doporučuji: Testy.mysteria.cz, HockeyPage.wz.cz

Pascal - hotové kódy

Menu pomocí gotoXY

program menu;
  USES crt;
  var volba, klavesa: integer;

begin
 repeat
 clrscr;
 klavesa:=1;
 if volba=1 then begin
                            gotoXY(30,10);
                            writeln('Ahoj zacatecniku.');
                            delay(2000); clrscr;
 end;
 if volba=2 then begin
                            gotoXY (30,10);
                            writeln('Ahoj zacatecniku.');
                            delay(2000); clrscr;
 end;
 if volba=3 then begin
                            gotoXY (30,10);
                            writeln('Ahoj profiku.');
                            delay(2000); clrscr;
 end;

if volba=3 then begin
                            gotoXY (30,10);
                            writeln('Ahoj profiku.');
                            delay(2000); clrscr;
 end;
 if volba=4 then begin

klavesa:=0;
                            clrscr;
 end;
 if volba<4 then begin
                            gotoXY (10,5);
                            writeln('1...Zacatecnik');
                            gotoXY (10,8);
                            writeln('2...Pokrocily');
                            gotoXY (10,11);
                            writeln('3...Profik');
                            gotoXY (10,14);
                            writeln('4...Konec');
                            gotoXY (10,17);
                            writeln('Kam chces jit? Napis cislo kapitoly');
                            gotoXY (10,20);
                            readln (volba);
 end;

until klavesa=0;
end.

zpět na přehled kódů <