Question

Дана строка,выбрать из нее все цифры и упорядочить по возрастанию.(паскаль АВС)

Answer 1

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

Пример кода на Pascal:

program ExtractAndSortDigits;

var
  inputString: string;
  digits: array of Integer;
  i, j, temp: Integer;

procedure ExtractDigits(inputStr: string; var digitArray: array of Integer);
var
  i, digit: Integer;
begin
  SetLength(digitArray, 0); // Обнуляем массив перед началом

for i := 1 to Length(inputStr) do
  begin
    if (inputStr[i] >= '0') and (inputStr[i] <= '9') then
    begin
      // Если символ - цифра, добавляем ее в массив
      digit := StrToInt(inputStr[i]);
      SetLength(digitArray, Length(digitArray) + 1);
      digitArray[High(digitArray)] := digit;
    end;
  end;
end;

begin
  Write('Введите строку: ');
  Readln(inputString);

ExtractDigits(inputString, digits);

// Сортировка цифр по возрастанию (например, пузырьковая сортировка)
  for i := 0 to High(digits) - 1 do
    for j := 0 to High(digits) - i - 1 do
      if digits[j] > digits[j + 1] then
      begin
        // Обмен элементов
        temp := digits[j];
        digits[j] := digits[j + 1];
        digits[j + 1] := temp;
      end;

// Вывод отсортированных цифр
  Write('Цифры в возрастающем порядке: ');
  for i := 0 to High(digits) do
    Write(digits[i], ' ');

Readln;
end.

Программа сначала извлекает все цифры из введенной строки, затем сортирует их по возрастанию и выводит результат. Пожалуйста, учтите, что этот код просто демонстрирует идею и может потребовать доработок в зависимости от ваших конкретных требований и условий.