Программа с совпадением переной и именем программи - работает:
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;
|
А программа что не совпадает - и не работает:
program MMaiv;
var Masiv:array [1..4, 1..4] of integer;
img:array [1..2] of image;
n, m, x, y, k, i, ii, nx: integer;
|
Виводит просто белий фон екрана.
Незнаю точно но изменил имя програми полностю МMaiv на Maiv и все заработало. Че нельзя использовать в имени програми и проекта две больших букви?
Я не знаю в чем ошибка, помогите пожалуста:
program Maiv;
var
Masiv: array[1..4, 1..4] of integer;
img: array[1..4] 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');
img[3] := loadimage('/land2.png');
img[4] := loadimage('/land3.png');
for i := 1 to 4 do
begin
masiv[i, 1] := 1;
masiv[i, 2] := 2;
masiv[i, 3] := 3;
masiv[i, 4] := 4;
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);
repaint;
delay(3000);
n := n + 1;
x := x + 30;
end;
ii := ii + 1;
x := 0;
y := y + 30;
end;
|
Виводит замесь ожидаемих катинок с номерами:
1234
1234
1234
1234
вот такие:
13
13
Почему столбец 2, 4 и строки 3, 4 не виводятся вообще?