Написать в VBA через подпрограмму: Написать программу вычисления суммы факториал...

May 2021 1 49 Report

Написать в VBA через подпрограмму:
Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.

Answers & Comments

z31rus

Verified answer

Это основной код макроса с циклом перебора всех нечетных чисел

Sub SummFactorial()
Dim summ As Long
Dim i As Byte
For i = 1 To 9 Step 2
summ = summ + Fact(i)
Next i
MsgBox (summ)
End Sub

а эта функция вызывает сама себя (рекурсия) для расчета факториала

Function Fact(s As Byte) As Long
If s <= 1 Then
Fact = 1
Else
Fact = s * Fact(s - 1)
End If
End Function

и уточните, если нужно, что должно быть в подпрограмме - весь код или только расчет факториала

2 votes Thanks 1

Answers & Comments

Verified answer

paskalsostavit programmu sostoyashuyu iz 2h procedur 1aya eto summa randomnyh chi

reshit neravenstvo c1

ch esli vertikalnaya sostavlyayushayavektora indukcii magnitnogo polya zemli 510 5t

pri kakih x znacheniya funkcii y 05x36 prinadlezhat promezhutku 24 c polny

v zadannoj fraze posle kazhdoj bukvy o vstavit sochetanie vvedennoe s klaviatur

yazyk pascal abc napishite programmu dan dvuhmernyj massiv a1m1n napisat

diagonali ravnobedrennoj trapecii vzaimno perpendikulyarny najti ee ploshad esl

reshite zadachi polnoe reshenie 1 rasschitajte massu osadka kotoraya obrazuetsya

s2 chemu raven modul sily treniya dejstvuyushej na poezd otvet 250000 h

obyasnitepochemu elektromagnitnye volny mogut pronikat skvoz pregrady iz dieled53f5b69894f42ea5ee045d963584fa1 50031

рекомендуемые вопросы

Helpful Links

Helpful Social