Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Factorisation première

0/5 (2 avis)

Vue 11 886 fois - Téléchargée 179 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

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.