Motto Saya

"Bekerja Selagi Mampu, Manjadda wajadda..."

Rabu, 30 Januari 2013

Membuat Program Faktorial dari Delphi

Beriku ini adalah program sederhana saya.
gambarnya :


unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    SpeedButton2: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  i, n, jml, fak: integer;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
  if TryStrToInt(Edit1.Text, n)= false then
begin
  ShowMessage('Salah memasukkan jumlah n, ulangi!!');
  Edit1.SetFocus;
  Edit1.Clear;
  exit;
end;
  jml := 0;
  for i := 1 to n do
  jml := jml+i;

  fak := 1;
  For i := 1 to n do
  fak := fak*i;

  Edit2.Text := IntToStr(fak);
  Edit3.Text := IntToStr(jml);
end;

procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.
sesuaikan objek yg saya pakai bila ingin mencoba menjalankannya. kalau ada yg masih error silakan komen ato kirim via email.

Tidak ada komentar:

Posting Komentar