Лабораторна робота № 13
Тема: Turbo Pascal. Алгоритми і програми для обробки двовимірних масивів.
Мета: Формування умінь створення програм, які містять двовимірні масиви на алгоритмічній мові високого рівня
Turbo Pascal.
1 Теоретичні відомості
Масив – це впорядкований скінченний набір даних одного типу, які зберігаються в послідовно розташованих комірках оперативної пам’яті і мають спільну назву. Назву масиву задає користувач. Двовимірний масив даних – це таблиця, що складається з декількох рядків і стовпців.
Елементи масиву визначаються іменем масиву та двома індексами: перший індекс означає номер рядка, а другий – номер стовпця, на перетині яких стоїть елемент. Доступ до елемента масиву здійснюється через назву масиву і номер елемента.
Щоб опрацювати елементи двовимірного масиву, використовують команди вкладених циклів.
2 Хід роботи
2.1 Постановка задачі
Дано квадратну
матрицю
.
Обчислити добуток елементів над головною
діагоналлю матриці та визначити їхню
кількість.
2.2 Графічний алгоритм показаний на рис. 13.1.
2.3 Таблиця ідентифікації змінних
-
Змінна
a
N
d
k
Ідентифікатор
a
n
d
k
2.4 Програма мовою Pascal та результати обчислень
Program DM{Двовимірні масиви};
const
n=4;
Var
d:real;
i,j,k:integer;
a:array[1..n,1..n] of real;
Begin
writeln('Введіть елементи масиву');
for i:=1 to n do
for j:=1 to n do
begin
writeln('a[',i,',',j,']=');
read(a[i,j])
end;
writeln('Вихідні дані:');
for i:=1 to n do
begin
for j:=1 to n do
write(' ',a[i,j]:4:2);
writeln;
end;
d:=1; k:=0;
ні
так
Рисунок 13.1 – Графічний алгоритм
for i:=1 to n do
for j:=1 to n do
if i<j then
begin
d:=d*a[i,j];
k:=k+1
end;
writeln('РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ:');
writeln('Добуток елементів масиву над головною
діагоналлю = ',d:5:2);
writeln('Кількість елементів масиву над головною
діагоналлю = ',k:3);
end.
Вихідні дані:
4.00 7.00 3.00 2.00
8.00 3.00 7.00 5.00
4.00 5.00 7.00 4.00
2.00 7.00 4.00 2.00
РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ:
Добуток елементів масиву над головною
діагоналлю = 5880.00
Кількість елементів масиву над головною діагоналлю = 6