PROJECT 3

Diposting oleh Unknown


BILANGAN PANGKAT
            Procedure adalah sub program yang digunakan untuk melakukan proses tertentu dan tidak mengembalikan nilai, bisa disimpan dalam database sebagai object skema, sehingga suatu prosedure bisa digunakan berulangkali tanpa harus melakukan parsing dan compile ulang. 
Procedure juga merupakan prosedur yang digunakan untuk menghasilkan proses atau pernyataan umum yang bisa dipakai oleh event-event prosedur pada tubuh program dan juga digunakan untuk mengatur kontrol suatu kejadian dari pemakai program.

Ini adalah contoh sebuah procedure yang menggunakan bilangan berpangkat :
Setelah selesai membuat form tulislah scripnya:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnpangkat1: TButton;
    btnpangkat3: TButton;
    btnpangkat4: TButton;
    btnpangkat2: TButton;
    btkeluar: TButton;
    procedure btnpangkat1Click(Sender: TObject);
    procedure btnpangkat2Click(Sender: TObject);
    procedure btnpangkat3Click(Sender: TObject);
    procedure btnpangkat4Click(Sender: TObject);
    procedure btkeluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure pangkat1(p,l:string);
    function pangkat2(p,l:string):string;
    function pangkat3(m,n:integer):integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnpangkat1Click(Sender: TObject);
var
 a,b,i,c:integer;
begin
 i:=1;
 c:=1;
 a:=strtoint(edit2.Text);
 b:=strtoint(edit1.Text);
 while i<=a do
 begin
  c:=c*b;
  i:=i+1;
 end;
 edit3.Text:=inttostr(c);
end;

procedure TForm1.pangkat1(p,l:string);
var
 a,b,i,c:integer;
begin
 i:=1;
 c:=1;
 a:=strtoint(p);
 b:=strtoint(l);
 while i<=a do
 begin
  c:=c*b;
  i:=i+1;
 end;
 edit3.Text:=inttostr(c);
end;

function TForm1.pangkat2(p,l:string):string;
var
 a,b,i,c:integer;
begin
 i:=1;
 c:=1;
 a:=strtoint(p);
 b:=strtoint(l);
 while i<=a do
 begin
  c:=c*b;
  i:=i+1;
 end;
 pangkat2:=inttostr(c);
end;

function TForm1.pangkat3(m,n:integer):integer;
var
 a,b,i,c:integer;
begin
 i:=1;
 c:=1;
 while i<=n do
 begin
  c:=c*m;
  i:=i+1;
 end;
 pangkat3:=c;
end;

procedure TForm1.btnpangkat2Click(Sender: TObject);
begin
 pangkat1(edit2.Text,edit1.Text);
end;

procedure TForm1.btnpangkat3Click(Sender: TObject);
begin
 edit3.Text:=pangkat2(edit2.Text,edit1.Text);
end;

procedure TForm1.btnpangkat4Click(Sender: TObject);
var
 a,b,c:integer;
begin
 a:=strtoint(edit1.Text);
 b:=strtoint(edit2.Text);
 c:=pangkat3(a,b);
 edit3.Text:=inttostr(c);
end;

procedure TForm1.btkeluarClick(Sender: TObject);
begin
 close;
end;

end.

setelah itu, inilah hasil dari runnig project 2 : 
 sekian project kedua ini,,semoga bermanfaat dan akan dilanjutkan pada project berikutnya !!!!

 

0 komentar:

Posting Komentar