Exercice VB: Tableau & chaîne de caractères
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 23:46Participez au vote ☆☆☆☆☆★★★★★
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
1. Module Module1 Dim i, j, c, n As Integer Sub Main() Console.Write("Entrez la taille du Tableau : ") n = Console.ReadLine Dim t(n) As String For i = 0 To n - 1 Console.Write("t(" & i + 1 & ") = ") t(i) = Console.ReadLine Next Dim ch As String For i = 0 To n - 1 ch = t(i) c = 0 For j = 0 To ch.Length - 1 If ch(j) = "a" Or ch(j) = "A" Then c += 1 End If Next If c >= 3 Then Console.WriteLine(t(i) & " ") End If Next Console.ReadLine() End Sub End Module 2. Module Module1 Dim i, c As Integer Dim ch, s As String Sub Main() Console.Write("Entrez la chaîne : ") ch = Console.ReadLine c = 0 s = ch(0) For i = 1 To ch.Length - 1 If ch(i) = " " Then If ch(i + 1) s Then c += 1 End If End If Next If c = 0 Then Console.Write("Le texte est un tautogramme") Else Console.Write("Le texte n'est pas un tautogramme") End If Console.ReadLine() End Sub End Module |