Презентация на тему Обработка массивов

4. Сортировка элементов массива.

Пример M_O_3: Определение максимальной температуры
Для заполнения массива можно использовать

пример M_2, добавив в описание переменных Tmax. Тогда основная часть задачи имеет следующий вид:

Tmax:=T[1]; k:=1;
For i:=2 to N do
begin
if T[i]>Tmax then
begin
k:=i;
Tmax:=T[i];
end;
end;
writeln(‘ Tmax= ',Tmax, k:3,’ -ий№’);
End.

Поменяем местами найденное максимальное значение и первое значение массива, распечатаем полученный массив.

Пример M_O_3

конец

to N do begin

If T[i]>Tmax then begin
k:=i;
Tmax:=T[i];
end;
end;
{вывод результата обработки массива}
textcolor(4);
writeln('Tmax =',Tmax:5:1, k:3,' номер');
{меняем местами найденное максимальное значение с первым элементом}
T[k]:=T[1];
T[1]:=Tmax;
{вывод нового массива, в котором первый элемент наибольший}
textcolor(1);
For i:=1 to N do Writeln(i:3,T[i]:9:1);
End.

Пример M_O_3Perv

Этот прием можно положить в основу задачи сортировки массива

порядке (по возрастанию, убыванию, последней цифре, сумме делителей, …).

Задача: переставить элементы массива в порядке возрастания.
Алгоритмы:
сортировка выбором
сортировка обменом – «пузырьковая»
сортировка вставками
сортировка подсчетом

место (поменять местами с A[1])
из оставшихся найти минимальный элемент

и поставить на второе место (поменять местами с A[2]), и т.д.

случайными числами из диапазона от -20 до 20, количество

элементов вводиться с клавиатуры. Расположить элементы массива по возрастанию

случайными числами из диапазона от -20 до 20, количество

элементов вводиться с клавиатуры. Расположить элементы массива по возврастаннию.

program M_O_4sor;
uses crt;
Var
T:array[1..365] of real;
k,N,i ,j: integer;
Tmin :real;
Begin
Write( ‘Введите количество дней ‘ );
Readln (N);
textcolor(1);
For k:=1 to N do
begin {заполнение и печать в одном цикле}
T[k] := -20 + Random(41);
Writeln(k:3,T[k]:9:1);
end;

2 часть задачи - обработка массива показана далее

1 часть задачи - описание и заполнения массива

begin
Tmin :=T[ j ];

k:= j ;

For i:=j+1 to N do
begin
If T[i]< Tmin then
begin
k:=i;
Tmin :=T[i ];
end;
end;
T[k]:=T[ j ];
T[ j ]:= Tmin;
end;

For j:=1 to N do

{3 часть задачи - вывод нового массива}
For k:=1 to N do Writeln(k:3,T[k]:9:1);
End.

Пример M_O_4

элементов по заданному признаку.
3. Поиск максимального (минимального)

элементов.
4. Сортировка элементов массива.