Exercice VB: Les suites Mathématique addition

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

Objectif :

Travailler avec les Suites et Fonctions.

Travail à Faire :

1. Donnez un programme pour calculer :

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

2. Donnez un programme pour calculer :

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

3. Donnez un programme pour calculer :

    S = 1 – 1/3 + 1/4 – 1/6 + 1/7 + ……… 

4. Donnez un programme pour calculer :

    S = X1 + X3 /3 + X5 /5 + ……. + X2n+1/2n+1

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 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)) + (1 / (2 * i + 1))
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module

2.
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 + (i / (i + 1))
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 = 1
For i = 1 To N
S = S - (1 / (3 * i)) + (1 / (3 * i + 1))
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Dim P, i, S, X As Double
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 ^ (2 * i + 1)) / (2 * i + 1)
Next
Console.Write("S est : " & S)
Console.ReadLine()
End Sub
End Module