Guest User

Untitled

a guest
Jan 23rd, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.43 KB | None | 0 0
  1. program project1;
  2.  
  3. uses
  4. crt;
  5.  
  6. var
  7.   key:char;
  8.   x, y:integer;
  9.  
  10. begin
  11.    repeat
  12.       if (keypressed = true) then begin
  13.          key := upcase(readkey());
  14.  
  15.          if(key = 'W') then
  16.             inc(x);
  17.          if(key = 'S') then
  18.             dec(x);
  19.          if(key = 'A') then
  20.             dec(y);
  21.          if(key = 'D') then
  22.             inc(y);
  23.       end;
  24.  
  25.       writeln(x, ':', y);
  26.    until (key = 'Q');
  27. end.
Add Comment
Please, Sign In to add comment