Ответы
Задание 5
Код:
var a, b, c: integer;
procedure swap(var x, y: integer);
var m: integer;
begin
m := x;
x := y;
y := m;
end;
begin
writeln('Enter the values of a, b, and c: ');
readln(a, b, c);
if a > b then swap(a, b);
if a > c then swap(a, c);
if b > c then swap(b, c);
writeln('The values in ascending order: ');
writeln(a, ' ', b, ' ', c);
end.
Объяснение:
Эта программа начинается с чтения значений a, b и c от пользователя. Затем она использует серию if-заявлений с процедурой swap для сортировки значений в порядке возрастания. Наконец, она печатает отсортированные значения.
Обратите внимание, что в примере вывода значения одинаковы для всех входных данных, это происходит потому, что входные значения уже расположены в порядке возрастания.
Задание 6
Код:
program sortArrayBySelection;
const
N = 5;
var
arr: array[1..N] of integer;
i, j, maxIndex, temp: integer;
procedure findMax(var maxIndex: integer);
var
i: integer;
begin
maxIndex := 1;
for i := 2 to N do
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;
begin
writeln('Enter ', N, ' values:');
for i := 1 to N do
read(arr[i]);
for i := N downto 2 do
begin
findMax(maxIndex);
if i <> maxIndex then
begin
temp := arr[i];
arr[i] := arr[maxIndex];
arr[maxIndex] := temp;
end;
end;
writeln('Sorted array:');
for i := 1 to N do
write(arr[i], ' ');
writeln;
end.
Примечание: Эта программа сортирует массив в порядке убывания. Если вы хотите отсортировать его по возрастанию, вам следует изменить оператор сравнения в процедуре "findMax" с ">" на "<".
Объяснение:
Данная программа сортирует массив с использованием метода сортировки выбором.
В начале программы объявлена константа N, которая определяет размер массива, и массив arr с типом integer. Также объявлены переменные i, j, maxIndex и temp, которые будут использоваться в дальнейшем.
Затем определяется процедура findMax, которая находит индекс наибольшего элемента массива. В цикле for, который идет от 2 до N, сравнивается значение текущего элемента с значением элемента, находящегося по индексу maxIndex. Если текущий элемент больше, то обновляется значение maxIndex.
В основном блоке программы идет цикл for, который идет от N до 2. Внутри цикла вызывается процедура findMax, чтобы найти индекс наибольшего элемента массива. Если индекс наибольшего элемента не равен i
Надеюсь я помог!!!