Как переставить цифры числа в обратном порядке - QBasic

Формулировка задачи:

Написать программу на Бэйсике, которая «реверсируют» заданное целое число, т.е. переставляет цифры числа в обратном порядке.

Решение задачи: «Как переставить цифры числа в обратном порядке»

Листинг программы

DECLARE SUB SWEP (i!, j!)
CLS
DIM SHARED x AS STRING
INPUT "X = "; x
 
n = LEN(x)
FOR i = 1 TO n \ 2
   SWEP i, n + 1 - i
NEXT i
 
PRINT x
END
 
SUB SWEP (i, j)
   DIM x1 AS STRING
   DIM x2 AS STRING
   x1 = MID$(x, i, 1)
   x2 = MID$(x, j, 1)
   MID$(x, i, 1) = x2
   MID$(x, j, 1) = x1
END SUB

Объяснение кода листинга программы

В этом коде представлена функция под названием SWEP, которая переставляет цифры в строке, представляющей собой число. Код начинается с определения функции SWEP с двумя позиционными параметрами i и j. Затем следует очистка экрана и запрос на ввод строки, представляющей собой число. Далее определяется переменная n, которая содержит длину строки. Затем следует цикл, который выполняется до тех пор, пока i меньше или равно n/2. Это гарантирует, что функция будет работать только для чисел, длина которых четная. Внутри цикла вызывается функция SWEP с текущими значениями i и j. По завершении цикла выводится введенная строка. Функция SWEP начинает с определения двух новых переменных x1 и x2, которые будут использоваться для хранения первых и последних цифр, которые нужно поменять местами. Затем функция извлекает эти цифры из исходной строки с помощью функции MID и сохраняет их в переменных x1 и x2. После этого функция меняет местами эти цифры с помощью присваивания. Наконец, функция возвращает исходную строку.