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
Choď na stránku: