- Telekom mobilszolgáltatások
- Poco F3 - a mindenes, de nem mindenkinek
- iPhone topik
- Az Apple is mesterséges intelligenciával turbózza fel a teljes kínálatot
- Samsung topic
- Samsung Galaxy A54 - türelemjáték
- Poco X6 Pro - ötös alá
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Poco M6 4G-ként érkezik a Redmi 13 4G
- Samsung Galaxy A55 - új év, régi stratégia
Hirdetés
-
Az Apple is mesterséges intelligenciával turbózza fel a teljes kínálatot
ma Az új iOS, az új iPad OS és a Mac OS is megkapja az Apple Intelligence nevű megoldást, amely a ChatGPT-re is támaszkodik.
-
UbiForward24 - Jön az Anno 117: Pax Romana
gp Folytatódik a híres sorozat, jövőre egy teljesen új epizóddal jelentkeznek a készítők.
-
Új Philips Evnia monitorok érkeznek a játékosok asztalaira
ph A 180 Hz-es IPS panellel szerelt modellekkel azokat célozzák meg, akik nem akarnak sokat költeni.
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
- Videós, mozgóképes topik
- 3D nyomtatás
- Kerékpárosok, bringások ide!
- Acer M511: kompakt projektort próbáltunk ki
- Nők, nőügyek (18+)
- Politika
- Musk betiltja az iPhone-okat a Teslánál és az X-nél, ha ezt meglépi az Apple
- Xbox Series X|S
- Telekom mobilszolgáltatások
- Poco F3 - a mindenes, de nem mindenkinek
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen