Вычисление суммы бесконечного ряда факториала с помощью подпрограммы (GOSUB)

[Plastinator]

Вычисление суммы бесконечного ряда факториала с помощью подпрограммы (GOSUB)

Нужно написать прогу на Васике для подсчета суммы факториалов вида 1!+2!+3!+....n! с помощью подпрограммы (Gosub) и с помощью процедуры (call). (2 способа). Очень надеюсь на помощь
P.S: Программы с помощью цикла For - Next не предлагать, сами умеем

 

[AlexZir]

Через GOSUB

input"vvedite znachnie parametra N",n
i=0: s=0: p=1
10 i=i+1
gosub 20
s=s+p
if i=n then print"summa =";s else goto 10
end
20 p=p*i: return

Через call - (не проверял)

 declare sub fakt(i,p)
input"vvedite znachenie parametra N",n
i=0: s=0: p=1
10 i=i+1
call fakt(i,p)
s=s+p
if i=n then print"summa=";s else goto 10
end
Добавить новый SUB и прописать в нем
sub fakt(i,p)
p=p*i
end sub