Exercice VB: code Calcul Mathématique
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
| 12345678910111213141516171819202122232425262728293031323334353637383940414243 | 1.Module Module1Dim i, n As IntegerSub Main()Console.Write("Entre la valeur de n : ")n = Console.ReadLineFor i = 1 To 10Console.WriteLine(n & "x" & i & "=" & n * i)NextConsole.ReadLine()End SubEnd Module 2.Module Module1Dim i, n, Somme As IntegerSub Main()Console.Write("Entre la valeur de n : ")n = Console.ReadLineSomme = 0 For i = 1 To nSomme = Somme + iNextConsole.Write("La somme est : " & Somme)Console.ReadLine()End SubEnd Module 3.Module Module1Dim i, n, factoriel As IntegerSub Main()Console.Write("Entre la valeur de n : ")n = Console.ReadLinefactoriel = 1For i = 1 To nfactoriel = factoriel * iNextConsole.Write("Le factoriel de " & n & " est : " & factoriel)Console.ReadLine()End SubEnd Module |