двумерные массивы
народ помогите пожалуйста создать двумерный массив
вот условие:даны действиельные числа а1..а64
получить действительную квадратную матрицу порядка 8 элементами которой являются числа а1..а64 расположенные в ней по схеме:
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
вот условие:даны действиельные числа а1..а64
получить действительную квадратную матрицу порядка 8 элементами которой являются числа а1..а64 расположенные в ней по схеме:
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
Цитата:
Originally posted by gromkiy
народ помогите пожалуйста создать двумерный массив
вот условие:даны действиельные числа а1..а64
получить действительную квадратную матрицу порядка 8 элементами которой являются числа а1..а64 расположенные в ней по схеме:
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
народ помогите пожалуйста создать двумерный массив
вот условие:даны действиельные числа а1..а64
получить действительную квадратную матрицу порядка 8 элементами которой являются числа а1..а64 расположенные в ней по схеме:
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
Код, який робить перетворення:
var
i, j, n, m: integer;
a: array[1..64] of real;
b: array[1..8, 1..8] of real;
p: boolean;
...
n := 8;
p := true;
m := 1;
for i := 1 to n do begin
for j := 1 to i do begin
if (p) b[i - j + 1, j] := m;
else b[j, i - j + 1] := m;
inc(m);
end;
p := not p;
end;
for i := n - 1 downto 1 do begin
for j := 1 to i do begin
if (p) b[n - i + j, n - j + 1] := m;
else b[n - j + 1, n - i + j] := m;
inc(m);
end;
p := not p;
end;
Цей код такий собі, бо я вже 4 роки на Pascal'і не прожив, але має працювати.