Задание циклов с параметрами

@KoU.CasS · Регистрация: 18.12.2009

Author24 — интернет-сервис помощи студентам

Задание:Дано натуральное число N. Вычислить:
cos1/sin1 * (cos1+cos2)/(sin1+sin2)*...*(cos1+...+cosN)/(sin1+...+sinN)
я написал программу такого плана :

Visual Basic

Sub programm()
Dim i, n As Integer
Dim x, s, p As Single
n = InputBox(" Введите N")
x = InputBox(" Введите x")
s = 0
For i = 1 To n
p = x
p = (Cos(p) / Sin(p))
Cells(1, j) = p
s = s + p
Next i
Range("A1") = " Сумма равна "
Range("A2") = s
End Sub

на что получил комментарий: Неправильно решено! Во-первых в задании cos/sin, а, во-вторых, их аргументы равны номеру итерации. Их не надо вводить...
как подправить программу?

@БурундукЪ · 24.12.2009, 22:52

чо за хрень ты написал?
ща исправлю

Visual Basic

SUB programm()
DIM i, n AS INTEGER
DIM sS,sC, p AS Double
n = InputBox(" Введите N")
sS = 0
sC = 0
p=1
FOR i = 1 TO n
sS=sS+SIN(i)
sC=sC+COS(i)
p = p*sS/sC
Cells(1, j) = sS/sC
NEXT i
Range("A1") = " Произведение равно "
Range("A2") = p
END SUB

@KoU.CasS · 24.12.2009, 23:08 **[ТС]**

ошибка: " application-defined or object defined error" ... воть ...

Добавлено через 13 минут
не по теме: я наверно тебе уже порядком поднадоел) ... просто ваще не знаю VB ... (((

@БурундукЪ · 24.12.2009, 23:56

Visual Basic

Sub programm()
Dim i, n As Integer
Dim sS, sC, p As Double
n = InputBox(" Ââåäèòå N")
sS = 0
sC = 0
p = 1
For i = 1 To n
sS = sS + Sin(i)
sC = sC + Cos(i)
p = p * sS / sC
Range("A" & i) = sS / sC
Next i
Range("A" & (n + 1)) = " Ïðîèçâåäåíèå ðàâíî "
Range("A" & (n + 2)) = p
End Sub

@KoU.CasS 0 / 0 / 0 Регистрация: 18.12.2009 Сообщений: 31
	24.12.2009, 23:08 [ТС]	3
	ошибка: " application-defined or object defined error" ... воть ... Добавлено через 13 минут не по теме: я наверно тебе уже порядком поднадоел) ... просто ваще не знаю VB ... ((( 0

	24.12.2009, 23:56