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

Bonsoir Orbitalstyle,

celui là tu ne l'as pas trouvé :
http://www.delphifr.com/infomsg_COMMENT-TROUVER-DIVISEUR-NOMBRE-ENTIER_1063338.aspx

cantador

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

http://www.delphifr.com/codes/TOUVER-DIVISEURS-NOMBRE-ENTIER_45480.aspx

---

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 ;(

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