Program Example_358;
Uses crt;
Type masiv = array[1..6,1..9] of real;
Var A: Masiv;
i,j:byte; {i,j - змінні циклу}
Sum,max:real;
{Sum — сума елементів таблиці, max — махе. елемент таблиці}
N_max:byte; {Njnax — номер рядка, що містить махс. елемент}
Begin
Randomize;
Clrscr;
Writeln(‘Вихідний масив: ‘);
Fox i:=1 to 6 do
Begin
For j:=1 to 9 do
begin
A[i,j]:=random*12-random(65)/ll; Write(A[i,j]:8:2);
end;
writeln;
End;
{Беремо у якості еталону перший елемент масиву}
mах:=А[1,1];
Nmax:=1; For i:=1 to 6 do
For j:=1 to 9 do
if A[i,j]>max then
Begin max:=A[i,j]; N_max:=i; End;
Writeln(‘Максимальний елемент масиву - ‘,max:8:2);
Sum:=0; {Початкове значення суми}
For j:=1 to n do
Sum: =Sum+A [ N_max, j ] ;
Writeln(*Отримана сума - ‘,Sum:8:2); Readkey;
End.
Домашнє завдання:
• Задачі № 314, № 321, № 350(2), № 353(1), № 355(2), № 360(1), № 361.
Мета уроку: Дати поняття про методи впорядкування табличних величин. Навчити розв’язувати задачі, що потребують сортування.
Теоретичний матеріал
Дуже часто при розв’язуванні задач, пов’язаних з обробкою масивів, необхідно виконувати сортування його елементів за зростанням або спаданням. Такі задачі мають велике практичне значення. Розглянемо деякі з методів, що дають змогу впорядкувати елементи таблиць.
Всі існуючі методи сортування можна поділити на три групи:
• обмінні сортування — виконується обмін між двома (найчастішесусідніми) елементами масивів, якщо відповідні елементи розташовані увихідному масиві невпорядковано; процес повторюється або певну кількість разів, або доки елементи в масиві не стануть впорядкованими;
• методи прямого вибору — в масиві обирається елемент з певнимивластивостями (наприклад, мінімум