Обработка двумерных массивов (матриц)

Вычисление суммы и количества элементов массива

Пример 17. Найти количество отрицательных элементов матрицы А(m,n), удовлетворяющих условию a_ij>-4.5 (m=3, n=4).

Программа Схема алгоритма

Program Prim17;

var

a : array[1..10,1..10] of real;

i,j,m,n,k : integer;

begin

writeln('Введите m, n');

readln(m,n);

writeln('Введите матрицу');

for i:=1 to m do

for j:=1 to n do

read(a[i,j]);

k:=0;

for i:=1 to m do

for j:=1 to n do

if (a[i,j]<0) and (a[i,j]>-4.5) then k:=k+1;

writeln('k=', k)

end.

Исходные данные: Результат:

m = 3; n = 4 k=3

Матрица A

2 4 -5 6

-1 3 -2 7

9 -3 5 8

Пример 18. Найти сумму элементов главной и побочной диагоналeй матрицы С(m,m), (m=4).

Указание.

Нужно учитывать, что элементы главной диагонали матрицы C имеют вид c_ii;побочной – с_i_,(_n_+1)-_i , следовательно, для обработки элементов главной и побочной диагоналей матрицы нужно использовать один цикл с параметром i.

Программа Схема алгоритма

Program Prim18;

var

c:array[1..10,1..10] of real;

i,j,m : integer;

s1, s2 : real;

begin

writeln('Введите m');

readln(m);

writeln('Введите матрицу');

for i:=1 to m do

for j:=1 to m do

read(c[i,j]);

s1:=0; s2:=0;

for i:=1 to m do

begin

s1:=s1+c[i,i];

s2:=s2+c[i,(n+1-i)];

end;

writeln('s1=', s1:6:2, 's2=', s2:6:2);

end.

Исходные данные: Результат:

m = 4 S1= 30.00

Матрица C S2= 35.00

8 6 11 7

5 4 9 8

25 3 -2 1

16 7 4 20

2.3.2.2. Поиск элементов массива по заданному критерию

Пример 19. Найти наибольший элемент по каждому столбцу матрицы В(m,n). (Пусть m<=10, n<=10)

Программа Схема алгоритма

Program Prim19;

var

b : array[1..10,1..10] of real;

i,j,m,n : integer;

max : real;

begin

writeln('Введите m, n');

readln(m,n);

writeln('Введите матрицу');

for i:=1 to m do

for j:=1 to n do

read(b[i,j]);

for j:=1 to n do

begin

max:=b[1,j];

for i:=2 to m do

if b[i,j]>max then max:=b[i,j];

writeln('j=', j:2,' max=', max:6:2);

end;

end.

Исходные данные: Результат:

m = 4; n = 4 j= 1 max= 12.00

Матрица B: j= 2 max= 6.00

2 -1 7 5 j= 3 max= 7.00

3 6 4 -9 j= 4 max= 6.00

8 5 -10 2

12 4 3 6

Работа с текстовыми файлами

Текстовыми файлами [Л1, стр. 70-74] называются файлы, состоящие из строк символов ASCII. Строки отделяются друг от друга символами “конец строки”, т.е. при вводе данных в файл с клавиатуры нужно нажимать клавишу “ENTER” для ввода каждой компоненты данных. В программе текстовый файл может быть описан в разделе переменных, например, так:

var f: text;

где f – указатель файла (файловая переменная), играющая роль “окна”, через которое можно прочитать или записать компоненты данных, размещаемых в файле.

Чтобы связать имя файловой переменной и соответствующее ему имя файла на магнитном диске нужно записать в программе оператор:

assign(f, ‘ff.dat’);

где f- имя файловой переменной в Pascal-программе, а ff.dat - соответствующее ему имя файла на магнитном диске.

В отличие от массива, количество компонент в файле не фиксировано, место компоненты не определяется индексами.

При каждом обращении к файлу (для чтения или записи) имеющийся указатель записи автоматически перемещается от начала файла к его концу (или в обратном порядке).

Перед работой с файлом нужно открыть файл, используя один из приведенных ниже операторов:

reset(f); – открыть файл для чтения

rewrite(f); - открыть файл для записи

где f - имя файловой переменной в Pascal-программе.

Для чтения (ввода данных) из файла и записи (вывода данных) в файл используются следующие процедуры:

readln(f); – прочитать данные из файла с именем f;

writeln(f); – записать данные в файл с именем f.

После окончания работы с файлом f нужно закрыть файл, используя процедуру

close(f);

Пример 21. Вычислить таблицу значений функции:

y_i=x_i², если x_i≤ a

y_i=x_i+1, если x_i > a ( i=1, 2, …, n) (n≤10)