Exercice VB: Structure alternative Calcule
Rédigé par , Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
Objectif:
Travailler avec les Structures Alternatives
Travail à Faire :
- Ecrire un programme qui demande deux nombres à l’utilisateur et l’informe ensuite si leur produit est négatif ou positif (on laisse de côté le cas où le produit est nul). Attention toutefois : on ne doit pas calculer le produit des deux nombres.
- Ecrire un programme qui demande trois noms à l’utilisateur et l’informe ensuite s’ils sont rangés ou non dans l’ordre alphabétique.
- Ecrire un programme qui demande un nombre à l’utilisateur, et l’informe ensuite si ce nombre est positif ou négatif (on inclut cette fois le traitement du cas où le nombre vaut zéro).
- Ecrire un programme qui demande deux nombres à l’utilisateur et l’informe ensuite si le produit est négatif ou positif (on inclut cette fois le traitement du cas où le produit peut être nul). Attention toutefois, on ne doit pas calculer le produit !
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 |
1. Module Module1 Dim m, n As Integer Sub Main() Console.Write("Entrez la valeur de m :") m = Console.ReadLine Console.Write("Entrez la valeur de n :") n = Console.ReadLine If m * n > 0 Then Console.Write("Leur produit est positif") Else Console.Write("Leur produit est négatif") End If Console.ReadLine() End Sub End Module 2. Module Module1 Dim a, b, c As String Sub Main() Console.Write("Entrez le premier nom :") a = Console.ReadLine Console.Write("Entrez le deuxième nom :") b = Console.ReadLine Console.Write("Entrez le troisiéme nom :") c = Console.ReadLine If a < b And b < c Then Console.Write("Ces noms sont classés alphabétiquement") Else Console.Write("Ces noms ne sont pas classés") End If Console.ReadLine() End Sub End Module 3. Module Module1 Dim n As Integer Sub Main() Console.Write("Entrez un nombre : ") n = Console.ReadLine If n < 0 Then Console.Write("Ce nombre est négatif") ElseIf n = 0 Then Console.Write("Ce nombre est nuls") Else Console.Write("Ce nombre est positif") End If Console.ReadLine() End Sub End Module 4. Module Module1 Dim m, n As Integer Sub Main() Console.Write("Entrezla valeur de m : ") m = Console.ReadLine Console.Write("Entrezla valeur de n : ") n = Console.ReadLine If m = 0 Or n = 0 Then Console.Write("Le produit est nul") ElseIf (m < 0 And n < 0) Or (m > 0 And n > 0) Then Console.Write("Le produit est positif") Else Console.Write("Le produit est négatif") End If Console.ReadLine() End Sub End Module |