Exercice VB: Les suites et Fonctions de Calcule
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!+ ………………
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | 1.Module Module1Dim i, e, X, P, F As DoubleSub Main()Console.Write("Entrez la valeur de x : ")X = Console.ReadLineConsole.Write("Entrez la puissance : ")P = Console.ReadLinee = 1F = 1For i = 1 To PF = F * ie = e + ((X ^ i) / F)NextConsole.Write("e est : " & e)Console.ReadLine()End SubEnd Module2.Module Module1Dim i, e, X, EPS, F As DoubleSub Main()Console.Write("Entrez la valeur de x : ")X = Console.ReadLineConsole.Write("Entrez la valeur d'EPS : ")EPS = Console.ReadLinee = 1F = 1i = 1DoF = F * ie = e + ((X ^ i) / F)i += 1Loop Until (e )Console.Write("e est : " & e)Console.ReadLine()End SubEnd Module3.Module Module1Dim i, X, F, P, S, L, j, k As DoubleSub Main()Console.Write("Entrez la valeur de X : ")X = Console.ReadLineConsole.Write("Entrez la puissance : ")P = Console.ReadLineS = 0For i = 0 To PF = 1L = 1For j = 1 To (4 * i + 1)F = F * jNextFor k = 1 To (4 * i + 3)L = L * kNextS = S + ((X ^ (4 * i + 1)) / F) - ((X ^ (4 * i + 3)) / L)NextConsole.Write("S est : " & S)Console.ReadLine()End SubEnd Module |