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

19 Ноя 2019 в 19:55
323 +1
0
Ответы
1

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

DIM numbers(10)
PRINT "Введите " + STR$(UBOUND(numbers) + 1) + " чисел: "
FOR i = 0 TO UBOUND(numbers)
INPUT numbers(i)
NEXT i
' Сортировка пузырьком
FOR i = 0 TO UBOUND(numbers) - 1
FOR j = i + 1 TO UBOUND(numbers)
IF numbers(i) > numbers(j) THEN
temp = numbers(i)
numbers(i) = numbers(j)
numbers(j) = temp
END IF
NEXT j
NEXT i
PRINT "Числа в порядке возрастания:"
FOR i = 0 TO UBOUND(numbers)
PRINT numbers(i)
NEXT i

Этот код сначала запрашивает у пользователя ввод n чисел, затем сортирует их с помощью сортировки пузырьком и выводит результат в порядке возрастания.

19 Апр 2024 в 01:26
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир