Question

Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений. На паскале пожалуста!

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  ReadlnString('Вводите:').ToReals.OrderBy(x->x).Println
end.

Тестовое решение:
Вводите: 35.53  -34.14  -18 0 6e-1 3.14 23.2 -2.34e-3
-34.14 -18 -0.00234 0 0.6 3.14 23.2 35.53

Answer 2

Конечно, вот пример решения данной задачи на языке Паскаль:

pascalCopy code
program SortNumbers;
var
  str: string;
  numbers: array of integer;
  i, j, temp: integer;
begin
  // Ввод строки символов
  writeln('Введите строку чисел:');
  readln(str);
  
  // Разделение строки на числа
  str := Trim(str); // Удаление лишних пробелов в начале и конце строки
  i := 1;
  while i <= Length(str) do
  begin
    // Поиск чисел в строке
    while (i <= Length(str)) and (str[i] = ' ') do
      i := i + 1;
      
    if i <= Length(str) then
    begin
      // Найдено число, добавляем его в массив
      SetLength(numbers, Length(numbers) + 1);
      numbers[Length(numbers)] := StrToInt(Copy(str, i, Pos(' ', str + ' ', i) - i));
      i := Pos(' ', str + ' ', i) + 1;
    end;
  end;
  
  // Сортировка чисел в массиве
  for i := 1 to Length(numbers) - 1 do
  begin
    for j := i + 1 to Length(numbers) do
    begin
      if numbers[i] > numbers[j] then
      begin
        temp := numbers[i];
        numbers[i] := numbers[j];
        numbers[j] := temp;
      end;
    end;
  end;
  
  // Вывод чисел в порядке возрастания
  writeln('Числа в порядке возрастания:');
  for i := 1 to Length(numbers) do
    writeln(numbers[i]);
  
  readln;
end.

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