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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Вычисление суммы бесконечного ряда факториала с помощью подпрограммы (GOSUB) (http://www.tehnari.ru/f41/t29094/)

Plastinator

10.10.2009 15:30

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

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

AlexZir

11.10.2009 17:05

Через 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

Часовой пояс GMT +4, время: 02:43.