Aktív témák
-
sidani
csendes tag
Hali, kaptam egy olyan feladatot, hogy írjak egy olyan progit, amiben van egy A betű, és azt, tudom mozgatni a nyilakkal, és a ESC-vel lépjen ki!
Eddig megírt progi(1):program csillag;
uses crt;
var
x,y,ny,nx,i:integer;
key:char;
procedure bal(x,y:integer);
Begin
clrscr;
x:=x;
y:=y-1;
gotoxy(x,y);
write('A');
End;
procedure jobb(x,y:integer);
Begin
clrscr;
x:=x;
y:=y+1;
gotoxy(x,y);
write('A');
End;
procedure fel(x,y:integer);
Begin
clrscr;
y:=y;
x:=x+1;
gotoxy(x,y);
write('A');
End;
procedure le(x,y:integer);
Begin
clrscr;
y:=y;
nx:=x-1;
gotoxy(nx,y);
write('A');
End;
Begin
x:=15;
y:=15;
repeat
x:=x;
y:=y;
gotoxy(x,y);
write('A');
key:=readkey;
case key of
#800 : Begin
bal(x,y);
End;
#72 : Begin
jobb(x,y);
End;
#75 : Begin
fel(x,y);
End;
#77 : Begin
le(x,y);
End;
end;
until key=#27;
end.megírt program(2):
program csillag;
uses dos,crt;
var
x,nx,y,ny:integer;
key:char;
Begin
clrscr;
x:=15;
y:=15;
gotoxy(x,y);
write('A');
key:=readkey;
if key=#72 then
begin
ny:=y-1;
nx:=x;
clrscr;
gotoxy(nx,ny);
write('A');
end;
if key=#80 then
begin
ny:=y+1;
nx:=x;
clrscr;
gotoxy(nx,ny);
write('A');
end;
if key=#75 then
begin
nx:=x-1;
ny:=y;
clrscr;
gotoxy(nx,ny);
write('A');
end;
if key=#77 then
begin
nx:=x+1;
ny:=y;
clrscr;
gotoxy(nx,ny);
write('A');
end;
write(x,y,nx,ny);
readln;
exit;
end.a (2)-ben nem akarodczik mozogni!
a (1) -ben meg csak 1 helyet mozog!
Megoldfást várnál!(mindegy, hogy case vagy if)[ Szerkesztve ]
gsdfg
-
őstag
Aktív témák
- Politika
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Nagyrobogósok baráti topikja
- Jack Hunter: Egérragasztó
- Synology NAS
- Elektromos autók - motorok
- HDD probléma (nem adatmentés)
- Yettel topik
- Friss GPU IP-ikkel is készült az ARM
- További aktív témák...
- DJI Avata 2 Fly More Combo (Three Batteries)
- -59% HP EliteBook x360 830 G7:i5 10310U,16GB,256GB,vil.MAGYAR bilI.,IR,13.3" Touch,100%sRGB,WWAN 4G
- Sony PS5 (1116A) + 2TB Samsung SSD bővítés a gyári 825GB mellett, két karral + venom töltőhub
- HP Laptop 15-fd051ne - ÚJ - 15,6" FullHD IPS notebook - Core i5-1335U, 8GB, 512SSD, Win11
- Brother DCP-L2532DW wifis, multifunkciós lézernyomtató
- Erős Gamer Félkonfig I7 6700k 8x4Ghz/16gb DDR4 3200 DualChanel /8Gb Msi GTX1070 256BIT
- AKCIÓ // I7 8650U // 16GB DDR4 // 256GB SSD // FHD IPS
- Okosított Nintendo Switch 18.0.1. Dual-Boot Cfw + 2 db 64GB MicroSD + Atmosphere 1.7.0
- The Ninja Saviors: Return of the Warriors Új Bontatlan Nintendo Switch TAITO
- Asustor AS6302T 2 lemezes NAS (4 IP kamera license, HDMI, KODI)
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs