Hogyan tudnám megcsinálni hogy x+1 ujra x legyen? Pascal
Egy mozgo 'o'-t akrtam programozni csak nem nagyon akar összejönni tudom mi a probléma de sehogyse tudom megoldani 1-2 tipp illetve help jó lenne ! Itt a program :
program mozgatas;
uses crt;
var x,y:byte;
var irany:char;
begin
clrscr;
x:=10;
y:=10;
textcolor(11);
gotoxy(x,y);
write('o');
repeat
irany:=readkey;
case irany of
'a':
begin
clrscr;
gotoxy(x-1,y);
write('o');
end;
'd':
begin
clrscr;
gotoxy(x+1,y);
write('o');
end;
's':
begin
clrscr;
gotoxy(x,y+1);
write('o');
end;
'w':
begin
clrscr;
gotoxy(x,y-1);
write('o');
end;
end;
until irany=#27;
end.
ha vhol elszurtam sry de pls vki help köszi !
gotoxy(x+1,y);
Ezek helyett:
x = x+1;
gotoxy(x,y);
Miért nem engedi indítani? Mit ír ki? :)
Egyébként nem x=x+1; hanem x:=x+1; Pascalban :)
mind a 2 módszerrel próbáltam amugy FreePascal 2.6.2est használok az error amit kidob :
mozgatas.pas(30,22) Error: Illegal expression
mozgatas.pas(49) Fatal: There were 1 errors compiling module, stopping
mozgatas.pas(0) Fatal: Compilation aborted
17.repeat
18.irany:=readkey;
19.case irany of
20.'a':
21.begin
22.clrscr;
23.x:=x+1
24.gotoxy(x,y);
25.write('o');
26.end;
pontosan igy van nem néztem el semmit am ha van más módja megcsinni az is jó lenne de am nem értem ez mért nem tetszik neki xd
Hát a 23. sorban hiányzik a pontosvessző, de lehet, csak itt.
Egyébként passz, nekem jónak tűnik.
ÚÚÚÚRISTEN NAGYON ESTE VAN MÁR XD
4 irány egyikéhez amikor változtatni akartam a változón nem írtam vhova ':'-t xd köszi azért a helpet like boss xd
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!