Pomocou šípok sa pohybuje X

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: Ján Benkovič
web: www.tbteacher.host.sk

Program: Pohybx.pas
Subor exe: Pohybx.exe

Pomocou šípok sa pohybuje X.
{ POHYBX.PAS                             Copyright (c) Jan Benkovic }
{ Pomocou sipok sa pohybuje X.                                      }
{                                                                   }
{ Datum:01.08.1999                             http://www.trsek.com }
 
uses crt;
var c:char;
    x,y,x0,y0:integer;
 
procedure vykresli;
begin
  gotoxy(x,y);
  write('X');
end;
 
begin
 
  clrscr;
  x:=40;
  y:=14;
  x0:=x;
  y0:=y;
  vykresli;
 
  gotoxy(1,1);
  write('Pohyb sipkami, ESC-koniec');
 
  repeat
 
    c:=readkey;
    if c=#0 then c:=readkey;
    case c of
      'H': begin y0:=y;x0:=x;y:=y-1; end;
      'P': begin y0:=y;x0:=x;y:=y+1; end;
      'K': begin x0:=x;y0:=y;x:=x-1; end;
      'M': begin x0:=x;y0:=y;x:=x+1; end;
    end;
 
    gotoxy(x0,y0);
    write(' ');
 
    vykresli;
 
  until c=#27;
 
end.