Latihan 2 Aplikasi Perhitungan Bilangan Pangkat

Disamping adalah preview dari Aplikasi Perhitungan Bilangan Pangkat yang merupakan kelanjutan dari posting saya sebelumnya yaitu program Aplikasi Gaji dan Penentuan Tunjangannya dan masih merupakan tugas dari kuliah saya:D.

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, setelah itu klik 2x pada setiap tombol berikut dan letakkan kode berikut :

kodenya dibawah ini:

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;

kodenya dibawah ini:

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;

kodenya dibawah ini:

var
a,i,j:Integer; b:String;
begin
b:=''; i:=2;
While i<=10 do begin b:=b+IntToStr(i)+''; i:=i+1; end; Label3.Caption:=b; 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;

kodenya dibawah ini:

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;

masih bingung? gak faham? ambil sourcenya disini

Unknown

Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt.