FACTORISATION PREMIÈRE

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005
-
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/12219-factorisation-premiere

Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

c vrai ! c cochon les goto !!
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
Un jour un prof nous a dit : "Si dans un programme en Pascal vous utilisez un Goto, alors c'est que votre programme est mal conçu..."

Puis :
-> for a:= 2 to StrToInt(Edit1.Text) Div 2 do // la moitié est suffisant
-> if (B / A) = Int(B / A) then Sécrit if (B mod A)=0 Then // ce n'est pas utilte d'utiliser des flottants.
- > D n'est jamais initialisée !! il faut ajouté D:=1 au début.
- > 'Calcule en cours, veuiller patienter'; // Calcul s'écrit sans E et veuillez est le verbe Vouloir conjugé donc Veuillez s'écrit avec un Z
-> 'Calcul terminer' S'écrit 'Calcul terminé'

Nono