Exercice VB: La structure TANT QUE
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
Travail à Faire :
- Ecrire un Programme qui demande à l’utilisateur un nombre compris entre 1 et 3 jusqu’à ce que la réponse convienne.
- Ecrire un Programme qui demande un nombre compris entre 10 et 20, jusqu’à ce que la réponse convienne. En cas de réponse supérieure à 20, on fera apparaître un message : « Plus petit !», et inversement, « Plus grand !» si le nombre est inférieur à 10.
- Ecrire un Programme qui demande un nombre de départ, et qui ensuite affiche les dix nombres suivants. Par exemple, si l'utilisateur entre le nombre 17, le programme affichera les nombres de 18 à 27.
- Ecrire un Programme qui demande successivement des nombres à l’utilisateur, et qui lui dise ensuite quel était le plus grand parmi ces nombres et quel était sa position. La saisie des nombres s’arrête lorsque l’utilisateur entre un zéro.
- Lire la suite des prix (en DH entiers et terminée par zéro) des achats d’un client. Calculer la somme qu’il doit, lire la somme qu’il paye, et déterminer le reste à rendre.
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 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
1. Module Module1 Dim a As Integer Sub Main() Console.Write("Entrez un nombre compris entre 1 et 3 : ") a = Console.ReadLine While a < 1 Or a > 3 Console.Write("SVP,Saisir une valeur comprise entre 1 et 3 :") a = Console.ReadLine End While Console.ReadLine() End Sub End Module 2. Module Module1 Dim a As Integer Sub Main() Console.Write("Entrez un nombre compris entre 10 et 20 : ") a = Console.ReadLine While a < 10 Or a > 20 If a < 10 Then Console.WriteLine("Plus grand !") Else Console.WriteLine("Plus petit !") End If Console.Write("SVP,Saisir une valeur comprise entre 10 et 20:") a = Console.ReadLine End While Console.ReadLine() End Sub End Module 3. Module Module1 Dim a, i As Integer Sub Main() Console.Write("Entrez un nombre : ") a = Console.ReadLine i = a + 1 While i <= a + 10 Console.WriteLine(i) i = i + 1 End While Console.ReadLine() End Sub End Module 4. Module Module1 Dim i, n, max, Pmax As Integer Sub Main() Console.Write("Entrez le nombre numéro 1 : ") n = Console.ReadLine max = n Pmax = 1 i = 1 While n 0 i = i + 1 Console.Write("Entrez le nombre numéro " & i & " : ") n = Console.ReadLine If n > max Then max = n Pmax = i End If End While Console.WriteLine("Le plus grand nombre est : " & max) Console.WriteLine("Sa position est : " & Pmax) Console.ReadLine() End Sub End Module 5. Module Module1 Dim prixlu, Somme, mpaye, reste As Integer Sub Main() Console.Write("Entrez le prix : ") prixlu = Console.ReadLine Somme = Somme + prixlu While prixlu 0 Console.Write("Entrez le prix : ") prixlu = Console.ReadLine Somme = Somme + prixlu End While Console.Write("Entrez le prix payé : ") mpaye = Console.ReadLine reste = mpaye - Somme Console.WriteLine("Le reste est : " & reste) Console.ReadLine() End Sub End Module |