kalian bisa mencobanya di komputer / laptop kawan-kawan sendiri, berikut adalah source dari aplikasi disamping dan cara meletakkan kode nya.
1. buat form seperti di preview dengan ketentuan :
Nama variabel
toolbar
btnPANGKAT1
PANGKAT1
btnPANGKAT2
PANGKAT2
btnPANGKAT3
PANGKAT3
btnPANGKAT4
PANGKAT4
2. sesudah itu silahkan masuk kedalam file .pas , dan carilah kode berikut : publik { Public declarations } dan silahkan tambahkan kode berikut dibawahnya
procedure pangkat1(p,l:string); function pangkat2(p,l:string):string; function pangkat3(m,n:integer):integer; 3. setelah itu klik 2x pada setiap tombol berikut dan letakkan kode berikut :
kodenya dibawah ini:
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,c,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,c,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,c,i:integer;
begin
i:=1;
c:=1;
while 1<=a do
begin
c:=c*m;
i:=i+1;
end;
pangkat3:=c;
end;
kodenya dibawah ini:
begin
pangkat1(edit2.Text,edit1.Text);
end;
kodenya dibawah ini:
begin
edit3.Text:=pangkat2(edit2.Text,edit1.Text);
end;
kodenya dibawah ini:
var
i,j:Integer; b:String;
begin
b:=''; i:=2;
repeat
b:=b+IntToStr(i)+'';
i:=i+1;
until i>10;
Label4.Caption:=b;
end;
Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt.