Question

Дана строка рассортировать все символы в алфавитном порядке паскаль

Answer 1

Прикрепил файл с программой

Answer 2

Для сортировки всех символов в строке в алфавитном порядке на языке Паскаль, вы можете использовать следующий код:

program SortStringAlphabetically;
uses SysUtils;

var
  str: string;
  i, j: integer;
  temp: char;

begin
  // Введите строку
  Write('Введите строку: ');
  ReadLn(str);

// Сортировка символов в строке
  for i := 1 to Length(str) - 1 do
  begin
    for j := i + 1 to Length(str) do
    begin
      if str[i] > str[j] then
      begin
        temp := str[i];
        str[i] := str[j];
        str[j] := temp;
      end;
    end;
  end;

// Вывод отсортированной строки
  WriteLn('Отсортированная строка: ', str);
end.

Этот код сначала запрашивает у пользователя ввод строки. Затем он использует два вложенных цикла для сравнения символов и их перестановки, если они находятся в неправильном порядке. В результате получается отсортированная строка, которая выводится на экран.

Пример:

Введите строку: Паскаль
Отсортированная строка:  ́аЁлнск

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

Пример:

program SortStringAlphabetically;
uses SysUtils;

var
  str: string;
  i, j: integer;
  temp: char;

begin
  // Введите строку
  Write('Введите строку: ');
  ReadLn(str);

// Сортировка символов в строке
  for i := 1 to Length(str) - 1 do
  begin
    for j := i + 1 to Length(str) do
    begin
      if LowerCase(str[i]) > LowerCase(str[j]) then
      begin
        temp := str[i];
        str[i] := str[j];
        str[j] := temp;
      end;
    end;
  end;

// Вывод отсортированной строки
  WriteLn('Отсортированная строка: ', str);
end.

Пример:

Введите строку: Pascal
Отсортированная строка: aclsP

Этот код сначала преобразует все символы в нижний регистр с помощью функции `LowerCase`, а затем выполняет сортировку.