Программирование алгоритмов циклической структуры

[Джина]

Здравствуйте! Помогите пожалуйста решить задачку:
Вычислить сумму конечного ряда сумма от i=1 до n (i+10)!/i^5 с помощью подпрограммы-процедуры.

[Джина]

Пожалуйста помогите!
Это решается так:
Sub summa()
Dim S As Single
Dim k As Integer
S = 0
k = 1
Do While k <= ...(n) (но я не уверенна)
......... (здесь нужно выразить факториал)
S = S + ....(факториал)/i^5
k = k + 1
Loop
MsgBox (S)
End Sub

[Джина]

Я наверно не туда обращаюсь, да?

[Sla]

те ты не знаешь как вычислить факториал?
факториал - эта та же сумма только со знаком *

смотри

факториал = 1
цикл переменная=1 до конца с шагом 1 делать
  факториал = факториал * переменная
конец цикла

в данной задаче вместо цикла Do While
можно использовать цикл for

[Sla]

Джина, не уходи

зы мы ее теряем (с)

[Джина]

я здесь. я думаю)

[Джина]

Я поняла, что факториал выражается так:
k=1
i=i+10
For i=2 To n
k=k*i
Next
Но у меня факториал- (i+10)!

[Sla]

Джина,
Что такое факториал?

Пока ты думаешь приведу пример

5!  => 1*2*3*4*5
(2+5)! = 1* 2 * .... * (2+5)

(i+10)! 1*2 * ... продолжи сама

Если ты написала процедуру для вычисления суммы,
то напиши процедуру/функцию для вычисления факториала

[Джина]

мой факториал:
(i+10)! 1*2 * ...(i*10)
но как мне его записать в программе?
не пойму...((((

[Sla]

Джина, не правильно!

последний множитель должен быть i+10

[Джина]

ок
но как записать это в модуле?

[Джина]

з.ы. это я зачиталась!)

[Джина]

Sub summa()
Dim S As Single
Dim i As Integer
S = 0
i = 1
Do While i <= n
k = 1
For i = 2 To n
l = i + 10
k = l * i
Next
S = S + k / i ^ 5
k = k + 1
Loop
MsgBox (S)
End Sub

[Sla]

Код:

Sub summa()
Dim S As Single
Dim i As Integer
S = 0
i = 1
Do While i <= n
k = 1
For i = 2 To n
l = i + 10
k = l * i
Next
S = S + k / i ^ 5
k = k + 1
Loop
MsgBox (S)
End Sub

Ой! что это?

давай упростим, потому как с первой частью ты справилась
Когда подступила к факториалу то все пошло наперекосяк

Задача
написать функцию вычисления факториала

напомню

Код:

Function <Имя функции> [As тип]
<Операторы>
End Function

[Джина]

Function Factorial() As Integer
k = 1
For i=1 To i+10
Factorial=k
End Function

[Sla]

Джина, вот ты привела код
а проверила его в работе?

Такой код работать будет, но вечно! и следовательно, неправильно

Начинай с начала До утра времени много

[Джина]

а я думала Вы мне поможете...((((((

[Sla]

Джина, а я что делаю?
1. Адгоритм вычисления факториала - показал
2. Подсказал как написать функцию

или ты считаешь что я тебе код напишу?


зы неужели мы опять ее теряем?

[Джина]

Sub summa()
Dim S As Single
Dim i As Integer
S = 0
i = 1
Do While i <= 10
Function Factorial() As Integer
k = 1
For i = 1 To i + 10
Factorial = k
End Function
k = k * i
Next
S = S + k / i ^ 5
k = k + 1
Loop
MsgBox (S)
End Function

Вы подчерките мне, где ошибка!
Почему мне выводят 0?

[Джина]

Ну пожалуйста, неужели Вам так сложно?

[Sla]

Код:

Function Factorial(num as целое) As Integer
Factorial = 1
For i = 1 To num
Factorial  = Factorial * i
next i
End Function


Sub summa()
S = 0
i = 1
Do While i <= 10
S = S + Factorial(i+10)
i= i+10
Loop

[Джина]

спасибо, но всё равно подчеркивает i<=10

[Джина]

Sub summa()
Dim S As Integer
Dim i As Integer
S = 0
i = 1
Do While i <= 10
Function Factorial(num As Integer)
Factorial = 1
For i = 1 To num
Factorial = Factorial * i
Next i
End Function
S = S + Factorial(i + 10)
i = i + 10
Loop
End Sub

[Sla]

спасибо, но всё равно подчеркивает i<=10

Кто подчеркивает?
и какое сообщение при подчеркивании?

[Джина]

Complite Error
Expected End Sub

[Sla]

Expected End Sub


словарь в руки!


зы, извини, но я специально!!! сделал ошибку

[Джина]

Знаете, если это называется помощью, то извините! Вы весь вечер сидите и тыкаете мне, чтобы я что-то почитала, как будто я на этот форум от балды зашла. Вам 46 лет, а мне 18, и вам, извиняюсь за выражение, "в падлу" мне нормально ответить на мой первоначальный вопрос!

[Sla]

Джина, не в падлу, говоря твоим языком. Ты пришла за помощью, показала что можешь, я показал тебе что надо еще смочь

Да, сделал ошибку, специально. Потому как ошибка несущественна к решению.
Ты же не хочешь даже перевести код ошибки (я не учила английский - как аргумент не принимается - при наличии сервисов перевода)
Тогда мне с тобой не по пути

[Джина]

Я прекрасно это понимаю, но почему не принимается?!

[Джина]

зы Зачем делать ошибки, когда помогаешь человеку?