Упорядочить символьный массив по алфавиту, используя метод сортировки обменами - Turbo Pascal

Формулировка задачи:

Упорядочить символьный массив А(n), n<50 по алфавиту, используя метод сортировки обменами.

Код к задаче: «Упорядочить символьный массив по алфавиту, используя метод сортировки обменами - Turbo Pascal»

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.

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ