![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Для роботи з матрицями необхідно одну й ту ж дію виконувати над кожним елементом: ввести кожний елемент, виконати необхідні дії над кожним елементом матриці, вивести кожний елемент. Особливість роботи з матрицями заключається в тому, що кожен елемент має 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. Скласти програму розрахунку кількості позитивних та від’ємних елементів масиву дійсних чисел С(с1,с2,...,с75).
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. Скласти програму визначення максимального елемента масиву цілих чисел В(b1,b2,...,b50) та його порядкового номеру.
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.
Дата публикования: 2014-09-25; Прочитано: 612 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!