Latihan 2 membuat procedure berpangkat

1. buka program delphi kita
2. kemudian pilih form, lalu buat form seperti dibawah ini

3. lalu ketikkan scrip dibawah ini

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    ForToDo: TButton;

    ForDowntoDo: TButton;

    WhileDo: TButton;

    RepeatUntil: TButton;

    btkeluar: TButton;

    btpangkat: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    procedure btkeluarClick(Sender: TObject);

    procedure ForToDoClick(Sender: TObject);

    procedure ForDowntoDoClick(Sender: TObject);

    procedure WhileDoClick(Sender: TObject);

    procedure RepeatUntilClick(Sender: TObject);

    procedure btpangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btkeluarClick(Sender: TObject);

begin

 close;

end;

procedure TForm1.ForToDoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=1 to 10 do

 begin

  b:=b+inttostr(j)+'';

  j:=j+2;

 end;

 label1.Caption:=b;

end;

procedure TForm1.ForDowntoDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=10 downto 1 do

 begin

  b:=b+inttostr(i)+'';

  j:=j+2;

 end;

 label2.Caption:=b;

end;

procedure TForm1.WhileDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 while i<=10 do

 begin

  b:=b+inttostr(i)+'';

  i:=i+1;

 end;

 label3.Caption:=b;

end;

procedure TForm1.RepeatUntilClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 repeat

  b:=b+inttostr(i)+'';

  i:=i+1;

 until i>10;

 label4.Caption:=b;

end;

procedure TForm1.btpangkatClick(Sender: TObject);

var

 bil,hasil,pangkat,a:integer;

begin

 bil:=strtoint(edit1.Text);

 hasil:=bil;

 pangkat:=strtoint(edit2.Text);

 if edit2.Text='0' then edit3.Text:='1' else

 if edit2.Text='1' then edit3.Text:=edit1.Text

 else

  begin

   for a:=2 to pangkat do

    hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);

  end;

end;

end.

Keterangan :

·         Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·         Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

·         IntToStr untuk merubah tipe data integer ke tipe data string.

·         Caption untuk Membuat caption pada table

·         End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·         Begin untuk memulai suatu penulisan scrip pada program

·    String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value

·         If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

·   For todo untuk membuat perulangan angka berurutan atau merupakan struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacah pengulangan atau for variable := nilai_awal to nilai_akhir do pernyataan

·         For downto do for variable := nilai_awal downto nilai_akhir do pernyataan

·         While do memasukan fungsi pada awal program

·         Repeat until untuk membuat program menjadi perulangan  atau struktur pengulangan dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti terpenuhi.

·         While I do struktur pengulangan dimana selama kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan.

4. tekan f9 untuk mencoba program