Упорядочить символьный массив по алфавиту, используя метод сортировки обменами - Turbo Pascal
Формулировка задачи:
Упорядочить символьный массив А(n), n<50 по алфавиту, используя метод сортировки обменами.
Решение задачи: «Упорядочить символьный массив по алфавиту, используя метод сортировки обменами»
textual
Листинг программы
const size = 15; {массив из 15 элементов} type mas = array[1..size] of char; var a : mas; i : integer; {процедура сортировки "пузырьком"} procedure bubble(var q : mas); var x, y : integer; z : char; begin for x := 1 to size do for y := size downto x do if q[x] >= q[y] then begin z := q[x]; q[x] := q[y]; q[y] := z end end; begin {запоняем массив символами} for i := 1 to size do begin write('введите a[', i, '] = '); readln(a[i]) end; {выводим массив} writeln('массив:'); for i := 1 to size do write(a[i]:4); {вызываем процедуру сортировки} bubble(a); {выводим отсортированный массив} writeln; writeln('отсортированный массив:'); for i := 1 to size do write(a[i]:4); readln end.
Объяснение кода листинга программы
В данном коде создается массив символов размером 15 элементов. Затем определяется процедура пузырьком
для сортировки этого массива.
Далее идет цикл, в котором пользователь вводит символы для массива. После того как все элементы массива заполнены, вызывается процедура пузырьком
для сортировки.
Затем выводится исходный массив и отсортированный массив.
Код предполагает, что пользователь будет вводить символы, не превышающие размер массива. Если бы использовались вложенные списки, то было бы необходимо учитывать их размеры при ограничении количества элементов.