Exercice VB: Calcule de la Factorielle
Ecrire le code en VB qui permet de calculer la Factorielle
Exemple :
- 1! = 1
- 2! = 1 × 2 = 2
- 3! = 1 × 2 × 3 = 6
- 4! = 1 × 2 × 3 × 4 = 24
- 10! = 1 × 2 × 3 × 4 × 5 × 6 × 7 × 8 × 9 × 10 = 3 628 800
1234567891011121314151617181920212223 | Module factorielles Sub Main() Dim i, val, fact As Integer Dim rep As String Do Console.WriteLine("saisir un nombre") val = Console.ReadLine() If val = 0 Then Fact = 1 End If fact = 1 For i = 1 To val fact = fact * i Next Console.WriteLine("la factorielle de val est=" & fact & "*" & i & "=" & fact * i) Console.ReadLine() Console.WriteLine("voulez-vous contuner O/N") rep = Console.ReadLine Loop Until rep = "N" End SubEnd Module |