besoin d'aide concernant un exercice (do loop until) Fermé

Question

Bonjour, je vous envoi un message concernant un exercice corrigé que je ne comprends pas. 

il s'agit de déterminer la somme des n premiers entiers que l'utilisateur donner.

voici le programme entre "" :
" Dim n, somme, i As Integer
        Do
            Console.Write("entrer un entier positif ou nul")
            n = Console.ReadLine()
            If n < 0 Then
                Console.WriteLine("erreur" & n & "n'est pas un entier positif ou nul")
            End If
        Loop While n < 0

        somme = 0
        i = 1
        Do
            somme = somme + i
            i = i + 1
        Loop Until i > n
        Console.Write("somme des" & n & " premiers entier = " & somme)
        Console.ReadLine() "

je ne comprends pas a partir de somme = 0 jusqu'à i = i + 1 
car si l'on prend n = 5 
somme = somme + i 
(donc d'apres le programme 0 = 0 + 1) et ( 1 = 1 + 1 ) je ne vois pas comment avec cela on peut arriver à la somme des n entiers... 
merci d'avance pour vos réponses. 




Configuration: Windows 7 / Chrome 38.0.2125.111

ThauTheme · Answer

Je ne connais absolument pas VB et donc devrais me taire...
Mais, si je compare à VBA, je vois mal comment  en réinitialisant la somme avec somme = 0 on va pouvoir obtenir la somme des n premiers entiers. Pour moi cette ligne doit être supprimée ou se trouver en dessous de la ligne des déclarations. D'ailleurs, cette ligne devrait plutôt être, toujours si on compare avec VBA :

Dim n As Integer, somme As Integer, i As Integer

ccm81 · Answer

Bonsoir

Un petit tableau de suivi des variables s'impose

n=5somme = 0i = 1Do  somme = somme + i  i = i + 1Loop Until i > n somme	i	i>n0	11	2	non3	3	non6	4	non10	5	non15	6	ouiterminé 


Cdlmnt

Besoin d'aide concernant un exercice (do loop until)

2 réponses

Discussions similaires

Newsletters