- This topic has 15 hozzászólás, 6 résztvevő, and was last updated 20 years, 7 months telt el by
.
-
Bejegyzés
-
Sziasztok! Segítséget szeretnék kérni a kötelezõ programom megírásához. A probléma a következõ:
NxM -es (N és M maximum Nmax) amõba játék szimulálása két játékos
között. A tábla méreteit, és a koordinátákat a standard inputról kell
olvasni. Minden lépés után újra ki kell rajzolni a táblát a standard
outputra (nem az elõzõt kell átrajzolni). A táblán az egyik játékos ‘O’, a
másik ‘X’, az üres mezõk ‘.’-tal vannak jelölve. A program jelezze, ha
valamelyik játékos nyert, vagy a döntetlent ha betelt a tábla.Ha valaki rendelkezik ezzel a programmal, vagy van valami ötlete, szívesen venném, ha segítene vele.
emailcímem: ildi000@freemail.huBelekezdtem már. Nyilván nem várnám el senkitõl, hogy megcsinálja helyettem. Csakhogy én nem tudom megcsinálni, mert nekem ez az egész kínai. Gõzöm sincs hogy kell programozni.
Egyelõre az lenne a kérdésem, hogy kell két for ciklust egymásba ágyazni?
Eddig jutottam:
for i:=1 to N do
for j:=1 to M do
T[i,j]:=0;
for i:=1 to N do
for j:=1 to M do
writeln(T[i,j]);
De ez így nem jó, mert egymásba alá írja ki a 0kat, nekem pedig N*Mes mátrix kellene. :unsure:Belekezdtem már. Nyilván nem várnám el senkitõl, hogy megcsinálja helyettem. Csakhogy én nem tudom megcsinálni, mert nekem ez az egész kínai. Gõzöm sincs hogy kell programozni.
Egyelõre az lenne a kérdésem, hogy kell két for ciklust egymásba ágyazni?
Eddig jutottam:
for i:=1 to N do
for j:=1 to M do
T[i,j]:=0;
for i:=1 to N do
for j:=1 to M do
writeln(T[i,j]);
De ez így nem jó, mert egymásba alá írja ki a 0kat, nekem pedig N*Mes mátrix kellene. :unsure:
[align=right][snapback]93107[/snapback][/align]Nem tudom, milyen Pascal forditot hasznalsz. En anno Borland Pascallal tanultam, igy az alapjan:
„writeln(T[i,j]);” – ebbol arra kovetkeztetek, hogy karakteresen akarod megcsinalni
van egy eljaras: gotoxygotoxy(X, Y) – X es Y egesz ertekek. Az eljaras a kepernyo X.soranak Y. oszlopaba viszi a kurzort.
Igy peldaul egy ‘X’ kiirasa a kepernyo X,Y koordinatajara:gotoxy(X, Y);
write(‘X’);Ird le, hogy pontosan milyen Pascal forditot hasznalsz.
Morzel
fpc-t. Hogy azon belül mit és hogyan, ne kérdezd, mert nem tudom. Semmit se tudok.
Az itt a kérdés, hogy hogyan lehet két for ciklussal kiíratni egy mátrixot.fpc-t. Hogy azon belül mit és hogyan, ne kérdezd, mert nem tudom. Semmit se tudok.
Az itt a kérdés, hogy hogyan lehet két for ciklussal kiíratni egy mátrixot.
[align=right][snapback]93111[/snapback][/align]Tessek, az algoritmus:
Code:1. ciklus i = 1 tol N -ig
2. ciklus j = 1 tol M -ig
3. menjXY-ra(i, j)
4. ird_ki(Tomb[i, j])
5. ciklus vege
6. ciklus vegeMorzel
Udvozletem!
Kicsit utana olvastam a dolognak. Nos, elso ranezesre nem talaltam a free pascalban a borlandos gotoxy eljarasnak megfelelot, ugyhogy igy csinaltam egy kis programot, ami kiir egy n*m -es teruletre egy rakat X-et. Sajna tobbre most nincs idom.
Code:uses crt;var i, j, n, m : integer;
begin
n := 10;
m := 5;for i := 1 to n do
begin
for j := 1 to m do
write(‘ x’);
writeln;
end;
end.Egyebkent meg talaltam egy referenciat a free pascalrol:
http://www.freepascal.org/docs/ref.pdf
ezt nyugodtan olvasgathatod.
Morzel
Nos megvan a programom. Más csinálta meg persze. Esetleg tudnál ajánlani vmilyen programot, amiben könnyedén lehet szerkezeti ábrát készíteni?
- Be kell jelentkezni a hozzászóláshoz.
legutóbbi hsz