Membuat Faktorial dengan Delphi

A. Aplikasi Menenghitung Faktorial

1. Rancangan GUI

2. Daftar Komponen GUI

No.	Nama Komponen	Properties	Value
1	Label1	Caption	Deskripsi : Program Faktorial
		Name	Label1
2	Label2	Caption	Masukkan Angka
		Name	Label2
3	Label3	Caption	Hasil
		Name	Label3
4	Edit1	Name	Edit1
		Text	""
5	Edit2	Name	Edit2
		Text	""
6	Button1	Caption	hitung
		Name	Button1

3. Event

3.1.Event pada button1 (button Hitung)

Berfungsi untuk menghitung Faktorial dari Edit1.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

function faktorial(n:integer):integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.faktorial(n:integer):integer;

begin

if (n=1) then

begin

result:=1;

end

else

result:= n*faktorial(n-1);

end;

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

n:=strtoint(edit1.Text);

edit2.Text:=inttostr(faktorial(n));

end;

end.

4. Review Program

Jika ada yang Kurang jelas bisa langsung ditanyakan. Fast Respawn!

BISA CREATIVE

Membuat Faktorial dengan Delphi