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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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);

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы