Найти сумму ряда для х=0.3S=1+x*ln5/1!+(x*ln5)^2/2…….+(x*ln5)/n! e=0.01 (a)=- QBasic(Бейсик)

CLS
INPUT "n"; n
INPUT "x"; x
s = 1
fack = 1
FOR i = 1 TO n
s = s + (x * (LOG(EXP(5)))) ^ i / fack
NEXT i
PRINT s
f = s / .01
l = INT(f)
x = l * .01
PRINT x

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment