Найти трёхзначное число, которое первым встретится дважды - QBasic

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

Найти трёхзначное число, которое первым встретится дважды Условие задачи 1. Дан ряд чисел ln2, ln3, ln4, ln5, ln6, ln7, ... (длина не определена) то есть количество чисел вы должны взять столько, сколько нужно для решения задачи 2. Этот ряд преобразуется в следующий ряд по алгоритму. Поскольку числа вещественные, то надо после десятичной точки взять три цифры, которые образуют в общем случае трёхзначное натуральное число. 3. Эти числа и образуют новый ряд 4. Теперь надо найти в этом ряду такое число, которое первым встретится (считая с самого начала) два раза ... Вывести на экран это число и его местонахождение (два места)

REM
REM   i1 = 32, i2 = 87
REM
REM  x(32) = x(87) = 465
REM
 
CLS
DIM x(2 TO 1001)
 
FOR i = 2 TO 1001
   A = LOG(i)
   B = A - INT(A)
   C = 1000 * B
   D = INT(C)
   x(i) = D
NEXT
 
i1 = 2
i2 = 1001
 
FOR i = 2 TO 1000
FOR j = i + 1 TO 1001
   IF x(i) = x(j) THEN
      IF i2 > j THEN
         i1 = i
         i2 = j
      END IF
   END IF
NEXT j, i
 
PRINT x(i1); x(i2); i1; i2
END

Решение задачи: «Найти трёхзначное число, которое первым встретится дважды»

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

CLS
DIM a(1000), b(1000, 10)
k = 1
DO
d = LOG(k)
c = INT((d - INT(d)) * 1000)
a(c) = a(c) + 1: b(c, a(c)) = k
k = k + 1
LOOP UNTIL a(c) = 2
PRINT c; b(c, 1); b(c, 2);

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

CLS — очистка экрана
DIM a(1000) — создание массива a размером 1000 ячеек
DIM b(1000, 10) — создание массива b размером 1000 строк и 10 столбцов
k = 1 - начальное значение переменной k
DO — начало цикла
d = LOG(k) — вычисление логарифма по основанию e от числа k и сохранение результата в переменной d
c = INT((d — INT(d)) * 1000) — вычисление целой части от деления (d — целая часть от d) на 1000 и сохранение результата в переменной c
a(c) = a(c) + 1 - увеличение значения элемента массива a(c) на 1
b(c, a(c)) = k — сохранение значения переменной k в элементе массива b(c, a(c))
k = k + 1 - увеличение значения переменной k на 1
LOOP UNTIL a(c) = 2 - продолжение цикла до тех пор, пока значение переменной a(c) не станет равным 2
PRINT c; b(c, 1); b(c, 2) — вывод на экран значения переменной c и первых двух элементов массива b(c,)