Info1415_L_Matrix
.pdf12 Массивы |
11 |
ДЗ: Пусть имеется массив: var A : array[1..4, 1..5] of Integer. Написать процедуру печати смещений для всех элементов массива A.
Результат работы программы. |
|
|
|
|
|
|
|
|||||
|
|
Turbo Pascal |
|
|
|
|
Delphi |
|
|
|||
|
|
|
|
|
|
|
|
|||||
0 |
2 |
4 |
6 |
8 |
|
|
0 |
4 |
8 |
12 |
16 |
|
10 |
12 |
14 |
16 |
18 |
|
|
20 |
24 |
28 |
32 |
36 |
|
20 |
22 |
24 |
26 |
28 |
|
|
40 |
44 |
48 |
52 |
56 |
|
30 |
32 |
34 |
36 |
38 |
|
|
60 |
64 |
68 |
72 |
76 |
|
_ |
|
|
|
|
|
|
_ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Пример 12.24. Создать вектор, хранящий сумму элементов каждой строки массива.
|
|
|
Вычисление суммы элементов в каждой строке массива |
|
|
|
|
1 |
const RMax |
= 4; CMax = 3; |
|
2 |
var A |
: |
array[1..RMax, 1..CMax] of Integer; |
3S : array[1..RMax] of Integer;
4i, j : Integer;
5 begin
6for i := 1 to RMax do
7begin
8S[i] := 0;
9for j := 1 to CMax do S[i] := S[i] + a[i,j];
10end;
11...
12end.
Пример 12.25 (Перестановка элементов массива). Дан двумерный массив A, состоящий из 2n 2n элементов. Поменять первую строку массива с последней строкой, вторую с предпоследней и т. д.
1
2
3
4
5
6
7
for i := 1 to for j := 1 to begin
y := a[i,j];
a[i,j] := a[M-(i-1),j]; a[M-(i-1),j] := y;
end;