13 Correction Exercice 13
Module exercice13
Dim tableau As Integer() = New Integer(19) {}
Sub Main()
remplirTableau()
AffichageTab()
ReorganiseTab()
End Sub
Private Sub remplirTableau()
Dim rnd As New Random()
' affectation de valeurs entières, pris au hasard entre 1 et 100, au tableau
For i As Integer = 0 To 19
tableau(i) = rnd.Next(1, 101)
Next
End Sub
Private Sub AffichageTab()
'affichage des valeurs du tableau
For i As Integer = 0 To 19
Console.WriteLine(tableau(i) & " ")
Next
End Sub
Private Sub ReorganiseTab()
'déclaration de deux tableaux temporaires
Dim tabpair As Integer() = New Integer(19) {}
Dim tabimpair As Integer() = New Integer(19) {}
'déclaration de deux compteurs
Dim ctpair As Integer = 0
Dim ctimpair As Integer = 0
'Recherche de minimum
For i As Integer = 0 To 19
If (tableau(i) Mod 2) = 0 Then
'int[] tabpair;
tabpair(ctpair) = tableau(i)
ctpair += 1
Else
tabimpair(ctimpair) = tableau(i)
ctimpair += 1
End If
Next
For i As Integer = 0 To ctpair - 1
tableau(i) = tabpair(i)
Next
For i As Integer = 0 To ctimpair - 1
tableau(i + ctpair) = tabimpair(i)
Next
Allez à suite.........................................
End Sub
End Module
Suite
Console.WriteLine("Tableau réorganisé")
Console.WriteLine("---------------------")
Console.WriteLine("Les entiers pairs")
For i As Integer = 0 To 19
If i = ctpair Then
Console.WriteLine("Les entiers impairs")
End If
Console.WriteLine(tableau(i))
Next
Console.WriteLine("---------------------")
Console.WriteLine("Nombre des entiers pairs: " & ctpair)
Console.WriteLine("Nombre des entiers impairs: " & ctimpair)
Exercice d’application les tableaux