Delphi BX Manual do Utilizador descarregar pdf (Página 9)

page 56 de 93

edtNombre: TEdit;

lblEgal: TLabel;

btnOk: TButton;

lblResultat: TLabel;

procedure btnOkClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

formul: Tformulaire;

implementation

{$R *.dfm}

//fonction permettant de calculer une factorielle

function factorielle(n:integer):integer;

var fact:integer;

begin

fact:=1;

while n>1 do

begin

fact:=fact*n;

n:=n-1

end;

result:=fact

end;

procedure TFormulaire.btnOKClick(Sender: TObject);

var n,fact:integer;

begin

n:=StrToInt(edtnum.Text);

fact:=factorielle(n);

lblresult.Caption:=IntToStr(fact)

end;

procedure TFormulaire.btnexitClick(Sender: TObject);

begin

Close;

end;

end.

7.5.4 Exécution du programme

Une fois ce code saisi, nous sauvegardons le tout dans un répertoire réservé à cette application.

Nous cliquons ensuite sur le bouton qui représente un petit triangle vert et le programme

s’exécutera.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ... 45 46

Comentários a estes Manuais

Sem comentários

Delphi BX Manual do Utilizador Página 9

Comentários a estes Manuais