Exercice VB: le nombre Armstrong

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

Travail à Faire :

Ecrire le code en VB qui permet de :

  1. Donner le nombre Armstrong

Un nombre nombre d'Armstrong est un entier naturel n non nul qui est égal à la somme des puissancesp-ièmes de ses chiffres en base dix, où p désigne le nombre de chiffres de n .

Exemple :

  • Tous les entiers de 1 à 9 sont narcissiques.
  • Les vingt premiers termes de la suite des 88 nombres narcissiques sont :

1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834.

  • 153 = 13 + 53 + 33
  • 548834 = 56 + 46 + 86 + 86 + 36 + 46 
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

Module armstrong
 
    Sub Main()
        Dim A, B, C, cube, nb As Integer
        Console.WriteLine("saisir un nombre")
        A = Console.ReadLine
        Console.WriteLine("saisir un autre nombre")
        B = Console.ReadLine
        Console.WriteLine("saisir un autre nombre")
        C = Console.ReadLine
        For A = 0 To 9
            For B = 0 To 9
                For C = 0 To 9
                    nb = A * 100 + B * 10 + C
                    cube = A * A * A + B * B * B + C * C * C
                    If nb = cube Then
                        Console.WriteLine("le nombre armstrong est =" & nb)
                    Else
                        Console.WriteLine("rettaper un autre nombre")
                    End If
                Next
            Next
        Next
        Console.ReadLine()
    End Sub
 
End Module