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

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


textual

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

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



Похожие ответы
  1. Здравствуйте, уважаемые программисты...задача такова... требуется упорядочить массив строк по возрастанию частоты повторов... например массив такой rock, join, com, join, rock, join... после работы программа должна вывести вот такой результат com rock join Заранее спасибо!)

  1. В файл записать некоторый текст, заканчивающийся знаком ";". Все слова текста упорядочить по количеству букв в порядке возрастания длины слов методом вставки.Вывести полученную последовательность слов. Для сравнения результатов обработки текста обязательно присутствие исходного текста на экране.Прошу помочь срочно Добавлено через 21 час 47 минут up срочноДобавлено через 52 секунды up срочноДобавлено через 17 часов 44 минуты Up срочноДобавлено через 3 часа 10 минут Помогите пожалуйста срочненько!!!

  1. Упорядочить три числа x, y, z по возрастанию так, чтобы перемен- ной с именем х соответствовало самое малое из чисел x, y, z, y – среднее, а z – наибольшее.

  1. Дана матрица размером n*m. Упорядочить по возрастанию элементы каждой строки матрицы. Заранее спасибо за помощь!Добавлено через 8 часов 22 минуты Срочно помогите пожалуйста!

  1. Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые два соседних элемента, нарушающие порядок. Процесс завершается по достижении упорядоченности массива

  1. т.е. отсортировать не сами последние элементы,а поменять местами строки, чтобы последние элементы были отсортированы. Заранее благодарю за помощь.

  1. Не компилируется! Помогите что не так в програме, Не могу сделать условие чтобы сортировало только числа кратные 5 Составить программу, по которой: 1) заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999]; 2) вывести элементы массива на экран в строку; 3) упорядочить диапазон элементов массива при следующих условиях: Диапазон элементов массива: Первый :8 Последний:38 Метод упорядочения: выбором Свойства элементов массива: кратные 5

  1. Здравствуйте, прошу помощи с заданием. вводятся n (кол-во слов) и f (направление перевода 1 или 0) f=0 означает перевод с языка символов на английский, а f=1 – перевод с английского на символьный. Следующие n строк содержат по два слова – слово из языка символов и его перевод на английский. Следующая (последняя) строка ввода содержит последовательность слов на символьном (f=0) или на английском (f=1) языке. Слова разделены одним пробелом. Вывести перевод последовательности слов на английский (f=0) или на символьный (f=1) язык. Если какое-то слово отсутствует в словаре, то вывести вместо перевода символ ? пример: 5 0 >< home ~ eat >= good ()@ go !> work введенная строка !> ~ ()@ >< work eat go home ?

  1. Создать массив -телефонный справочник ,хранящий информацию о 15 абонентах сотовой сети.Каждый элемент справочника хранит следующую информацию об абонентах:ФИО,номертелефона,адрес регистрации,состояние баланса. Упорядочить массив по фамилиям ,имени,отчеству абонентов.Проверить ,если абоненты,имеющие несколько номеров.Составить одномерный массив из сведений об уникальных абонентах.Уникальность абонента определяется его ФИО и адресом регистрации.

  1. 1) Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке (оформить в виде процедуры). Помогите пожалуйста!!))Добавлено через 57 минут