Exercice VB: Les suites Matricielles

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

Objectif :

Travailler avec les Suites et Fonctions.

Travail à Faire :

1. Donnez un programme pour calculer :

/

| S0 = 1

| Sn = 3Sn-1 + 5

\

2. Donnez un programme pour calculer :

/

| S0 = 1/2

| S1 = 1

| Sn+1 = 3Sn – 5Sn-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

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

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