Correction d'Exercices d'algorithme (L'instruction d’affectation)

Corrigè :

1.
Module Module1
Dim A, B As Integer
Sub Main()
A = 1
B = A + 3
A = 3
Console.WriteLine ("La valeur des variables est : " & " A = " & A & " ; B = " & B)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim A, B, C As Integer
Sub Main()
A = 5
B = 3
C = A + B
A = 2
C = B - A
Console.WriteLine ("La valeur des variables est : " & " A = " & A & " ; B = " & B & " ; C = " & C)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim A, B As Integer
Sub Main()
A = 5
B = A + 4
A = A + 1
B = A - 4
Console.WriteLine ("La valeur des variables est : " & " A = " & A & " ; B = " & B)
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Dim A, B, C As Integer
Sub Main()
A = 3
B = 10
C = A + B
B = A + B
A = C
Console.WriteLine("La valeur des variables est : " & " A = " & A
& " ; B = " & B & " ; C = " & C)
Console.ReadLine()
End Sub
End Module

5.
Module Module1
Dim A, B As Integer
Sub Main()
A = 5
B = 2
A = B
B = A
Console.WriteLine("La valeur des variables est : " & " A = " & A
& " ; B = " & B)
'Les deux dernières instructions ne permettent donc pas d’échanger les
deux 'valeurs de B et A, 'puisque(l) 'une des deux valeurs (celle de A)
'est ici écrasée.
'Si(l) 'on inverse les deux dernières instructions, cela ne changera rien
'du tout, hormis le fait que cette fois c’est la valeur de B qui sera
'écrasée.
Console.ReadLine()
End Sub
End Module

6.
Module Module1
Dim A, B, C As Integer
Sub Main()
C = A
A = B
B = C
'On est obligé de passer par une variable dite temporaire (la variable C).
Console.ReadLine()
End Sub
End Module

7.
Module Module1
Dim A, B, C, D As Integer
Sub Main()
D = C
C = B
B = A
A = D
'En fait, quel que soit le nombre de variables, une seule variable temporaire suffit.
Console.ReadLine()
End Sub
End Module

8.
Module Module1
Dim A, B, C As String
Sub Main()
A = "423"
B = "12"
C = A + B
Console.WriteLine("Resultat est : " & C)
'On peut concaténer ces variables. A la fin de l’algorithme,
 C vaudra donc “42312”.
Console.ReadLine()
End Sub
End Module

9.
Module Module1
Dim A, B, C As String
Sub Main()
A = "423"
B = "12"
C = A & B
Console.WriteLine("Resultat est : " & C)
'On peut concaténer ces variables. A la fin de l’algorithme,
 C vaudra donc “42312”.
Console.ReadLine()
End Sub
End Module

Enoncé