Exercice VB: code Calcul Mathématique
Rédigé par , Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
Travail à Faire :
- Ecrire un programme qui demande un nombre de départ, et qui ensuite écrit la table de multiplication de ce nombre, présentée comme suit (cas où l'utilisateur entre le nombre 7) :
Exemple: Table de 7:
7 x 1 = 7
7 x 2 = 14
7 x 3 = 21
…
7 x 10 = 70
- Ecrire un programme qui demande un nombre de départ, et qui calcule la somme des entiers jusqu’à ce nombre. Par exemple, si l’on entre 5, le programme doit calculer : 1 + 2 + 3 + 4 + 5 = 15
- Ecrire un programme qui demande un nombre de départ, et qui calcule sa factorielle. NB : la factorielle de 8, notée 8 !vaut 1 x 2 x 3 x 4 x 5 x 6 x 7 x 8
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
1. Module Module1 Dim i, n As Integer Sub Main() Console.Write("Entre la valeur de n : ") n = Console.ReadLine For i = 1 To 10 Console.WriteLine(n & "x" & i & "=" & n * i) Next Console.ReadLine() End Sub End Module 2. Module Module1 Dim i, n, Somme As Integer Sub Main() Console.Write("Entre la valeur de n : ") n = Console.ReadLine Somme = 0 For i = 1 To n Somme = Somme + i Next Console.Write("La somme est : " & Somme) Console.ReadLine() End Sub End Module 3. Module Module1 Dim i, n, factoriel As Integer Sub Main() Console.Write("Entre la valeur de n : ") n = Console.ReadLine factoriel = 1 For i = 1 To n factoriel = factoriel * i Next Console.Write("Le factoriel de " & n & " est : " & factoriel) Console.ReadLine() End Sub End Module |