Exercice VB: Calcule de la Factorielle
Rédigé par GC Team, Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 Sub End Module |