Exercice VB: Les suites et Fonctions de Calcule
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 22:48Participez au vote ☆☆☆☆☆★★★★★
Objectif :
Travailler avec les Suites et Fonctions.
Travail à Faire :
1. Donnez un programme pour calculer :
ex = 1 + X + X2 /2!+ X3/3!+ ……. + XN/N!NB : avec N un donnée d'entrée.
2. Donnez un programme pour calculer :
ex = 1 + X + X2 /2!+ X3/3!+ ……. + XN/N!NB : avec N un donnée d'entrée.
Le calcule de ex s'arrête quand XN/N! Devient inférieur strictement à EPS (EPS est une donnée d'entrée).
3. Donnez un programme pour calculer :
S = SIN(X) = X – X3 /3!+ X5/5!– X7/7!+ ………………
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 62 63 64 |
1. Module Module1 Dim i, e, X, P, F As Double Sub Main() Console.Write("Entrez la valeur de x : ") X = Console.ReadLine Console.Write("Entrez la puissance : ") P = Console.ReadLine e = 1 F = 1 For i = 1 To P F = F * i e = e + ((X ^ i) / F) Next Console.Write("e est : " & e) Console.ReadLine() End Sub End Module 2. Module Module1 Dim i, e, X, EPS, F As Double Sub Main() Console.Write("Entrez la valeur de x : ") X = Console.ReadLine Console.Write("Entrez la valeur d'EPS : ") EPS = Console.ReadLine e = 1 F = 1 i = 1 Do F = F * i e = e + ((X ^ i) / F) i += 1 Loop Until (e < EPS) Console.Write("e est : " & e) Console.ReadLine() End Sub End Module 3. Module Module1 Dim i, X, F, P, S, L, j, k 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 F = 1 L = 1 For j = 1 To (4 * i + 1) F = F * j Next For k = 1 To (4 * i + 3) L = L * k Next S = S + ((X ^ (4 * i + 1)) / F) - ((X ^ (4 * i + 3)) / L) Next Console.Write("S est : " & S) Console.ReadLine() End Sub End Module |