somme des impairs vb6 Fermé

Question

Bonjour,
j'ai un probleme pour mon programme 
je souhaite calculé un nombre au carré par la somme des premier impair, par ex 
pour 3² on fait 1+3+5

voici le debut de mon programme
dim i as integer
dim res as integer

res=0
txt1.txt=n                        dans la zone de text1 on affiche la valeur de n
for i=1 to n step 2     
res=res+i
next i

somme=res
txt2.text= res             dans la zone de text2 on affiche le resultat
et ensuite j'affiche la valeur de "somme" 

mais j'ai un problème avec cette boucle,elle ne fonctionne pas correctement
mon souci c'est que je crois qu'il y a une autre boucle avant celle là mais je sais pas comment le formule

merci d'avance pour votre aide

loupius · Answer

Je ne me souviens pas très bien de vb6, mais peu importe, seul l'algorithme est important:

Soit à trouver le carré de n
Si n non positif
   Indiquer erreur et arrêter
resultat = 0
boucle = 0
A faire tant que boucle est différent de n
   calculer resultat = resultat + 2*boucle+1
   boucle = boucle + 1


#include <stdio.h>

int main (int argc, char *argv[])
{
        if ( (argc <= 1) || (argv[1] <= 0) )
                        printf ("Veuillez donner un argument positif
");
        else
        {
                int i, res = 0, nb = atoi(argv[1]);
                for (i=1; i<nb*2+1; i+=2)
                        res += i;
                printf ("Le carré de %d est %d
", nb, res);
        }
}

Somme des impairs vb6

1 réponse

Discussions similaires