Упорядочить символьный массив по алфавиту, используя метод сортировки обменами - 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 элементов. Затем определяется процедура пузырьком для сортировки этого массива. Далее идет цикл, в котором пользователь вводит символы для массива. После того как все элементы массива заполнены, вызывается процедура пузырьком для сортировки. Затем выводится исходный массив и отсортированный массив. Код предполагает, что пользователь будет вводить символы, не превышающие размер массива. Если бы использовались вложенные списки, то было бы необходимо учитывать их размеры при ограничении количества элементов.

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы