Вычислить выражения, используя для организации цикла операторы FOR … NEXT - QBasic (27252)

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

Кто какие сможет. Там их несколько

Решение задачи: «Вычислить выражения, используя для организации цикла операторы FOR … NEXT»

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

DECLARE FUNCTION f! (n!)
CLS
INPUT "N = "; n
 
max = 1
 
FOR i = 2 TO n - 1
   k = f(i)
   IF max < k THEN
      max = k
      j = i
   END IF
NEXT i
 
PRINT "M ="; j
END
 
FUNCTION f (n)
   s = 1
   FOR i = 1 TO n / 2
      IF n MOD i = 0 THEN s = s + i
   NEXT i
   f = s
END FUNCTION

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

Выполняемый код на языке QBasic содержит две основные части:

Основная программа
Функция
- Номер 1: Объявление функции f с параметром n
- Номер 2: Ввод значения переменной n с помощью оператора INPUT
- Номер 3: Инициализация переменной max значением 1
- Номер 4: Организация цикла с помощью оператора FOR для перебора чисел от 2 до n-1
- Номер 5: Вызов функции f с передачей в нее текущего значения i
- Номер 6: Сравнение значения переменной max со значением k, полученным из функции f
- Номер 7: Обновление значения переменной max, если k больше max
- Номер 8: Обновление значения переменной j, если max изменилось
- Номер 9: Вывод значения переменной j с помощью оператора PRINT
- Номер 10: Конец цикла FOR
- Номер 11: Ввод значения переменной n с помощью оператора INPUT
- Номер 12: Инициализация переменной s значением 1
- Номер 13: Организация цикла с помощью оператора FOR для перебора чисел от 1 до n/2
- Номер 14: Проверка делителей числа n и добавление их к переменной s
- Номер 15: Вывод значения переменной s с помощью оператора PRINT
- Номер 16: Конец цикла FOR
- Номер 17: Вычисление значения переменной f путем присваивания ей значения переменной s
- Номер 18: Конец функции f Значения переменных:
- n: вводится пользователем
- max: значение 1
- k: результат вызова функции f для текущего значения i
- j: значение i, при котором max достигло своего максимального значения
- s: сумма всех делителей числа n
- f: значение s Названия переменных:
- n
- max
- k
- j
- s
- f