Dvojrozmerne pole

Filips · Napísal **Filips**: 17.01.2013 19:30

Mám problém s týmto programom. Tá podmienka nieje nikdy splnená a ja neviem prečo potrebjem pomôcť

Kód:

var
a:array [1..30,1..30] of integer;
l,i,x,y,r,mx,my:integer;
begin
r:=10;
x:=1;
y:=1;
mx:=1;
my:=0;
for i:=1 to 30 do
  begin
  for l:=1 to 30 do
    begin
    a[i,l]:=0;
    end;
  end;
for i:=1 to 900 do
  begin
  if a[(x+mx),(y+mx)]=0 then
...

Ďakujem

Fico · Napísal **Fico**: 17.01.2013 20:11

Vies pouzivat debugger? Ak ano, problem najdes za par minut. Ak nie: http://youtu.be/LQVC_Smk9fs
Z tohto kusku kodu tazko povedat, preco podmienka nie je splnena ( ak si odmyslim, ze tam mas prekrocenu hranicu pola ).

Gregi555 · Napísal **Gregi555**: 22.01.2013 22:50

Ta podmienka je splnena. Podl mna to len zle pozeras. Proste Pole[2,2] je urcite 0. Daj tam napr. vypisat...
Write('Nasiel !!!');
ReadLn;
Uvidis, ze to napise.

Dvojrozmerne pole

Podobné témy