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

 
Пример 3. Составьте блок-схему (рис. 9.5) и напишите програм-
му решения следующей задачи: дан квадратный двумерный массив 
целых чисел размерностью N <= 10. Найдите сумму элементов, ко-
торые находятся под побочной диагональю. 
 
Рис. 9.5. Бок-схема процедуры нахождения суммы 
Program Primer_3; 
Type tabl=Array[1..10,1..10] of Integer; 
{Процедура ввода элементов двумерного массива} 
Procedure Wwod2(k,p:Integer; Var x:tabl); 
Var i,j : Integer; 
Begin 

---

145 
For i := 1 to k do 
For j := 1 to p do 
X[I,j]:=Random(100); 
End; 
{Процедура вывода элементов двумерного массива на экран в 
виде матрицы} 
Procedure Vivod2(k,p:Integer; x:tabl); 
Var i,j:Integer; 
Begin 
For i := 1 to k do 
Begin 
For j:=1 to p do Write(x[I,j]:5); 
Writeln; 
End; 
End; 
{Нахождение суммы элементов, которые расположены под 
побочной диагональю} 
Procedure Sum(k:Integer; c:tabl); 
Var i,j, s:Integer; 
Begin 
s:=0; 
For i:=2 to k do 
For j:=k+2-i to k do s:=s+c[i,j]; 
Writeln('Сумма элементов под побочной диагональю=',s:6); 
End; 
{Основная программа} 
Var n,m:Integer; a:tabl; 
Begin 
Writeln('Ввести количество строк и столбцов'); 
Readln(n,m); 
Randomize; 
Wwod2(n,m,a); 
Writeln('Исходный массив'); 
Vivod2(n,m,a); 
Sum(n,a); 
End. 

---

146 
Пример 4. Составьте блок-схему (рис. 9.6 а, б) и напишите 
программу решения следующей задачи: дан двумерный массив 
целых чисел, который содержит не более 10 строк и не более 
10 столбцов. Массив выведите на экран в виде матрицы. Поменяйте 
w-ю и p-ю строки, если w и р вводятся с клавиатуры. 
Program Primer_4; 
Type tabl=Array[1..10,1..10] of In-
teger; 
{Процедура ввода элементов дву-
мерного массива} 
Procedure Wwod2(k,p:Integer; Var 
x:tabl); 
Var i,j : Integer; 
Begin 
For i := 1 to k do 
For j := 1 to p do 
X[i,j]:=Random(100); 
End; 
{Процедура вывода элементов 
двумерного массива на экран в виде 
матрицы} 
Procedure 
Vivod2(k,p:Integer; 
x:tabl); 
Var i,j:Integer; 
Begin 
For i := 1 to k do 
Begin 
For j:=1 to p do Write(x[i,j]:5); 
Writeln; 
End; 
End; 
{Процедура обмена строк} 
Procedure 
obmen(k,z,w,p:Integer; 
Var c:tabl); 
Var i,j,x:Integer; 
Begin 
For j:=1 to z do