Дано натуральное число n; найти n!, используя рекурсию - VB

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

1.Условие задачи: Дано натуральное число n; найти n!. Использовать программу, включающую рекурсивную процедуру вычисления n! Помогите пожалуйста изменить код задачи с Delphi на Visual Basic.
Function Factorial(n:integer):longint;
begin
 if (n = 0)
  then result:=1
  else result:=n*Factorial(n-1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var N:integer;
begin
 N:=strtoint(Edit1.Text);
 Label3.Caption:='n! = '+IntToStr(Factorial(N));
end;
end.

Код к задаче: «Дано натуральное число n; найти n!, используя рекурсию - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы