Exercice VB: structures répétitives

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

Objectif:

Travailler avec Les structures répétitives 


Travail à Faire :

  • Ecrire un Programme qui calcule et affiche la valeur de Y donnée par :

 

Y = N10 Si N ? 20

Y = N!Si N < 20

N étant un entier positif connu.

  • Ecrire un Programme pour tester si un nombre est parfait. Un nombre est dit parfait s'il est égal à la somme de ses diviseurs stricts.

Exemple : 28 = 1 + 2 + 4 + 7 + 14.

  • Un nombre entier P est premier si ses seuls diviseurs sont 1 et P. Ecrire un Programme qui permet de déterminer si un nombre est premier ou non.

 

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

1.
Module Module1
Dim i, N As Integer
Dim Y As Double
Sub Main()
Console.Write("Entrez la valeur de N : ")
N = Console.ReadLine
If N >= 20 Then
Y = (N ^ 10)
Else
Y = 1
For i = 1 To N
Y = Y * i
Next
End If
Console.WriteLine("La valeur de Y est : " & Y)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim i, N, S As Integer
Sub Main()
Console.Write("Entrez un nombre : ")
N = Console.ReadLine
For i = 1 To N - 1
If N Mod i = 0 Then
S = S + i
End If
Next
If N = S Then
Console.WriteLine(N & " est parfait")
Else
Console.WriteLine(N & " N'est pas parfait ")
End If
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim r, n, i As Integer
Dim test As Boolean = True
Sub Main()
Console.Write("Entrez un nombre : ")
n = Console.ReadLine
If n = 0 Then
Console.WriteLine(" Pas premie")
ElseIf n = 1 Or n = 2 Then
Console.WriteLine(" Premie")
End If
If n >= 3 Then
For i = 2 To n - 1
r = n Mod i
If r = 0 Then
test = False
End If
Next
If test = False Then
Console.WriteLine("Le nombre " & n & " N'est pas Premie")
Else
Console.WriteLine("Le nombre " & n & " Est Premie")
End If
End If
Console.ReadLine()
End Sub
End Module