QBasic - Как получить значение F

Question

У меня есть следующая формула:

F =  X / 1+4+9+16+....+n^2

Как я могу написать программу на QBasic что найти результат F?

Благодарю.

Answer 1

CLS
INPUT "Input the value of n: ", n%
INPUT "The value of X: ", X
denominator% = 0
FOR i% = 1 TO n%
    denominator% = denominator% + i% ^ 2
NEXT i%
F = X / denominator%
PRINT "F = "; F

Answer 2

На этой полезной странице сумма квадратов первых n натуральных чисел равна:

Так что вам просто нужно рассчитать:

F = X * 6 / (n * (n + 1) * (2 * n + 1))

Answer 3

Множитель мощности:

DEFDBL A-Z
INPUT "Input the value of n: ", n
INPUT "The value of X: ", X
INPUT "The power: ", p
denominator = 0
FOR i = 1 TO n
    denominator = denominator + i ^ p
NEXT
F = X / denominator
PRINT "F = "; F
END