Hra v pascale

matej71 · Napísal **matej71**: 06.01.2009 8:46

Ahojte potreboval by som pomôct vytvorit hru lodky v pascale, mozete mi trosku poradit alebo keby mal niekto takuto hru by som si to podla nej spravil, lebo neviem ako vytvorit to pole aby bolo 10x10 a tam aby sa automaticky generovali 00000 a 000. Nepotrebujem to ako semestralku ani nijaku pracu len sa ucim na skusky a mali sme si spravit nejake otazky a s touto sa neviem pohnut, tie jednoduksie mam ale toto neviem, fakt prosim.

Danusa · Napísal **Danusa**: 07.01.2009 20:04

ahoj, nerucim za syntax, nemala som to kde vyskusat, skus ci ti to pojde, je to len taky napad ako by sa to asi dalo riesit

Kód:

program Arrays;
 
var
   r, c: Integer;
   a: array [1..10,1..10] of Integer;
   ranDom, tri, styri: integer;
   tri, styri: string;
 
begin
   tri :=   '000';
   styri := '0000';
   
   for i := 1 to 10 do
      for y := 1 to 10 do

         randomize;
         ranDom:=random(1);


         if ranDom = 0 then r:=tri else r:=styri;

         randomize;
         ranDom:=random(1);

         if ranDom = 0 then c:=tri else c:=styri;


               Writeln(a[r,c]);
end.

matej71 · Napísal autor témy **matej71**: 08.01.2009 8:07

Dik som to skúšal ale je tam veľa chýb, čosi som opravil ale neviem prečo pri
ranDom:=random(1);

mi píše stále chybu error 85 ";" expected.

neutronmind · Napísal **neutronmind**: 08.01.2009 14:11

Asi si v prikaze predtym zabudol dat na koniec bodkociarku. :rolleyes:

Posli cely zdrojak(opraveny).

programator · Napísal **programator**: 11.01.2009 17:49

Danusa píše:

ahoj, nerucim za syntax, nemala som to kde vyskusat, skus ci ti to pojde, je to len taky napad ako by sa to asi dalo riesit

Kód:

program Arrays;
 
var
   r, c: Integer;
   a: array [1..10,1..10] of Integer;
   ranDom, tri, styri: integer;
   tri, styri: string;
 
begin
   tri :=   '000';
   styri := '0000';
   
   for i := 1 to 10 do
      for y := 1 to 10 do

         randomize;
         ranDom:=random(1);


         if ranDom = 0 then r:=tri else r:=styri;

         randomize;
         ranDom:=random(1);

         if ranDom = 0 then c:=tri else c:=styri;


               Writeln(a[r,c]);
end.

Je tam par zavaznych chyb..
1.

Kód:

for i := 1 to 10 do
      for y := 1 to 10 do
         randomize;

Vzhladom na to, ze nie je oznaceny blok prikazov, cykly budu vykonavat iba prikaz randomize 100x, co je absolutna zbytocnost... prikaz randomize sa neumiestnuje do cyklov, pretoze sa moze lahko stat, ze napriek jeho uvedeniu program bude generovat tie iste cisla (pretoze cyklus akoby predbehne inicializaciu randomize)

2. Do pola a neukladas ziadne hodnoty
3. Program nedovoli definovat premennu s nazvom "ranDom", pretoze existuje funkcia s tymto nazvom (a pascal nie je case sensitive jazyk)

Hra v pascale

Podobné témy