uses
crt;
const n=4;
var matrix:array[1..n,1..n]of byte;
i,j:word;
begin
for i:=1 to n do
for j:=1 to n do
if (i mod 2)=1 then
matrix[i,j]:=(j+1)mod 2
else matrix[i,j]:=j mod 2 ;
for i:=1 to n do
begin
for j:=1 to n do
write(' ',matrix[i,j]);
writeln;
end;
readln;
end.
Заполнение двухмерного массива. Pascal.
Здравствуйте.
Сразу к делу.
1)Необходимо заполнить двумерный массив на паскале. А после его вывести. Массив должен иметь следующий вид:
0 1 0 1
1 0 1 0
0 1 0 1
1 0 1 0
2) Необходимо заполнить двумерный массив на паскале. А после его вывести. Массив должен иметь следующий вид:
01 02 03 04
12 13 14 05
11 16 15 06
10 09 08 07
Кроме паскаля ни с чем не работал, и не могу листинг с С/С++ на Паскаль.
Сразу к делу.
1)Необходимо заполнить двумерный массив на паскале. А после его вывести. Массив должен иметь следующий вид:
0 1 0 1
1 0 1 0
0 1 0 1
1 0 1 0
2) Необходимо заполнить двумерный массив на паскале. А после его вывести. Массив должен иметь следующий вид:
01 02 03 04
12 13 14 05
11 16 15 06
10 09 08 07
Кроме паскаля ни с чем не работал, и не могу листинг с С/С++ на Паскаль.
№1
решение задачи номер №2 смотри вот здесь http://forum.codenet.ru/showpost.php?p=138980&postcount=6.
Код:
решение задачи номер №2 смотри вот здесь http://forum.codenet.ru/showpost.php?p=138980&postcount=6.