Trouver diviseur en delphi 5

Signaler
Messages postés
3
Date d'inscription
dimanche 8 juin 2008
Statut
Membre
Dernière intervention
9 juin 2008
-
Messages postés
3
Date d'inscription
vendredi 8 mai 2009
Statut
Membre
Dernière intervention
3 avril 2011
-
Bonjour , j'ai pu voir deux programme delphi ( pour trouver les diviseurs d'un nombre) sur ce beau site , malheureusement ou nous travaillons , nous n'avons apparament pas les mêmes version , nous somme sur Borland delphi 5 .
Si quelquun pouvais nous aidé car le prof c'est un méchant :p et personne n'y arrive.... ( non il ne lit pas les forums ) .
L'ideal pour l'interface serais un button un memo et un edit pour rentrer le chiffre....

Merci d'avance :(...

4 réponses

Messages postés
3
Date d'inscription
dimanche 8 juin 2008
Statut
Membre
Dernière intervention
9 juin 2008

Bonsoir cantador , enfaite j'ai essayé ce code , sauf qu'il m'affiche beaucoup d'erreur dont le
Type
  TIntArray = Array Of Integer;

Qui apparament fonctionne pas O_o , je ferais un screen shoot demain , peut etre suije juste trop nul et je ne copy pas au bonne endroit ^^ , j'aurais bien aimé avoir le dpr de cirec pour voir.. ^^
bonne soirée
Messages postés
3
Date d'inscription
dimanche 8 juin 2008
Statut
Membre
Dernière intervention
9 juin 2008

Oui c'est axectement les 2 que j'avais vue x)... sauf que le tient f0xi et trop perfectionné , le code un poile trop compliquer a expliquer au prof xD , et ne fonctionne apparament pas sous borland  delphi 5 ;(
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
Voilà, j'ai ajouté un SpinEdit et une initialisation et
 le code de cirec fonctionne bien sous D7:

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}
type
  TIntArray = array of Integer;


function GetIntDivider(aInt: Integer): TIntArray;
var
  aDiv: Integer;
begin
  aDiv := 1;
  while aDiv <= aInt do begin
    if aInt mod aDiv = 0 then begin
      SetLength(Result, Length(Result) + 1);
      Result[High(Result)] := aDiv;
    end;
    Inc(aDiv);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Resultat: TIntArray;
  I: Integer;
begin
  Memo1.Clear;
  Resultat := GetIntDivider(SpinEdit1.Value);
  for I := Low(Resultat) to High(Resultat) do
    Memo1.Lines.Add(IntToStr(Resultat[I]));
end;


end.

cantador
Messages postés
3
Date d'inscription
vendredi 8 mai 2009
Statut
Membre
Dernière intervention
3 avril 2011

J'ai la solution en DELPHI

5  Pour les Debutant comme moi mais je donnerai pas la solution sans la demander par gentillesse ;)





                                   

                                                          $~BI~<strike>B</strike>~OZ~$