Programmation : Anagramme avec les lettre d'un mot
Résolu
elmastero
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
elmastero Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
elmastero Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Programmation : Anagramme avec les lettre d'un mot
- Application de programmation - Guide
- Programmation envoi sms - Guide
- Programmation vb - Télécharger - Langages
- Programmation binaire - Guide
- Programmation télécommande porte de garage brico depot - Forum Matériel & Système
2 réponses
Bonsoir voila cet que j'ai trouvé je n'ais pas mis de commentaire j espère<code>< que tu comprendra ^^
Option Strict On
Option Explicit On
Module Module1
Sub Main()
Console.WriteLine("Entrer un mot")
Dim nombre As String
nombre = Console.ReadLine()
Dim vNom As String
Console.WriteLine("Entrer un mot")
Dim nombre2 As String
nombre2 = Console.ReadLine()
If FEstMemelettre(nombre, nombre2) = True Then
Console.WriteLine("annagrame !!!!")
Else
Console.WriteLine("pas annagrame !!!!")
End If
Console.ReadLine()
'si user ecrit exit affiche tableau
Console.WriteLine("Taper Exit pour sortie ou entrer un autre prenom")
vNom = Console.ReadLine()
If vNom <> "exit" Then
Main()
End If
End Sub
Function FEstMemelettre(chaine1 As String, chaine2 As String) As Boolean
Dim Aretourner As Boolean
Dim longeurMots As Integer = 0
If chaine1 = chaine2 Then
Return False
End If
Dim val1 As Integer
Dim val2 As Integer
Dim tempval2 As Integer
Dim tempval As Integer
For i = 1 To Len(chaine1)
val1 = Asc(UCase(Mid(chaine1, i, 1))) - 64
tempval = val1 + tempval
val2 = Asc(UCase(Mid(chaine2, i, 1))) - 64
tempval2 = val2 + tempval2
Next
If tempval = tempval2 Then
For i2 = 1 To Len(chaine1)
For i3 = 1 To Len(chaine2)
If Mid(chaine1, i3, 1) = Mid(chaine2, i2, 1) Then
longeurMots = longeurMots + 1
If longeurMots = Len(chaine1) And longeurMots = Len(chaine2) Then
Return True
Else
Aretourner = False
End If
Else
Aretourner = False
End If
Next
Next
End If
Aretourner = False
Return Aretourner
End Function
End Module
Option Strict On
Option Explicit On
Module Module1
Sub Main()
Console.WriteLine("Entrer un mot")
Dim nombre As String
nombre = Console.ReadLine()
Dim vNom As String
Console.WriteLine("Entrer un mot")
Dim nombre2 As String
nombre2 = Console.ReadLine()
If FEstMemelettre(nombre, nombre2) = True Then
Console.WriteLine("annagrame !!!!")
Else
Console.WriteLine("pas annagrame !!!!")
End If
Console.ReadLine()
'si user ecrit exit affiche tableau
Console.WriteLine("Taper Exit pour sortie ou entrer un autre prenom")
vNom = Console.ReadLine()
If vNom <> "exit" Then
Main()
End If
End Sub
Function FEstMemelettre(chaine1 As String, chaine2 As String) As Boolean
Dim Aretourner As Boolean
Dim longeurMots As Integer = 0
If chaine1 = chaine2 Then
Return False
End If
Dim val1 As Integer
Dim val2 As Integer
Dim tempval2 As Integer
Dim tempval As Integer
For i = 1 To Len(chaine1)
val1 = Asc(UCase(Mid(chaine1, i, 1))) - 64
tempval = val1 + tempval
val2 = Asc(UCase(Mid(chaine2, i, 1))) - 64
tempval2 = val2 + tempval2
Next
If tempval = tempval2 Then
For i2 = 1 To Len(chaine1)
For i3 = 1 To Len(chaine2)
If Mid(chaine1, i3, 1) = Mid(chaine2, i2, 1) Then
longeurMots = longeurMots + 1
If longeurMots = Len(chaine1) And longeurMots = Len(chaine2) Then
Return True
Else
Aretourner = False
End If
Else
Aretourner = False
End If
Next
Next
End If
Aretourner = False
Return Aretourner
End Function
End Module
