Exercice VB: Travailler plus avec les Structures Alternatives

Travail à Faire :

1. A partir d’un montant lu, on détermine un montant net par application d’une remise de :

  • 1% si le montant est compris entre 2000 et 5000 DH (valeurs comprises)
  • 2 % si le montant est supérieur à 5000 DH.

2.  Ecrire un Programme permettant d'effectuer la somme, la différence, le produit et le rapport de deux nombres réels à partir d'un menu :

**********************Menu***********************

1 :---------------------Somme--------------------

2 :--------------------Différence------------------

3 :---------------------Produit---------------------

4 :---------------------Division--------------------

5 :---------------------Quitter---------------------

Taper votre choix?

On doit retourner au menu, lorsqu'on finit une opération ou si on tape un nombre incorrect (un message s'affichera).

3.  Saisir 2 entiers a et b, déterminer dans R les racines de l'équation : ax + b =0

4.  Saisir 3 entiers a, b et c, déterminer dans R les racines de l'équation :aX²+bX + c =0

5.  Donnez un Programmequi lit sur l'entrée une valeur représentant une somme d'argent et qui calcule et affiche le nombre de billets de 200 DH, 100 DH, 50 DH et 20 DH, et les pièces de 10 DH, 5 DH, 2 DH, et 1 DH.


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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
 
&.
Module Module1
Dim montant, taux, remise As Double
Sub Main()
Console.Write("Entrez le montant : ")
montant = Console.ReadLine
If montant < 2000 Then
taux = 0
Else
If montant <= 5000 Then
taux = 1
Else
taux = 2
End If
End If
montant = montant * (1 - taux / 100)
Console.Write("Le montant net est : " & montant)
Console.ReadLine()
End Sub
End Module
 
2.
Module Module1
Dim S, D, M, SO, Res, a, b As Double
Dim choix As Integer
Sub Main()
Console.WriteLine("1 :-----------------Somme-------------------:")
Console.WriteLine("2 :---------------Différence--------------: ")
Console.WriteLine("3 :---------------Produit-----------------: ")
Console.WriteLine("4 :---------------Division----------------: ")
Console.WriteLine("5 :---------------Quitter-----------------: ")
Console.Write(" ____________________Taper votre choix? _____: ")
choix = Console.ReadLine
If choix = 5 Then
End
End If
Console.Write("Entrez la valeur de a : ")
a = Console.ReadLine
Console.Write("Entrez la valeur de b : ")
b = Console.ReadLine
Select Case choix
Case 1
Res = a + b
Console.Write("La Somme est : " & Res)
Case 2
Res = a - b
Console.Write("La Différence est : " & Res)
Case 3
Res = a * b
Console.Write("Le Produit est : " & Res)
Case 4
If b = 0 Then
Console.Write("a/0 est Impossible")
Else
Res = a / b
Console.Write("La Division est : " & Res)
End If
Case Else
Console.WriteLine("Erreur de choix!!")
End Select
Console.ReadLine()
End Sub
End Module
 
3.
Module Module1
Dim a, b, x As Double
Sub Main()
Console.Write("Entrez la valeur de a : ")
a = Console.ReadLine
Console.Write("Entrez la valeur de b : ")
b = Console.ReadLine
If a = 0 Then
If b = 0 Then
Console.WriteLine("La solution est R")
Else
Console.WriteLine("Pas de solution")
End If
Else
x = -b / a
Console.Write("La solution est : " & x)
End If
Console.ReadLine()
End Sub
End Module
 
4.
Module Module1
Dim a, b, c As Integer
Dim x1, x2, Delta As Double
Sub Main()
Console.Write("Entrez la valeur de a : ")
a = Console.ReadLine
Console.Write("Entrez la valeur de b : ")
b = Console.ReadLine
Console.Write("Entrez la valeur de c : ")
c = Console.ReadLine
If a  0 Then
Delta = (b * b) - (4 * a * c)
Console.WriteLine("Delta = " & delta)
If delta = 0 Then
x1 = -b / 2 * a
ElseIf Delta > 0 Then
x1 = ((-b) + (Math.Sqrt(Delta))) / (2 * a)
x2 = ((-b) - (Math.Sqrt(Delta))) / (2 * a)
Console.WriteLine("x1 = " & x1)
Console.WriteLine("x2 = " & x2)
End If
Else
If b = 0 Then
If c  0 Then
Console.WriteLine("Pas de solution")
Else
Console.WriteLine("La solution est R")
End If
Else
x1 = -c / b
Console.WriteLine("x1 = " & x1)
End If
End If
Console.ReadLine()
End Sub
End Module
 
5.
Module Module1
Dim a,s As Intege
Sub Main()
Console.Write("Entrez la somme d'argent : ")
s = Console.ReadLine
If s >= 200 Then
a = s \ 200
s = s Mod 200
Console.Write(a & " Billet de 200 DH. ")
End If
If s >= 100 Then
a = s \ 100
s = s Mod 100
Console.Write(a & " Billet de 100 DH. ")
End If
If s >= 50 Then
a = s \ 50
s = s Mod 50
Console.Write(a & " Billet de 50 DH. ")
End If
If s >= 20 Then
a = s \ 20
s = s Mod 20
Console.Write(a & " Billet de 20 DH. ")
End If
If s >= 10 Then
a = s \ 10
s = s Mod 10
Console.Write(a & " Piéce de 10 DH. ")
End If
If s >= 5 Then
a = s \ 5
s = s Mod 5
Console.Write(a & " Piéce de 5 DH. ")
End If
If s >= 2 Then
a = s \ 2
s = s Mod 2
Console.Write(a & " Piéce de 2 DH. ")
End If
If s >= 1 Then
a = s \ 1
s = s Mod 1
Console.Write(a & " Piéce de 1 DH. ")
End If
Console.ReadLine()
End Sub
End Module