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
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.