Diposting oleh
Unknown
komentar (0)
FUNGSI PERULANGAN
Sebuah program fungsi perulangan digunakan untuk mengulang suatu perintah
tanpa menuliskan scriptnya kembali, fungsi perulangan yang di pelajari disini
adalah for to do, for down to do, while do dan repeat until. Fungsi pengulangan
ini digunakan untuk melakukan perulangan pada suatu baris perintah tertentu dan
diulang sejumlah tertentu sesuai kondisi yang diberikan. Salah satu aplikasi
fungsi ini adalah untuk menampilkan data dari suatu tabel database.- Fungsi while
kondisi adalah syarat pengulangan yang akan dijalankan. perintah1, perintah2 dan seterusnya adalah baris-baris program yang akan diulang.
- Fungsi for()
Fungsi for merupakan fungsi pengulangan yang sama dengan while, namun for bersifat lebih rumit atau kompleks.
-Fungsi while …..do()
Fungsi do…while hampir sama dengan fungsi while, perbedaan dengan fungsi while adalah bahwa
pengujian dilakukan pada akhir pengulangan.
Berikut adalah contoh dari fungsi perulangan :
Pertama buat form seperti gambar di bawah ini
Setelah kita selesai membuat formnya klik button dan tulis
scripnya:
unit Unit1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
ForToDo: TButton;
ForDowntoDo:
TButton;
WhileDo: TButton;
RepeatUntil:
TButton;
btkeluar: TButton;
btpangkat:
TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure
btkeluarClick(Sender: TObject);
procedure
ForToDoClick(Sender: TObject);
procedure
ForDowntoDoClick(Sender: TObject);
procedure
WhileDoClick(Sender: TObject);
procedure
RepeatUntilClick(Sender: TObject);
procedure btpangkatClick(Sender:
TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btkeluarClick(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.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.
Dan selesai, program siap di
running muncullah hasil seperti gambar berikut:
ini sebenarnya adalah project ke-2 dan telah selesai akan dilanjutkan pada project selanjutnya!!