Пока получилось с 1-м масивом:
program Masiv;
var Masiv:array [1..4] of integer;
img:array [1..2] of image;
n, m, x, y, k : integer;
begin
x:=0; y:=0;
img[1]:=loadimage('/land0.png');
img[2]:=loadimage('/land1.png');
masiv[1] := 1;
masiv[2] := 2;
masiv[3] := 2;
masiv[4] := 1;
for k := 1 to 4 do begin
for n := 1 to 4 do begin
//for m := 1 to 4 do begin
drawimage (img[masiv[n]],x,y);
x := x+30;
end;
x:= 0;
y:= y+30;
end;
repaint;
delay(30);
end.
Чето я накрутил непонятное:
program Masiv;
var Masiv:array [1..4, 1..4] of integer;
img:array [1..2] of image;
n, m, x, y, k, i, ii, nx: integer;
begin
x:=0; y:=0;
nx:=1;
img[1]:=loadimage('/land0.png');
img[2]:=loadimage('/land1.png');
for i := 1 to 4 do begin
masiv[i,1] := 1;
masiv[i,2] := 2;
masiv[i,3] := 2;
masiv[i,4] := 1;
i:= i + 1;
end;
for ii := 1 to 4 do begin
i:= ii;
for n := 1 to 4 do begin
drawimage (img[masiv[i,n]],x,y);
n:= n+1;
x := x+30;
end;
ii:= ii+1;
x:= 0;
y:= y+30;
end;
repaint;
delay(30);
end.
|
Уже хоть виводит 4 строчкии 2 столбца (первий land0.png' а втарой land1.png')
Перекинул код с program Masiv в program MMaiv. Грубо говоря изменилось только Masiv --> MMaiv и программа не работает. Опять белий екран. А в program Masiv всеравно работает?