ано натуральное число n.Вычислить выражение (сумму отношений синусов) на Visual FoxPro

[Марина Володкина]

а можете эту задачу решить в программе visual foxpro?

дано натуральное число n.Вычислить:
( 1/sin1) + (1/(sin1+sin2))+...+(1/(sin1+...+sin n))

[Stilet]

Как-то так:

n=10
s=0
FOR i=1 TO n STEP 1 
 si=SIN(i)
 s=s+1/si;
 
endfor
?s

P.S. Поправился... Давно на лисичке не писал.

[Марина Володкина]

а можете обьяснить почему так?

у меня не срабатывает программа

[Stilet]

а можете обьяснить почему так?
у меня не срабатывает программа

Мадмуазель, вам ранно браться за решение таких задачек. Без знаний элементарной базы фокспро это бесполезно.
Обьяснить я конечно могу, только смысл? Программа в цикле наращивает сумму синусов и сумму элементов выражения. Можно было сделать двумя циклами, но это не оптимально и бестолково.
Теперь по поводу запуска.
Запускаешь фокс. В командной строке пишешь modi comm
Создается пустой файл программы, в него вставляешь мой код. Далее в меню Program пункт Do выполнит программу, и ты увидишь результат на рабочем столе фокса:

[Hoshemit]

В результате получается:

S = 0 + 1/Sin(1) + 1/Sin(2)+ ......+ 1/Sin(n)

[macomics]

Им уже не важно.