Організація введення-виведення матриць

Для роботи з матрицями необхідно одну й ту ж дію виконувати над кожним елементом: ввести кожний елемент, виконати необхідні дії над кожним елементом матриці, вивести кожний елемент. Особливість роботи з матрицями заключається в тому, що кожен елемент має 2 індекси. Тому всі дії над елементами матриці виконуються в складному циклі.

Якщо цикл містить в собі інші цикли, то він називається складним циклом. Цикл, який містить інші цикли – зовнішній цикл. Цикли, які знаходяться усередині зовнішнього циклу – внутрішні (вкладені) цикли. Основний принцип роботи складних циклів: зовнішній цикл завжди починається раніше, а закінчується пізніше, ніж вкладені цикли. Доки задану кількість разів не виконаються вкладені цикли, управління зовнішньому циклу не передається.

Приклад:

Організувати введення та виведення матриці дійсних чисел А(5х3)

PROGRAM AAA;

VAR

A: ARRAY [1..5, 1..3] OF REAL; I,J:INTEGER;

BEGIN

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO

READLN (A[I,J]);

FOR I:=1 TO 5 DO

WRITELN (A[I,1]:8,A[I,2]:8,A[I,3]:8)

END.

5.6 Опрацювання масивів даних у Паскалі.

1. Скласти програму розрахунку кількості позитивних та від’ємних елементів масиву дійсних чисел С(с₁,с₂,...,с₇₅).

PROGRAM PR1;

VAR

C:ARRAY [1..75] OF REAL;

I,POL,OTR:INTEGER;

BEGIN

POL:=0; OTR:=0;

FOR I:=1 TO 75 DO

BEGIN

READLN (C[I]);

IF C[I]>=0

THEN POL:=POL+1

ELSE OTR:=OTR+1

END;

WRITELN (‘кол-во положительных элементов=’,POL);

WRITELN (‘кол-во отрицательных элементов=’,OTR)

END.

2. Скласти програму визначення максимального елемента масиву цілих чисел В(b₁,b₂,...,b₅₀) та його порядкового номеру.

PROGRAM PR2;

VAR

B:ARRAY [1..50] OF INTEGER; I,MAX,N:INTEGER;

BEGIN

FOR I:=1 TO 50 DO

READLN (B[I]);

B[1]:=MAX; N:=1;

FOR I:=1 TO 50 DO

IF B[I]>=MAX

THEN BEGIN B[I]:=MAX; N:=I END;

WRITELN (‘максимальный элемент MAX=’,MAX);

WRITELN (‘порядковый номер N=’,N)

END.

3. Скласти програму знаходження суми двох матриць А(5´3) та В(5´3) і отриману матрицю помножити на дійсне число K. Елементи матриці – цілі числа.

PROGRAM MATR;

TYPE

MATRA=ARRAY [1..5,1..3] OF INTEGER;

MATRB=ARRAY [1..5,1..3] OF INTEGER;

MATRC=ARRAY [1..5,1..3] OF INTEGER;

MATRD=ARRAY [1..5,1..3] OF REAL;

VAR

A:MATRA; B:MATRB; C:MATRC; D:MATRD;

K:REAL; I,J:INTEGER;

BEGIN

READLN (K);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO READLN (A[I,J]);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO READLN (B[I,J]);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO

C[I,J]:=A[I,J]+B[I,J];

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO

D[I,J]:=C[I,J]*K;

FOR I:=1 TO 5 DO

WRITELN (D[I,1]:8, D[I,2]:8, D[I,3]:8);

FOR I:=1 TO 5 DO

WRITELN (C[I,1]:8,C[I,2]:8, C[I,3]:8)

END.