Презентация на тему Многомерные массивы. (Тема 7)

их в Паскале достаточно задать массив, компонентами которого также

являются массивы.
В этом случае при задании массива базовый тип тоже массив.
Так можно задать массив любой размерности.

of array [ 1..5 ] of real - задает

матрицу ( двумерный массив ) из 20 вещественных чисел.
Это же более компактно можно записать так: var Z : array [1..4, 1..5] of real.

Z

Z[i,j].
То есть при обращении к элементу массива, число индексов

должно быть равно числу измерений массива.
В качестве индекса может быть любое выражение получающее значения типа индекса.

суммы всех строк матрицы.






A
B

i + 1
i > n
Вывод B

да
нет
stop

















B[i] := 0
j :=

1

B[i} := B[i] + A[i,j]

j := j+1

j > m

нет

да

0
j := 1
B[i] := B[i] + A[I,j]
j := j

+ 1

j > m

i := i +1

i > n

stop

Вывод B

да

да

нет

нет

m=5;
VAR A : array[1..n,1..m] of real;

B : array[1..n] of real;
i,j:integer;
Begin
for i:= 1 to n do { ввод матрицы}
begin
for j:=1 to m do
read(A[i,j]);
readln;
end;
for i:= 1 to n do { цикл для перебора строк }
begin
B[i]:=0;
for j:=1 to m do { суммирование строки }
B[i]:=B[i] + A[i,j];
end;
for i:=1 to n do { вывод одномерного массива}
write(B[i]:5:1);
readln;
end.

столбцах матрицы встречаются чётные числа и найти сумму элементов

матрицы.

элементы.
Для подсчёта количества столбцов, имеющих чётные элементы введём булевскую

переменную F, которой будем присваивать значение TRUE, если в столбце есть чётный элемент, и значение FALSE, если таких элементов нет.
Обозначим сумму матрицы через S, а коли-чество столбцов с чётными элементами K.

1
i > n
S:= S + Xi,j
Xi,j- чётное
i := i+1
F=true
K

:= K+1

X: array[1..n,1..m] of integer;
S,K,i,j: integer;

F : boolean;
begin
for i:=1 to n do
for j:=1 to m do readln(X[i,j]);
K:=0;
S:=0;
for j:=1 to m do
begin
F:= false;
for i:=1 to n do
begin
S:=S + X[i,j];
if X[i,j] mod 2 = 0 then F:= true;
end;
if F then K:= K+1;
end;
Writeln(‘s=‘,S, ‘ k=‘, K);
end.

поле содержит некоторое значение.
Тип значения поля может быть любым,

кроме файлового.

за ним следует перечисление полей записи и потом -

END.

a:string[20];

b: Integer;
END;
VAR st : z;
f : RECORD
g,h:real;
b: boolean;
END;

переменной типа записи и через точку имя поля.

Например:

st.a или f.g .

Такое обращение может стоять в любом месте, где допустима переменная такого типа.

товаров:





Вводится название товара, подсчитать, на какую сумму получено этого

товара.

из трёх полей: символьного для названия товара, целочисленного для

количества и вещественного для цены.
Исходную таблицу и товар, суммарную цену которого надо подсчитать, введём с клавиатуры.
Метод решения состоит из перебора строк таблицы.