Exercice VB: La structure REPETER

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 22:24
Participez au vote ☆☆☆☆☆★★★★★

Travail à Faire :

  1. Ecrire un programme qui demande successivement des nombres à l’utilisateur, et qui calcule le nombre de valeurs saisies. La saisie des nombres s’arrête lorsque l’utilisateur entre le caractère « n » ou « N ».
  2. Ecrire un programme qui demande successivement des nombres à l’utilisateur, et qui calcule leur moyenne. La saisie des nombres s’arrête lorsque l’utilisateur entre un zéro.
  3. Modifiez le programme de l’exercice 1, de façon qu’il nous renseigne sur le nombre des valeurs positives et sur le nombre des valeurs négatives. Ne comptez pas les valeurs nulles.
  4. Ecrire un programme qui lit les caractères saisies par l’utilisateur. A la fin ce programme nous affichera la phrase saisie. La saisie des caractères s’arrête lorsqu’on tape point «. ». Pour l’utilisateur veut insérer un espace il lui suffit de tapez sur 0. Par exemple si l’utilisateur tape successivement les caractères « b », « o », « n », « j », « o », « u », « r », « t », « o », « u », « s », «.», il nous affichera la chaîne « bonjourtous ». Mais si il tape « b », « o », « n », « j », « o », « u », « r », « 0 », « t », « o », « u », « s », « . » , le programme affichera « bonjour tous ».
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

1.
Module Module1
Dim a, Compteur As Integer
Dim Reponse As String
Sub Main()
Compteur = 0
Do
Console.Write("Entrez un nombre : ")
a = Console.ReadLine
Compteur = Compteur + 1
Console.Write("Voulez-vous continuez O/N ? : ")
Reponse = Console.ReadLine
Loop Until (Reponse = "n" Or Reponse = "N")
Console.Write("Le nombre de valeurs saisies est : " & Compteur)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim a, Somme, Moyenne, Compteur As Integer
Sub Main()
Compteur = 0
Somme = 0
Do
Console.Write("Entrez un nombre : ")
a = Console.ReadLine
Compteur = Compteur + 1
Somme = Somme + a
Loop Until (a = 0)
Moyenne = Somme / (Compteur - 1)
Console.Write("La moyenne de valeurs saisies est : " & Moyenne)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim a, Npos, Nneg As Integer
Dim Reponse As String
Sub Main()
Npos = 0
Nneg = 0
Do
Console.Write("Entrez un nombre : ")
a = Console.ReadLine
If a > 0 Then
Npos = Npos + 1
ElseIf a < 0 Then
Nneg = Nneg + 1
End If
Console.Write("Voulez-vous continuez O/N ? : ")
Reponse = Console.ReadLine
Loop Until (Reponse = "n" Or Reponse = "N")
Console.WriteLine("Le nombre de valeurs positives saisies est : "
& Npos)
Console.WriteLine("Le nombre de valeurs positives saisies est : "
& Nneg)
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Dim Caractere, Phrase As String
Sub Main()
Phrase = ""
Do
Console.Write("Entrez une caractère : ")
Caractere = Console.ReadLine
If Caractere = "0" Then
Caractere = " "
End If
Phrase = Phrase + Caractere
Loop Until (Caractere = ".")
Console.WriteLine("La phrase résultante est : " & Phrase)
Console.ReadLine()
End Sub
End Module