Membuat procedure perulangan pangkat 2

 

1.       Buka program Delphi 7

2.       Setelah itu klik file – new – pilih form

3.       Lalu buat diagram seperti dibawah ini dengan menambahkan buttom, Edit,label

4.       Kemudian  merubah name (agar lebih mudah teringat)

5.       Jika sudah masukan skripnya dengan kita klik kiri 2x pada PANGKAT. Ketikkan scrip seperti dibawah ini

interface

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

begin

i:=1;

c:=1;

While i<=a 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.btnPANGKAT44Click(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;

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

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

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

6.       Setelah selesai maka tekan f9 untuk mencoba program tadi. Jika berhasil maka seperti dibawah ini

Lakukan begitu terus sampai pangkat 4

Membuat procedure perulangan pangkat

1.       Buka program Delphi 7

2.       Setelah itu klik file – new – pilih form

3.       Lalu buat diagram seperti dibawah ini dengan menambahkan buttom, Edit,label

4.       Kemudian  merubah name (agar lebih mudah teringat)

5.       Jika sudah masukan skripnya dengan kita klik kiri 2x pada For To Do. Ketikkan scrip seperti dibawah ini

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 :

·         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.

6.       Setelah selesai maka tekan f9 untuk mencoba program tadi. Jika berhasil maka seperti dibawah ini

Tekan keluar untuk keluar