Материал: Алгоритмический язык Turbo Pascal 7.0. Юршин Е.Д., Рог А.И
двумерного массива согласно приведѐнным алгоритмам (заданиям).
Задача 4.
Пусть задан двумерный массив, размерностью 5 5. Требуется составить программу для вывода на экран монитора элементов главной диагонали матрицы при введенных 25 элементах.
Program_matr; Var
i, j: integer
a: array [1, 5, 1…5]_of_integer;
Begin
for_i: 1_to_5_do
for_j: 1_10_5_do_read a[i, j]; for_i:=1_to_5_do
Begin
for_j:=1 to 5 do
if i:=j then_write (a[i, j]:3)_else_write (´_´);
Writeln;
End;
End.
Здесь признаком того, что элементaij находится на главной диагонали матрицы является равенство i=j.
Задача 5.
Составить программу для нахождения элемента вышеприведенной матрицы, находящейся на
пересечении второй строки и третьего столбца (результат вывести на экран дисплея).
Program_matr; Var i, j: integer;
a: array [1..5, 1…5]_of_integer;
Begin
for_i:=1_to_5_do; for_j:=1_to_5_do_read a[i, j]; for_i:=1_to_5_do;
Begin
for_j:=1_to_5_do;
if i=2 then if j=3 then_write (a[i,j]); writeln;
end;
End.
Здесь вместо двойного оператора if можно воспользоваться таким оператором:
if (i=2) and (j=3) then write(a[I,j]);
Задача 6.
Составить программу, с помощью которой необходимо элементы главной диагонали оформить в виде одномерного массива и этот массив вывести на печать.
Program_tub;
Var a:array[1..5, 1..5]_of_integer; b:array[1..5]_of_integer;
Begin
i:=1_to_5_do j:=1_to_5_do_begin
writeln (´введите a[´, i:2, ´, ´, j:2, ´] ´);
readln (a[i, j]); end; for_i:=1_to_5_do for_j:=1_to_5_do
if_i=j then b[i]:=а[i, j]); for_i:=1_to_5_do writeln (b[i]);
End.
Задача 7.
Составить программу на обработку двумерной матрицы 5 5 по следующему алгоритму: вместо отрицательных элементов матрицы вставить нули, результат обработки вывести на экран дисплея в виде квадратной матрицы.
Program_matr;
Var a:array[1..5, 1..5]_of_integer; i, j:integer;
Begin
for_i:=1_to_5_do for_j:=1_to_5_do_begin
written (´введите a[´, i:2, ´, ´, j:2, ´] ´); readln (a[i, j]);
end;
S:=0 for_i:=1_to_5_do for_j:=1_to_5_do
if_а[i, j]<0_then_a[i, j]:=0; for_i:=1_to_5_do_begin for_:=1_to_5_do write (a[i, j]:3); Writeln;
End;
End.
Задача 8.
Составить программу для суммирования всех положительных элементов матрицы 5 5.
Pogram_matr; Var i,j:integer;
a:array[1..5,1..5]_of_integer; Begin
For_i:=1_to_5_do
For_j:=1_to_5_do Read(a[i,j]); For_i:=1_to_5_do For_j:=1_to_5_do If_a[i,j]<0_then_s:=s+a[i,j]; Write(s);
End.
Задача 9.
Pogram_matr; Var s,i,j:integer;
a:array[1..5,1..5]_of_integer; Begin
For_i:=1_to_5_do
For_j:=1_to_5_do Read(a[i,j]); For_i:=1_to_5_do For_j:=1_to_5_do If_a[i,j]<0_then_s:=s+a[i,j]; Write(s);
End.
Задача 10.
Составить программу для обработки двумерного массива на предмет определения максимальной величины элемента массива.
Program_matr;
i, j, max:integer; a:array[1..5, 1..5]_of_integer;
Begin
for_i:=1_to_5_do for_j:=1_to_5_do read a[i, j]; max:=a[1, 1]; for_i:=1_to_5_do for_j:=1_to_5_do
if_а[i, j]>max_then_max:=a[i, j]; Writeln(max);
End.