Discussion :

[dolsky]

J'ai créé un programme qui permet d'afficher l'occurence ( nombre de fois le caractère est répeter).

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Main()
Dim mot As String
Dim i, j, compt As Integer
Dim premier As Char
compt = 0
 
Console.WriteLine("Donner un mot")
mot = Console.ReadLine
 
For i = 0 To mot.Length - 1
compt = 0
premier = mot.Chars(i)
For j = i To mot.Length - 1
If premier = mot.Chars(j) Then
compt = compt + 1
End If
 
Next j
Console.WriteLine("l'occ de : " & mot.Chars(i) & compt)
Next

au momennt d'affichage, il m'affiche en boucle le Nbre de caraterèe.
EXP: t=4 , T=3, t=2, t=1

Voici le resultat

Donner un mot
testtest
l'occ de : t4
l'occ de : e2
l'occ de : s2
l'occ de : t3
l'occ de : t2
l'occ de : e1
l'occ de : s1
l'occ de : t1

Merci de me corriger le programme ou de me donner une autre solution.

[Danyel]

deja descend le writeline

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Console.WriteLine("l'occ de : " & mot.Chars(i) & compt)

apres tous les next