Exercice VB: La structure TANT QUE

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

Travail à Faire :

  1. Ecrire un Programme qui demande à l’utilisateur un nombre compris entre 1 et 3 jusqu’à ce que la réponse convienne.
  2. 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.
  3. 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.
  4. 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.
  5. 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