Дано натуральное число n; найти n!, используя рекурсию - VB
Формулировка задачи:
1.Условие задачи:
Дано натуральное число n; найти n!. Использовать программу, включающую рекурсивную процедуру вычисления n!
Помогите пожалуйста изменить код задачи с Delphi на Visual Basic.
Решение задачи: «Дано натуральное число n; найти n!, используя рекурсию»
textual
Листинг программы
Function Factorial(N As Integer) As Long If N = 0 Then Factorial = 1 Else Factorial = N * Factorial(N - 1) End Function Private Sub Command1_Click() Dim N As Integer N = Text1.Text Label3.Caption = "n! = " & Factorial(N) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д