Exercice VB: code Calcul Mathématique

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

Travail à Faire :

  1. 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

  1. 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
  2. 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