Лабораторна робота №13
Мп Turbo Pascal. Двовимірні масиви. Пошук максимального та мінімального елемента в стовпцях та рядках двовимірного масиву.
Навчитися знаходити максимальні та мінімальні елементи двовимірного масиву, а також індекси цих елементів при розв’язуванні задач в середовищі Turbo Pascal.
Завдання для лабораторної роботи
Скласти блок-схему алгоритмув розв’язання задачі, зобразити її засобами Microsoft Word, написати програму мовою Pascal, відлагодити її та проаналізувати отримані результати
Постановка задачі
Задано двовимірний масив A[n:m]. Знайти максимальне значення в кожному рядку масиву А і впорядкувати рядки за спаданням максимумів.
Алгоритм і програма наведені нижче:
program max_matrix;
uses wincrt;
const n=3; m=4;
var A:array[1..n,1..m] of integer;
max: array[1..n] of integer;
i,j,k:integer;
b1,b2:integer;
begin
{Введення елементів масиву}
for i:=1 to n do
begin
for j:=1 to m do
begin
write(‘Введіть елемент A[',i,',',j,']=>');
read(a[i,j]);
end;
readln;
end;
{Виведення масиву на екран}
writeln('Виведення масиву:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
for i:=1 to n do
begin
max[i]:=A[i,1];
for j:=2 to m do
if a[i,j]>max[i]
then
max[i]:=a[i,j];
end;
for i:=n downto 2 do
for k:=1 to i-1 do
if max[k]<max[k+1]
then
begin
b1:=max[k];
for j:=1 to m do
begin
b2:=a[k,j];
a[k,j]:=a[k+1,j];
a[k+1,j]:=b2;
end;
max[k]:=max[k+1];
max[k+1]:=b1;
end;
{Виведення впорядкованого масиву}
writeln('Виведення впорядкованого масиву');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
№13
Скласти блок-схеми алгоритмів розв’язання задач, зобразити їх засобами Microsoft Word, написати програми мовою Pascal, відлагодити їх та проаналізувати отримані результати
Задача №1
Задана дійсна матриця розмірністю n×m (n=3, m=4), в якій не всі елементи дорівнюють нулю. Отримати нову матрицю шляхом ділення всіх елементів даної матриці на її найбільший за модулем елемент.
Задача №2
В заданій дійсній матриці розмірністю n×m (n=6, m=9), поміняти місцями рядок, в якому знаходиться елемент з найбільшим значенням, з рядком , в якому знаходиться елемент з найменшим значенням.
Задача №3
Задано натуральне
число n, дійсна квадратна
матриця порядку n, дійсні
числа
.
Елементи послідовності
домножити на 10, якщо найбільший елемент
матриці (нехай такий елемент один)
знаходиться на головній діагоналі, і
на 0,5 в протилежному випадку.
Задача №4
В заданій квадратній цілочисельній матриці порядку 17 указати індекси всіх елементів з найбільшим значенням.
Задача №5
Задана дійсна квадратна матриця порядку 10. В рядках з від’ємним елементом на головній діагоналі знайти найбільший з усіх елементів.
Задача №6
З адана дійсна матриця розмірністю n×m (n=3, m=4). Знайти і вивести на екран числа , які дорівнюють відповідно різницям найбільших і найменших значень елементів рядків.
Питання для самоконтролю
За яким принципом можна знайти мінімальний елемент кожного рядка двовимірного масиву?
Чим відрізняється пошук максимального елемента від пошуку мінімального елемента?
За яким принципом можна знайти мінімальний елемент кожного стовпця двовимірного масиву?
За яким принципом можна знайти мінімальний або максимальний елемент визначеного рядка або стовпця двовимірного масиву?