FUNCTION DAN PROCEDURE

FUNCTION DAN PROCEDURE 

Pert. 7
FUNCTION DAN PROCEDURE

         Pada pertemuan ini membahas tentang 'Function dan Prosedure berpangkat', pada beberapa bagian ada script atau coding yang harus kita tulis sendiri (di tambahin) seperti berikut :

1. Mewakili Progam
2. Mewakili Variable

Dan tampilan listingnya seperti berikut ...

Listing

Script lengkapnya ada di bawah ini ...

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;

    btnpangkat2: TButton;

    btnpangkat3: TButton;

    btnpangkat4: TButton;

    Label4: TLabel;

    btnclear: TButton;

    procedure btnpangkat1Click(Sender: TObject);

    procedure btnpangkat2Click(Sender: TObject);

    procedure btnpangkat3Click(Sender: TObject);

    procedure btnpangkat4Click(Sender: TObject);

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

  c:integer;

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

  i: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.btnclearClick(Sender: TObject);

begin

  edit1.Text:='';

  edit2.Text:='';

  edit3.Text:='';

end;

end.

Setelah menulis script atau listing program, lakukan penyimpanan :
·  Save as : untuk menyimpan editor
·  Save Project As : untuk menyimpan project

Dan ini gambar hasil ruuning dan hasil progam saya yang sudah jadi.

Hasil Running

       Baru kita bisa memasukkan data pada kolom 'Bilangan' dan 'Pangkat' lalu pilih pangkat berapa yang akan di pilih dan saya memilih 'pangkat 3' maka akan keluar pada kolom 'Hasil', setelah semua selesai, klik  button 'Clear' untung membersihkan atau menghapus data.

Input Data

Pilih Pangkat

Hapus Data

Sekian ~~