NOMBRE PARFAIT
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
11 déc. 2004 à 09:21
cs_kaboum Messages postés 31 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 juillet 2010 - 16 avril 2013 à 09:44
cs_kaboum Messages postés 31 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 juillet 2010 - 16 avril 2013 à 09:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/28121-nombre-parfait
https://codes-sources.commentcamarche.net/source/28121-nombre-parfait
16 avril 2013 à 09:44
c est un peu dommage.
sinon pour la récursivité tu peux mettre ta fonction dans le corps de la procédure aussi je trouve cela plus clair au niveau du code.
sinon pour l explication merci Wikipédia :o)
Variable Somme, N, i entiers
Pour N dans 1..10000
Somme ? 0
Pour i dans 1..N-1
Si mod(N;i)==0 alors
Somme=Somme+i
FinSi
FinPour
Si Somme==N alors
Afficher N "est parfait"
FinSi
FinPour
13 déc. 2004 à 11:42
J' en ai pour preuve certains commentaires sur mes sources. Alors ton secret? Bem moi je pense que tu es nouveaux sur Delphi mais par sur d' autres langages ...
12 déc. 2004 à 20:53
http://www.vbfrance.com/code.aspx?ID=5187
STP évite ce genre de code à l'avenir ...
Je veux pas être méchant mais les codes pour trouver les nombre premier etc.. y'en a trop, ça sert a rien d'en rajouter !
Tu me diras alors : PK moi j'en ai fait un ?
Et bien parce que il est 1000 fois plus rapide que tout les autres car il utilise une propriété que personne d'autre n'a utilisé.
Si tu ne comprends pas le principe (ce qui m'étonnerais) et que tu ne pige rien au vb, je pourrais t'envoyer la source en delphi (valable également pour les lecteurs de ce commentaires)
11 déc. 2004 à 14:12
Merci pour vos commentaires
11 déc. 2004 à 13:23
Avec les explications en prime, ça passe nettement mieux.
Désolé d'avoir été un peu sec, mais un code source qui n'a aucun commentaire, aucune explication en annexe, ça ne vaut rien pour ceux qui ne l'ont pas écrit. On ne peut pas passer son temps à essayer de deviner ce qu'une autre personne a voulu faire.
Toi même, dans quelques mois, tu te demanderas pourquoi et comment tu as écrit ce code.
Alors, si tu débutes, fais l'effort d'expliquer ce que tu fais et pourquoi tu le fais. Tu verras, c'est très payant sur le long terme.
Ceci dit, bravo pour l'utilisation de la récursivité. Cette démarche montre que tu n'es peut-être pas si débutant que ça.
Bonne continuation.
11 déc. 2004 à 12:31
voilà, sinon tu peux t'entrainer à faire le programme sans passer par le Dos, tu donne les résultats dans un memeo ou un richedit...
Voilà sinon bon courage, tu vas aprrendre rapidement en surfant sur les différents forum et tutoriaux Delphi
11 déc. 2004 à 11:51
Bon a part sa au niveau du code tu pourrait me dire ce que je pourrais arranger stp comme sa en meme temps sa me permet d'apprendre un peu.
Merci d'avance
11 déc. 2004 à 10:40
Ce serait bien de donner un minimum d'explications.
Quant au codage proprement dit, il est loin d'être parfait.
11 déc. 2004 à 09:21