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
