1.Jalankan terlebih dahulu program Delphi anda
2. Setelah itu kita akan default dibawa ke halaman new form blank..
3. Nah saya akan membuat program .exe seperti ini
4.Buat interfacenya, dengan menggunakan tool yang ada pada tab standart (Label,
Edit, dan Button) hingga pada Window Object TreeView terbentuk seperti ini
Edit, dan Button) hingga pada Window Object TreeView terbentuk seperti ini
unit1.pas.
Masukkan script dibawah ini
procedure TForm1.bt_keluarClick(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.bt_pangkatClick(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.
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 script namun masih ada lanjutannya
· End. Untuk mengakhiri sebuah script
· Begin untuk memulai suatu penulisan script pada program
· 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 script namun masih ada lanjutannya
· End. Untuk mengakhiri sebuah script
· Begin untuk memulai suatu penulisan script 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 struktu
pengulangan dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti
terpenuhi.
· While I do struktur pengulangan dimana selama kondisi ( persyaratan )
pengulangan masih benar, maka aksi dikerjakan
Bagikan
Aplikasi Perulangan Berpangkat
4/
5
Oleh
Hanya Catatan Pribadi
