Factorisation première

0/5 (2 avis)

Vue 12 889 fois - Téléchargée 245 fois

Description

C'est simple, ce petit programme sert a trouvé les la multiplication de facteur premier égale a un nombre

Source / Exemple :


procedure TFrmMain.Button1Click(Sender: TObject);
Var a : Integer; B : Integer; C : Integer; D : Integer;
label A10;
begin
adda.Text := '';
B := StrToInt(Edit1.text);
LabStatus.Caption := 'Calcule en cours, veuiller patienter';
A10:
for a:= 2 to StrToInt(Edit1.Text) do
begin
        If (B / A) = Int(B / A) Then
                Begin
                adda.Text := adda.Text + IntToStr(A) + ',';
                D := D + 1;
                B := B div A;
                If B = 1 Then
                Begin
                        adda.text := copy(adda.text,1,Length(adda.Text)-1);
                        LabStatus.Caption := 'Calcul terminer';
                        Stat1.Caption := IntToStr(D);
                        Break;
                End;
        Goto A10;
        End;
End;
        If D = 1 Then Begin;
                LabStatus.Caption := 'Erreur : Nombre premier';
        End;
End;

Conclusion :


www.psycomaxter.fr.st

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
c vrai ! c cochon les goto !!
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
16 nov. 2002 à 18:55
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.