Exercice VB: Tableau & chaîne de caractères
Travail à Faire :
1. On considère un tableau comportant une séquence de chaîne de caractères. Ecrire un Programme qui affiche et compte toutes les chaînes qui contiennent au moins trois occurrences de caractère 'A'
Exemple : contenu du tableau : "Marouan" "Peace" " HAHAHA "
Résultat affiché : HAHAHA
2. On considère un tableau de caractères comportant un texte formé de lettres et d'espaces. Un mot est une suite de lettres délimitée par des espaces ou par les extrémités du texte. Ecrire un Programme qui affiche un message indiquant si le texte est un tautogramme, c'est à dire si tous les mots du texte commencent par la même lettre. Exemple : le lion lape le lait lentement.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 | 1.Module Module1Dim i, j, c, n As IntegerSub Main()Console.Write("Entrez la taille du Tableau : ")n = Console.ReadLineDim t(n) As StringFor i = 0 To n - 1Console.Write("t(" & i + 1 & ") = ")t(i) = Console.ReadLineNextDim ch As StringFor i = 0 To n - 1ch = t(i)c = 0For j = 0 To ch.Length - 1If ch(j) = "a" Or ch(j) = "A" Thenc += 1End IfNextIf c >= 3 ThenConsole.WriteLine(t(i) & " ")End IfNextConsole.ReadLine()End SubEnd Module2.Module Module1Dim i, c As IntegerDim ch, s As StringSub Main()Console.Write("Entrez la chaîne : ")ch = Console.ReadLinec = 0s = ch(0)For i = 1 To ch.Length - 1If ch(i) = " " ThenIf ch(i + 1) s Thenc += 1End IfEnd IfNextIf c = 0 ThenConsole.Write("Le texte est un tautogramme")ElseConsole.Write("Le texte n'est pas un tautogramme")End IfConsole.ReadLine()End SubEnd Module |