Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim T() As UInteger = {0, 1, 15, 27, 28, 49} '1 15 27 28 49 For i As Integer 1 To 5 'Pour i 2 à 4 For j As Integer i + 1 To 5 'Pour j i+1 à 5 Console.WriteLine("{0} * {1} = {2}", i, j, i * j) 'Ecrire i * j Console.WriteLine("T({0} - {1}) = {2}", j, i, T(j - i)) 'Ecrire T(j - i) Next j 'Fin(Pour) Next i 'Fin(Pour) End Sub
pour i = 2 à 4 ecrire i fin pour
2 3 4
je dois être attentif je dois être attentif je dois être attentif je dois être attentif je dois être attentif
pour i = 1 à 5 ecrire "je dois être attentif" fin pour
Pour i = 2 à 4 Pour j = i+1 à 5 Ecrire i et j Fin Pour Fin Pour
2 et 3 2 et 4 2 et 5 3 et 4 3 et 5 4 et 5
i=2 et j=3 i=2 et j=4 i=2 et j=5
i=3 et j=4 i=3 et j=5
i=4 et j=5
Les valeurs pour i*j sont elles 6 12 20
Les valeurs T(j-i) sont elles 12 1 21 ?
feuille (1) = 1 feuille (2) = 15 feuille (3) = 27 feuille (4) = 28 feuille (5) = 49
i =2 et j= 3, j-i = 1. la feuille 1 = 1 i=2 et j=4, j-i = 2. la feuille 2 = 15 i=2 et j=5, j-i = 3. la feuille 3 = 27
i =3 et j= 4, j-i = 1. la feuille 1 = 1 i=3 et j=5, j-i = 2. la feuille 2 = 15
i =4 et j=5, j-i = 1. la feuille 1 = 1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLes valeurs T(j-i) sont elles 12 1 21 ?
i = 2
J = i+1
Pour k = i-1 à j+1
Ecrire (k)
Pour L = k+2 à 4
Ecrire (L)
FinPour
FinPour
Quelles sont les valeurs affichées par ordre d'apparition ?
i j i*j j-i T(j-i) -------------------------------------- 2 3 6 1 1 2 4 8 2 15 2 5 10 3 27 3 4 12 1 1 3 5 15 2 15 4 5 20 1 1
l 4> On a atteint 4, on relance la boucle