Приклад 1.Знайти суму елементів квадратної матриці 3*3.
program suma;
var
matr:array[1..3,1..3] of real;
i,k:word;
s:real;
begin
writeln (‘ Введiть матрицю у виглядi матриці’);
for i:=1 to 3 do
begin
for k:=1 to 3 do
read (matr[I,k];
readln;
end;
s:=0;
for i:=1 to 3 do
for k:=1 to 3 do
s:=s+matr[i,k];
writeln ('Сума елементів матриці=',s:6:2);
end.
Приклад 2.В матриці 5*4 знайти суму елементів кожного рядка.
program rd;
var
matr:array[1..5,1..4] of real;
i,k:word;
s:real;
begin
writeln (‘ Введiть матрицю у виглядi матриці’);
for i:=1 to 5 do
begin
for k:=1 to 4 do
read (matr[I,k];
readln;
end;
for i:=1 to 5 do
begin
s:=0;
for k:=1 to 4 do
s:=s+matr[i,k];
writeln ('Сума елементів',i:3,'рядка',s:6:2);
end;
end.
Приклад 3.В матриці 5*3 поміняти місцями 2 і 4 рядки.
program zamina;
type
TM = array[1..3] of real;
var
M: array[1..5] of TM;
C:TM;
i,k:word;
begin
writeln (‘ Введiть матрицю у виглядi матриці’);
for i:=1 to 5 do
begin
for k:=1 to 3 do
read (M[I,k];
readln;
end;
C:=M[2];
M[2]:=M[4];
M[4]:=C;
Writeln (‘Нова матриця’);
for i:=1 to 5 do
begin
for k:=1 to 3 do
write (M[I,k]:6:2);
writeln;
end;
end.
Приклад 4.Вивести на екран матрицю у вигляді
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 2 3 4 5 6 7 8
0 0 0 1 2 3 4 5 6 7
. . . . . . . . . . . . . . .
0 0 0 0 0 0 0 0 0 1
| | | | |
| | | program UpAngle;
var
i,k:word;
begin
for i:=1 to 10 do
begin
for k:=1 to 10 do
if i>k then
write ('0':3)
else
write(k-i+1:3) ;
writeln;
end;
readln;
end.
| |
| |
| | | | Результати виконання
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 2 3 4 5 6 7 8
0 0 0 1 2 3 4 5 6 7
0 0 0 0 1 2 3 4 5 6
0 0 0 0 0 1 2 3 4 5
0 0 0 0 0 0 1 2 3 4
0 0 0 0 0 0 0 1 2 3
0 0 0 0 0 0 0 0 1 2
0 0 0 0 0 0 0 0 0 1
| |
Приклад 5.Вивести на екран матрицю у вигляді
1 0 0 0 0 0 0 0 0 0
2 1 0 0 0 0 0 0 0 0
3 2 1 0 0 0 0 0 0 0
4 3 2 1 0 0 0 0 0 0
. . . . . . . . . . . . . . .
10 9 8 7 6 5 4 3 2 1
| |
| | | program DownAngle;
var
i,k:word;
begin
for i:=1 to 10 do
begin
for k:=0 to 9 do
if i<k then
write ('0':3)
else
write(i-k:3) ;
writeln;
end;
readln;
end.
Результати виконання
1 0 0 0 0 0 0 0 0 0
2 1 0 0 0 0 0 0 0 0
3 2 1 0 0 0 0 0 0 0
4 3 2 1 0 0 0 0 0 0
5 4 3 2 1 0 0 0 0 0
6 5 4 3 2 1 0 0 0 0
7 6 5 4 3 2 1 0 0 0
8 7 6 5 4 3 2 1 0 0
9 8 7 6 5 4 3 2 1 0
10 9 8 7 6 5 4 3 2 1
| |
Завдання для самоперевірки.
1. Маємо опис
Type
Vector=array [1..30] of real;
Var
Dan:Vector;
Скільки елементів в масиві Dan?
Назвати перший і останній елементи масиву.
2. Маємо опис
Type
day=(yesterday, today, tomorrow);
Var
Dan:array [day] of 0..24;
Скільки елементів в масиві Dan?
Які значення може приймати індекс?
Назвати перший і останній елементи масиву.
Які значення можуть приймати елементи масиву?
3. Описати масив, елементами якого є натуральні числа, а індексами довільні символи.
4. Чи можна в процесі виконання програми змінити розмір масиву?
5. Масив може складатись з одного елементу? Описати його.
6. Описати масив розміром 10 елементів, значеннями яких може бути true або false.
7. Маємо опис
Type
TMas=array of [1..15,’a’..’z’] of real ;
Var
A,B:TMas;
Які з вказаних дій допустимі в мові Pascal:
A=B; A:=B; A:=A+B; read(A); A[1}:=B[2]; A[3]:=A[4]; A[5,’a’]:=B[6,’d’]; A<>B;
8. Маємо опис
Type
TMas=array of [1..5,1..5] of real ;
Var
A,B:TMas;
Скільки елементів містить масив А?
Назвати перший і останній елементи масиву.
Назвати елемент масиву, що знаходиться в третьому рядку і четвертому стовпці.
9. Визначити кількість нульових елементів в заданому масиві.
10. Задано 20 чисел. Визначити, скільки серед них чисел, що дорівнюють останньому.
11. Задано масив з 10 символів. Вивести символи в зворотному порядку.
12. Задано масив з 30 цифрами. Визначити, яка цифра в ньому зустрічається найчастіше.
13. Задано масив 20 символів. Визначити, чи порядок символів з початку масиву до кінця і навпаки однаковий. Наприклад, абвгддгвба.
14. Знайти суму всіх елементів матриці 5х5.
15. Підрахувати суму додатних елементів в кожному рядку матриці 5х6.
16. 
Масив розміром 12х31 містить дані про температуру в місті. Визначити дні, коли була найвища і найнижча температура.
17. Розробити програму формування матриці за зразком: 0 0 0 0 0 0 0 0 0 0
0 1 0 0 0 0 0 0 0 0
0 0 2 0 0 0 0 0 0 0
0 0 0 3 0 0 0 0 0 0
. . . . . . . . . . . . . . .
0 0 0 0 0 0 0 0 0 9
