Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
movimento - goto-readkey.pas

goto-readkey.pas

Caricato da: Punkettone90
Scarica il programma completo

  1. program prova;
  2. uses crt;
  3. var a,b,cont:integer;
  4.     tasto:char;
  5. begin
  6. a:=1;
  7. b:=1;
  8.  repeat
  9.     cont:=cont+1;
  10.     tasto:=readkey;
  11.      if tasto=char(0)
  12.       then tasto:=readkey;
  13.  
  14.     if tasto=char(77)
  15.      then
  16.        begin
  17.           a:=a+1;
  18.           gotoxy(a,b);
  19.        end;
  20.  
  21.     if tasto=char(75)
  22.      then
  23.        begin
  24.           a:=a-1;
  25.           gotoxy(a,b);
  26.        end;
  27.  
  28.     if tasto=char(72)
  29.      then
  30.        begin
  31.          b:=b-1;
  32.          gotoxy(a,b);
  33.        end;
  34.  
  35.  
  36.     if tasto=char(80)
  37.      then
  38.        begin
  39.           b:=b+1;
  40.           gotoxy(a,b);
  41.        end;
  42.  
  43.  
  44.  
  45.  until cont=-1;
  46.  
  47.  
  48. readln;
  49. end.