Простая СМО - VB
Формулировка задачи:
Привет!
Может быть у кого нибудь лежит простая СМО,если этот кто нибудь поделится, буду очень очень признателен
Решение задачи: «Простая СМО»
textual
Листинг программы
Function p0(p#, k#) As Double Dim i&, f#, Sum# f = 1: Sum = 1 ' Для первого слагаемого: Любое число в степени 0 =1, 0!=1 For i = 1 To k f = f * i Sum = Sum + p ^ i / f Next i p0 = 1 / Sum End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д