Factorisation première

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_max12)