Hra v pascale

matej71 · Napísal **matej71**: 06.01.2009 8:46 | Hra v pascale

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 | Hra v pascale

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 | Hra v pascale

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 | Hra v pascale

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

Posli cely zdrojak(opraveny).

programator · Napísal **programator**: 11.01.2009 17:49 | Hra v pascale

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

Hra v pascale

Podobné témy

hra v pascale

Hra Snake v Pascale

BANG! kartova hra vs kockova hra :)

Zadanie v pascale

Hry v pascale?

Program v pascale

program v pascale

zahada v pascale

Programovanie v Pascale

Pomoc v pascale

grafika v pascale

grafika v Pascale

program v pascale

subory v pascale

Medzery v Pascale

grafika v pascale