BAB PAGKAT [Tugas UTS Semester 2]

Raden Syaifudin 15.55 Delphi 7 , Semester 2 , Tugas , Tutorial Tidak ada komentar

Bilangan berpangkat, yaap identik dengan pelajaran matematika yang harus di hitung manual. tenang saja, kali ini syaif design akan berbagi ilmu tentang bagaimana cara membuat aplikasi pangkat, langsung saja simak caranya dibawah ini :
1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

Perlu diperhatikan pada Object TreeView & Objet Inspector Properties harus di sesuaikan dengan object.

4. Pada tombol PANGKAT masukkan script dibawah ini pada Code Explorer

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
a,b,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;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.