Question

Дано n чисел , расставить их в порядке возрастания. Basic.

Answer 1

Var a,b,c,d,e,x: integer;
BEGIN
    readln(a,b,c,d,e);
    if {1} a>b then begin x:=a; a:=b; b:=x;  end;
    if {2} c>d then begin x:=c; c:=d; d:=x;  end;
    if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
    if {4} c>e then
        if {5} b>c then
            if {6} b>d then
                if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
                    else begin x:=e; e:=b; b:=x; end
                else
                if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
                    else begin x:=e; e:=d; d:=b; b:=x; end
            else
            if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x;  end
                else
                if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x;  end
                    else begin x:=e; e:=d; d:=c; c:=x;  end
        else
        if {5} d>e then
            if {6} b>e then
                if {7} b>d then begin x:=e; e:=b; b:=c; c:=x;  end
                    else begin x:=e; e:=d; d:=b; b:=c; c:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x;  end
                    else begin x:=e; e:=d; d:=x;  end
            else
            if {6} b>d then
                if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x;  end
                    else begin x:=b; b:=c; c:=d; d:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x;  end;
    writeln;
    writeln(a,' ',b,' ',c,' ',d,' ',e);
END.

Answer 2

Для расстановки n чисел в порядке возрастания можно использовать алгоритм сортировки. Вам предложу простой алгоритм сортировки пузырьком на языке программирования Basic.

Алгоритм сортировки пузырьком работает следующим образом: он сравнивает соседние элементы и меняет их местами, если они находятся в неправильном порядке. Этот процесс продолжается до тех пор, пока весь массив не будет отсортирован.

Вот пример кода на Basic для сортировки массива чисел:

basicCopy code
' Пример сортировки пузырьком на Basic
DIM nums(100) ' Предположим, что массив может содержать до 100 элементов
n = 10 ' Замените это значение на количество чисел, которые вы хотите отсортировать

' Заполнение массива числами (это можно изменить по своему усмотрению)
nums(1) = 5
nums(2) = 2
nums(3) = 8
nums(4) = 1
nums(5) = 3
nums(6) = 7
nums(7) = 6
nums(8) = 4
nums(9) = 9
nums(10) = 0

' Алгоритм сортировки пузырьком
FOR i = 1 TO n - 1
    FOR j = 1 TO n - i
        IF nums(j) > nums(j + 1) THEN
            ' Меняем элементы местами
            temp = nums(j)
            nums(j) = nums(j + 1)
            nums(j + 1) = temp
        END IF
    NEXT j
NEXT i

' Вывод отсортированного массива
PRINT "Отсортированный массив:"
FOR i = 1 TO n
    PRINT nums(i);
NEXT i

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