Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] вычислить прогрессию факториала

Автор: dasha96 13.9.2014, 12:59

Привет ребята:*
Учусь на менеджменте, в компьютерах вообще никогда не разбиралась( а тут началось программирование на VB 6.0., очень уж сложно дается, помогите кто чем может если не трудно
4. Вычислить s = 1! + 2! + ... + 6!
Если кто вдруг поможет сделайте пояснительные записки чтоб хоть как то разобралась

Автор: Akina 14.9.2014, 19:56

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: dcc0 14.9.2014, 23:11

Там 873 должно получиться? = ) Ночь, голова варит с трудом.
На php:

Код


<?
$i=0;
$c=1;
$a=1;

while($i++<5) {
++$c;
$a*=$c;;
$b+=$a;

}
echo $b+1;
?>

Переложить труда не составит.

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/vychislit-progressiyu-faktoriala-id541415a3ae201544128b4571#findElement_E7045_5415f67bae2015e5653171ce_0

Автор: Sanaff 20.9.2014, 20:46

как я понимаю, так надо:

Код


Dim i, Ns As Byte
Dim S As Long, F As Long
S = 0
For Ns = 1 To 6
  F = 1
  For i = 1 To Ns
    F = F * i
  Next i
  S = S + F
Next Ns
MsgBox(S)

Если ещё что надо - обращайтесь