Дорогие 9-классники!
Предлагаю вашему вниманию еще один тип задач на массивы «Сортировка элементов массива».
Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл (включает вложенный цикл) используем для обработки элементов массива (элемент, находящийся на первом месте сравниваем со всеми последующими, при необходимости, меняем местами, и т.д.).
3. В третьем цикле выводим полученный результат на экран.
Изучите внимательно пример, протестируйте программу в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет переписывать все элементы данного массива в порядке возрастания.
Решение
Program sortirovka;
VAR A: array [1 . . 10] of integer;
i, j, k: integer;
Begin
Randomize;
For i: =1 to 10 do
Begin
A[i]: = Random (20) – Random (20);
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
For i: = 1 to 9 do
Begin
For j: = i+1 to 10 do
Begin
IF A[i] > A[j] THEN
Begin
k: = A[i];
A[i]: = A[j];
A[j]: = k;
End;
End;
End;
Writeln (‘Отсортированный массив’);
For i: =1 to 10 do
Writeln (‘A[’, i, ‘]=’, A[i]);
End.
Желаю удачи!
Предлагаю вашему вниманию еще один тип задач на массивы «Сортировка элементов массива».
Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл (включает вложенный цикл) используем для обработки элементов массива (элемент, находящийся на первом месте сравниваем со всеми последующими, при необходимости, меняем местами, и т.д.).
3. В третьем цикле выводим полученный результат на экран.
Изучите внимательно пример, протестируйте программу в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет переписывать все элементы данного массива в порядке возрастания.
Решение
Program sortirovka;
VAR A: array [1 . . 10] of integer;
i, j, k: integer;
Begin
Randomize;
For i: =1 to 10 do
Begin
A[i]: = Random (20) – Random (20);
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
For i: = 1 to 9 do
Begin
For j: = i+1 to 10 do
Begin
IF A[i] > A[j] THEN
Begin
k: = A[i];
A[i]: = A[j];
A[j]: = k;
End;
End;
End;
Writeln (‘Отсортированный массив’);
For i: =1 to 10 do
Writeln (‘A[’, i, ‘]=’, A[i]);
End.
Желаю удачи!
Комментариев нет:
Отправить комментарий