Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
 
Рис. 9.2. Блок-схема процедуры Wiwod 
 
Свойства диагональных элементов 
Если количество строк равно количеству столбцов и равно n, то 
такие массивы называются квадратными. Элементы квадратного 
двумерного массива, у которых индекс строки равен индексу столбца 
образуют главную диагональ (если двумерный массив представить 
как квадрат, то линия с верхнего левого угла до нижнего правого есть 
главная диагональ). Поэтому можно записать, что элементы, 
лежащие на главной диагонали, – это элементы с индексами a[i, i] 
(если двумерный массив представить как квадрат, то линия 
с верхнего правого угла до нижнего левого есть побочная диагональ). 
Элементы a[i, j], лежащие на побочной диагонали, имеют следующее 
свойство i + j = n + 1, где n – количество строк в массиве. Поэтому 
элемент, лежащий на побочной диагонали, можно представить
a[i, n + 1 – i]. Этими свойствами часто пользуются при решении задач. 

---

140 
Примеры выполнения заданий 
 
Пример 1. Составьте блок-схему (рис. 9.3) и напишите прог-
рамму решения следующей задачи: дан двумерный массив раз-
мером n <= 10 и m <= 10. Найдите суммы элементов по строкам. 
PROGRAM Primer_1; 
Type tabl=Array [1..10, 1..10] of Real; 
{----------------------------------------------------------------------} 
PROCEDURE WWod (k, p:Integer; Var a : tabl); 
Var i, j : Integer; 
BEGIN 
For i := 1 to k do 
For j := 1 to p do a[ i,j]:=10*Random; {Вещественные числа [0; 10)} 
END; 
{----------------------------------------------------------------------} 
PROCEDURE Wiwod ( k, p : Integer; a : tabl); 
Var i, j : Integer; 
BEGIN 
For i := 1 to k do 
Begin 
For j := 1 to p do Write(a[i,j]:8:2); 
Writeln; 
End; 
END; 
{---------------------------------------------------------------------------} 
{Основная программа} 
Var a: tabl; i, j, n, m: Integer; s: real; 
BEGIN 
Writeln('Ввести количество строк и столбцов'); 
Readln(n,m); 
Wwod(n,m,a); 
Writeln('Исходный массив А'); 
Wiwod(n,m,a); 
Writeln('Суммы по строкам:'); 
For i := 1 to n do 
Begin 
S:=0; 

---

141 
For j := 1 to m do s:=s+a[I,j]; 
Writeln('сумма ', i, ' строки=', s:8:2); 
End; 
END. 
Поскольку блок-схемы процедур ввода и вывода приведены выше, 
то здесь укажем только блок-схему (рис. 9.3) основной программы. 
Начало
N, m
Wwod(n,m,a)
Исходный 
массив
Wiwod(n,m,a)
Сумма по 
строкам
i:=1..n
S:=0
J:=1..m
S:=s+a[i,j]
s
конец
нет
да
да
нет