Darmowe Forum

Polecenie readkey;
Polecenie odczytuje z klawiatury kod wciÂśniĂŞtego klawisza bez koniecznoÂści zatwierdzania poleceniem ENTER. NaleÂży pamiĂŞtaĂŚ, Âże polecenie readkey odczytuje tylko jeden znak. Nie jest w stanie odczytaĂŚ ciÂągu znakĂłw.

PrzykÂład skÂładni:
var a:char;
begin
a:=readkey;
end.
Program reagujÂący na klawisze

program lizak;
uses crt,dos;
var z:char;
x,y:integer;
begin
x:=10;y:=10; clrscr;
repeat
gotoxy(x,y); write('A');
z:=readkey;
if z='p' then y:=y-1;
if z='l' then y:=y+1;
if z='a' then x:=x-1;
if z='s' then x:=x+1;
 clrscr;
until z='q';
readkey;

Zadanie1. Program przemieszczaj¹cy literê 'A' po ekranie (p-góra, l-dó³, a-lewo, s-prawo). Program nie pozwala na przesuniêcie litery poza ekran.

program rebacz;
uses crt,dos;
var z:char;
x,y:integer;
begin
x:=10;y:=10; clrscr;
repeat
gotoxy(x,y); write('A'); gotoxy(60,1);write('x=',x,'y= ',y);
z:=readkey;
if z='p' then begin if (y>1) then y:=y-1 else y:=y; end;
if z='l' then begin if (y<25) then y:=y+1 else y:=y; end;
if z='a' then begin if (x>1) then x:=x-1 else x:=x; end;
if z='s' then begin if (x<60) then x:=x+1 else x:=x; end;
 clrscr;
until z='q';

end.

Zadanie1b - wersja half full wypas

program rebacz;
uses crt,dos;
var z:char;
x,y:integer;
begin
x:=10;y:=10; clrscr;
repeat
gotoxy(x,y); write('A'); gotoxy(60,1);write('x=',x,'y= ',y);
 gotoxy(20,20);write('B'); textbackground(green);
z:=readkey;

if z='p' then begin if (y>1) then y:=y-1 else y:=y; end;
if z='l' then begin if (y<25) then y:=y+1 else y:=y; end;
if z='a' then begin if (x>1) then x:=x-1 else x:=x; end;
if z='s' then begin if (x<60) then x:=x+1 else x:=x; end;
if(x=20) then begin if y=20 then textbackground(red)end ;
 clrscr;
until z='q';

end.