Кто любит замудренные задачи?

[Mystf0rse]

У меня к вам вопрос - будет ли на бейсике(турбо) работать программа
(Вычислить sin1+sin2+sin3+...+sinN)

Я написал, но есть сомнения

cls
a=1
b=sin(a)
For a=1 to n step 1
b=sin(a)+sin(a)
Next a
print "ОТВЕТ"; b
end

Еще одна проблема возникла с другой задачей, где
cos1*cos3*cos3*...*cos(2n-1)

Нужно составить алгоритм

Вычисление куба суммы всех четных чисел от 2 до 100. (2,100]

Вычисление суммы кубов всех нечетных чисел от 101 до 301. [101,301]

[Алекс]

Код: Выделить всё

'СИНУСЫ
cls
b=0
Print("Введите N:")
Input n
For a=1 to n
b=b+sin(a) 'Подразумевается что а в радианах
next
Print ("Ответ ")
Print b
End


Код: Выделить всё

'КОСИНУСЫ
cls
b=1
Print("Введите N")
input n
For a=1 to n
b=b*cos(a) ' a в радианах
next
Print("Ответ ")
Print b
End


Код: Выделить всё

'Куб суммы
cls
b=0
for a=4 to 100 step 2
b=a + b
next
Print("Ответ")
Print b*b*b
end


Код: Выделить всё

'Сумма кубов
cls
b=0
For a=101 to 301 step 2
b=b + a*a*a
next
Print("Ответ")
Print b
end


На Turbo и Quick Basic'e всё работает

[Mystf0rse]

Во первых огромное тебе спасибо, сам бы я не дошел так быстро.
Во вторых Алекс свяжись, если тебе не трудно, есть еще проблема
mystforse@students.ru
[/url]

[Алекс]

E-mail:
Steblievka@mail.ru
или
Esin2003@mail.ru