ие двовімірного масива можна здійсніті задає тип масиву або безпосередно змінну типу масив. p> Індивідуальне Завдання.
Скласти програму на мові Pascal розв'язку даної задачі та Виконання ее на ЕОМ. Передбача Виведення на очищень екран масівів у вігляді матріці та результатів обчислень, супроводиться їх необхіднімі пояснень.
Задача 1.
Обчісліті максимального значення Із добутку ЕЛЕМЕНТІВ шкірного Із стовпчіків масива К (6,4).
Завдання 2.
знайте на ї більшій та найменший елєменти масиву А (5,5) та поміняті їх місцямі. Вивести масив порядках.
Задача 1:
program masiv_1;
uses
crt;
var
k: array [1 .. 6,1 .. 4] of integer;
i, j, max: integer;
dob: array [1 .. 4] of real;
begin
clrscr;
for i: = 1 to 6 do
for j: = 1 to 4 do begin
write ('Введiть елемент K [', i, ',', j, '] =');
readln (k [i, j]);
end;
for j: = 1 to 4 do begin
dob [j]: = 1;
for i: = 1 to 6 do dob [j]: = dob [j] * k [i, j];
end;
max: = 1;
for j: = 1 to 4 do if dob [max]
for i: = 1 to 6 do begin
for j: = 1 to 4 do write (k [i, j], '');
writeln;
end;
for j: = 1 to 4 do write (dob [j]: 3:1, '');
writeln;
write ('Максимальний добуток в стовпцi з номером', max);
writeln ('i дорiвнюї', dob [max]: 3:1);
end.
Р Е З У Л Ь Т А Т І О Б Ч І З Л Е Н Ь П Р О Г Р А М І:
22 3 3 3
4 5 6 7
3 3 3 32
2 -6 -5 4
-7 2 ​​березня 0
2 3 4 5
-7392.0 -2430.0 -2160.0 0.0
Максимальний добуток в стовбцi з номером 4 i дорiвнює 0.0
Задача 2:
program masiv_2;
uses
crt;
var
a: array [1 .. 5,1 .. 5] of integer;
i, j, max1, max2, min1, min2: integer;
temp: integer;
begin
clrscr;
for i: = 1 to 5 do
for j: = 1 to 5 do begin
write ('Введiть елемент A [', i, ',', j, '] =');
readln (a [i, j]);
end;
max1: = 1;
min1: = 1;
max2: = 1;
min2: = 1;
for i: = 1 to 5 do
for j: = 1 to 5 do begin
if a [max1, max2]
max1: = i;
max2: = j;
end;
if a [min1, min2]> a [i, j] then begin
min1: = i;
min2: = j;
end;
end;
clrscr;
writeln ('Віхiдній масив:');
for i: = 1 to 5 do begin
for j: = 1 to 5 do write (a [i, j], '');
writeln;
end;
temp: = a [max1, max2];
a [max1, max2]: = a [min1, min2];
a [min1, min2]: = temp;
writeln ('перетвореності масив:');
for i: = 1 to 5 do begin
for j: = 1 to 5 do write (a [i, j], '');
writeln;
end;
end.
Р Е З У Л Ь Т А Т І О Б Ч І З Л Е Н Ь П Р О Г Р А М І:
Віхiдній масив:
1 2 3 4 травня
6 7 8 9 Лютого
5 березня -3 -6 2
11 Квітня -7 2 ​​Березня
8 9 2 3 лютого
перетвореності масив:
1 2 3 4 травня
6 7 8 9 Лютого
5 березня -3 -6 2
-7 11 квітня 2 Березня
8 9 2 3 лютого
В
3. Складання ПРОГРАМ З використаних ПРОЦЕДУР ТА ФУНКЦІЙ
Підпрограма - це пойменована, логічно закінчена група Операторів, якові можна віклікаті для Виконання довільну кількість разів з різніх місць програми.
У мові Pascal в роли підпрограм Використовують процедури и Функції. Функція представляет собою групу Операторів, в результаті Виконання якіх обчіслюється Одне значення, а что прісвоюється значень Функції.
Опіс Функції здійснюється за помощью ключового слова FUNCTION ім'я, а в дужках змінні. p> Процедура на відміну від Функції может повертаті в програму Одне, декілька б або не повертаті жодних значення. У заголовку после ключового слова PROCEDURE ім'я, а в дужках змінні Зі своими описание.
Індивідуальне Завдання.
Скласти програму на мові Pascal розв'язку даної задачі та Виконання ее на ЕОМ. Передбача Виведення на очищень екран результатів обчислень, супроводиться їх необхіднімі пояснень.
Задача 1.
Дано масив С (5,4). Зформувати новий масив До, шкірні елемент Якого дорівнює відповідному елементами масива С, поділеному на ФАКТОРІАЛ суми его індексів. Надрукувати масив К по рядках, підрахувавші кількість его ЕЛЕМЕНТІВ, значення якіх...
