Ребята, помогите с программированием цикла(((

[krale4ka]

S=1+1/2+1/3+....+1/50

Нужно написать алгоритм, а потом запустить прогу в Visual Basic, я в этом полнейший нуб((( Помогите, умоляю... Или меня из колледжа турнут... Жалко слетать из-за этого... Очень жалко, олсобенно будующему переводчику...(((

В общем HELP!!!

[EducatedFool]

Sub СложнейшаяПрограмма()
    For i = 1 To 50: s = s + 1 / i: Next: MsgBox "Сумма равна " & s
End Sub

Посмотри ещё эту тему: http://www.programmersforum.ru/showthread.php?t=49817

Или меня из колледжа турнут... Жалко слетать из-за этого...

Учиться надо было... Или вообще не поступать в колледж...

[krale4ka]

ох, поучились бы вы с моими информатиками)))
Спасибо огромное, теперь я знаю кого боготворить)))

[EducatedFool]

ох, поучились бы вы с моими информатиками)))

Проблема не в преподавателе, а в нежелании учиться...

У меня преподавателем информатики была девочка, которая мало что понимала в Basic-е.
Я взял простейшую книжку по Basic-у, и через неделю знал в 2 раза больше её. И не потому, что я такой умный, а потому, что Basic такой простой...

Для решения твоей задачи достаточно поизучать Basic около 10 минут.

[krale4ka]

Я пыталась, но мой мозг, видимо, не приспособлен к такого плана нгрузкам...
Спасибо Вам большое, что помогли, а то не видать мне следующего года обучения