Brojaci & Matrice ...

[ reiser @ 21.11.2004. 03:06 ] @

Kako da postavim niz brojaca ? Recimo, imam funkciju 'MakeCounter' koju pozivam sa parametrom n tipa Integer (n <= 100). Sad ta funkcija treba da postavi n brojaca... Najprostiji primer :

Code:

function MakeCounter(const n : Integer) : Integer;
var
  C1 : Integer;
  C  : Array[1..100] of Integer;
begin
  For C1 := 1 to n Do
    For C[C1] := 1 to 1111 Do
    Begin
    End;
end;

Ovako bi to trebalo da bude, samo sto izgleda ne mogu da koristim elemenat matrice kao brojac (C[C1])...

poz

[ filjo @ 21.11.2004. 04:22 ] @

Napravi for petlju uz pomoc while.

[ reiser @ 21.11.2004. 13:40 ] @

Kako ?
Ja treba da napravim jedan AI za igru, pa treba da uradim nesto kao deep-check, tj. da ispitam moguce sve kombinacije za narednih n poteza.

[ filjo @ 21.11.2004. 14:11 ] @

Delphi 7 Help kaze:

Code:

for counter := initialValue to finalValue do statement  // umesto ovog

counter := initialValue;                            // stavi  sve ovo
while counter <= finalValue do
     begin
         statement;
         counter := Succ(counter);
     end;

Znaci for petlja lici na nesto kao:

Code:

  c[c1]:=1;
  while c[c1]<= 1111 do
      begin
          statement;                     // ovde ide kod za for
          c[c1]:=c[c1]+1               // ili c[c1]:=succ(c[c1])
      end;

[ reiser @ 21.11.2004. 21:04 ] @

Hvala, uspeo sam da nesto skarabudzim