Разобрать код вычисления факториала - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. Public Class Form1
  2. Dim k As Integer
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4. Dim res, i, kontr, f As Integer
  5. f = TextBox1.Text
  6. TextBox2.Text = 1
  7. res = Fact(f)
  8. TextBox3.Text = res
  9. kontr = 1
  10. For i = 1 To f
  11. kontr = kontr * i
  12. Next
  13. TextBox4.Text = kontr
  14. End Sub
  15. Function Fact(ByVal N As Long) As Long
  16. Console.WriteLine(N)
  17. Dim m As Integer
  18. If N <= 0 Then
  19. m = 1
  20. Else
  21. TextBox2.Text = TextBox2.Text + 1
  22. m = Fact(N - 1) * N
  23. End If
  24. Console.WriteLine(m)
  25. Return m
  26. End Function
  27. End Class

Решение задачи: «Разобрать код вычисления факториала»

textual
Листинг программы
  1. Function Fact(ByVal N As Long) As Long
  2.     If N <= 0 Then
  3.        return 1
  4.     Else
  5.        return Fact(N - 1) * N
  6.     End If
  7. End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут