Напишите программу для сортировки пяти слов вводимых пользователем по невозрастанию в паскале

15 мая 2025

Базы данных

Условие:

Решение:

Конечно, вот пример программы на языке Pascal для сортировки пяти слов, введенных пользователем, в порядке невозрастания:

program SortWords;

var
  words: array[1..5] of string;
  i, j: integer;
  temp: string;

begin
  // Ввод слов от пользователя
  writeln('Введите пять слов:');
  for i := 1 to 5 do
  begin
    write('Слово ', i, ': ');
    readln(words[i]);
  end;

  // Сортировка слов в порядке невозрастания
  for i := 1 to 4 do
  begin
    for j := i + 1 to 5 do
    begin
      if words[i] < words[j] then
      begin
        temp := words[i];
        words[i] := words[j];
        words[j] := temp;
      end;
    end;
  end;

  // Вывод отсортированных слов
  writeln('Отсортированные слова в порядке невозрастания:');
  for i := 1 to 5 do
  begin
    writeln(words[i]);
  end;

  readln;
end.

Программа запрашивает у пользователя пять слов и затем сортирует их в порядке невозрастания с помощью алгоритма сортировки пузырьком. Затем отсортированные слова выводятся на экран.

Обратите внимание, что в данном примере предполагается, что пользователь будет вводить только слова, а не числа или другие символы. Если требуется обработка других типов данных, код программы может потребовать доработки.