FACTORISATION PREMIÈRE
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
16 nov. 2002 à 18:55
cs_koko Messages postés 654 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 20 février 2005 - 17 nov. 2002 à 08:59
cs_koko Messages postés 654 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 20 février 2005 - 17 nov. 2002 à 08:59
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
https://codes-sources.commentcamarche.net/source/12219-factorisation-premiere
17 nov. 2002 à 08:59
16 nov. 2002 à 18:55
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