Exercice VB: Les Suites

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 22:36
Participez au vote ☆☆☆☆☆★★★★★

Objectif :

Travailler avec les Suites et Fonctions. 

Travail à Faire : 

1. Donnez un programme pour calculer :

              S = 30 + 31 + 32 + ……. + 3n-1

2. Donnez un programme pour calculer :

                  S = 1 + X2 + X4 +…... + X2n 

3. Donnez un programme pour calculer :

           S = 1 + 1/2 + 1/3 + …………+ 1/n

4. Donnez un programme pour calculer :

    S = 1 + 1/2 + 1/4 + 1/6 + …….. + 1/2n

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

1.
Module Module1
Dim P, i, S As Integer
Sub Main()
Console.Write("Entrez la puissance : ")
P = Console.ReadLine
S = 0
For i = 1 To P
S = S + (3 ^ (i - 1))
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim P, i, S, X As Integer
Sub Main()
Console.Write("Entrez la Valeur de x : ")
X = Console.ReadLine
Console.Write("Entrez la puissance : ")
P = Console.ReadLine
S = 0
For i = 0 To P
S = S + (X ^ (i * 2))
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim N, i, S As Double
Sub Main()
Console.Write("Entrez la valeur de N : ")
N = Console.ReadLine
S = 0
For i = 1 To N
S = S + (1 / i)
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Dim N, i, S As Double
Sub Main()
Console.Write("Entrez la valeur de N : ")
N = Console.ReadLine
S = 1
For i = 1 To N
S = S + (1 / (2 * i))
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module