Üdv. Pascalba kéne egy olyan mozgatós programot írni, hogy:wasd-vel mozgatom és nem mehet ki a pálya szélén. Kb. olyan mint a snake csak nem kell etetni, meg nincs akadály. Segítség?

hát ha kéne akkor szerintem írj.

(billentyűleütéseket figyelj)

Valami ilyesmi. (Csak vázlat.)

változók:

x,y:int //középre állítva

bill: byte

kilép:bool =nem

ciklus amíg nem kilép

kiír(x,y)

ciklus, amíg nincs billentyű leütés; ciklus vége

ha bill=="fel" és y-1>0 akkor töröl (x,y); y=y-1; kiír(x,y);

ha bill=="le" és y+1<=maxy akkor töröl (x,y); y=y+1; kiír(x,y);

ha bill=="bal" és x-1>0 akkor töröl (x,y); x=x-1; kiír(x,y);

ha bill=="jobb" és x+1<=maxx akkor töröl (x,y); x=x+1; kiír(x,y);

ha bill=="kilépés" akkor kilép=igen

ciklus vége