>>>>> DOWNLOAD .DOC<<<<<
LAPORAN
AKHIR PRAKTIKUM
Mata Praktikum : Algoritma & Pemrograman 2 A (AP2A)
Kelas : 1IA20
Praktikum ke- : 3
Tanggal : 2 april 2015
Materi : Perulangan Pada Delphi
NPM : 53414057
Nama : Didi Mulyadi
Ketua Asisten : Chairul U
Nama Asisten :
Paraf Asisten :
Jumlah Lembar : 6 lembar
LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2015
Listing Program.
Listing Tombol dan logika:
|
-
Order
procedure
TForm1.Button1Click(Sender: TObject);
var
E,
F:integer;
begin
memo1.clear;
E:= strtoint(Edit1.Text);
F:= 0;
while F <> StrToInt (Edit2.Text) do
begin
Memo1.Lines.Add('Perulangan
Ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
F:= F+1;
end;
end;
Blok program diatas menggunakan
perulangan pada Delphi. Kemudian membuat varibel E dan F bertipe data integer.
Kemudian menginput nilai dari variabel E ,menentukan nilai awal variabel F
bernilai 0 melakukan perulangan dengan perulangan while dan perulangannya
nilai variabel E dan F ditambah satu yang hasilnya akan di cetak pada Memo1.
procedure
TForm1.Button2Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= strToInt (Edit1.Text);
F:= 1;
repeat
Memo1.Lines.Add('Perulangan Ke-'
+IntToStr(F)+' = ' +IntToStr(E));
F:= F+1;
E:= E+1;
until F = StrToInt (Edit2.Text)
Blok program diatas
menggunakan perulangan pada Delphi. Kemudian membuat varibel E dan F bertipe
data integer. Kemudian menginput nilai dari variabel E. variabel F bernilai 1
melakukan perulangan dengan fungsi perulangan repeat until : melakukan
perulangan sampai statement atau kondisi terpenuhi dan di setiap
perulangannya nilai variabel E dan F ditambah satu yang hasilnya akan di
cetak pada Memo1.
procedure
TForm1.Button3Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit1.Text);
for F:= 0 to StrToInt(Edit2.Text) do
begin
Memo1.Lines.Add('Perulangan Ke-'
+IntToStr(F)+' = ' +IntToStr(E));
E:= E+1;
end;
end;
Blok program diatas
menggunakan perulangan pada Delphi. Kemudian membuat varibel E dan F bertipe
data integer.. Kemudian menginput nilai dari variabel E. variabel F bernilai
0 melakukan perulangan dengan fungsi perulangan for to do melakukan perulangan sampai statement atau
kondisi terpenuhi dari nilai yang terkecil sampai nilai yang terbesar dan di
setiap perulangannya, nilai variabel E ditambah satu yang hasilnya akan di
cetak pada Memo1.
procedure
TForm1.Button4Click(Sender: TObject);
var
E, F: Integer;
begin
Memo1.clear;
E:= StrToInt (Edit1.Text);
F:=0;
for E:= E downto (StrToInt(Edit1.Text)-StrToInt(Edit2.Text)+1) do
begin
Memo1.Lines.Add('Perulangan Ke-'+IntToStr(F)+' = '+IntToStr(E));
F:=F+1;
end;
end;
Blok program diatas menggunakan
perulangan pada Delphi. Kemudian membuat varibel E dan F bertipe data
integer.. Kemudian menginput nilai dari variabel E. variabel F bernilai 0
,kemudian program dia atas melakukan perulangan dengan fungsi for downto do
yang dapat melakukan perulangan sampai statement atau kondisi terpenuhi dari
nilai yang terbesar sampai nilai yang terkecil dan di setiap perulangannya nilai
variabel F ditambah satu yang hasilnya akan di cetak pada Memo1.
procedure
TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := ' ';
Edit2.Text := ' ';
Memo1.Text := ' ';
Edit1.SetFocus;
Edit2.SetFocus;
end;
Blok program diatasdi gunakanuntuk
membuat memo baru atau memo yang lama
akan terhapus datanya seperti membuat
sebuah lembar kerja baru.
procedure TForm1.Button6Click(Sender:
TObject);
begin
Halt;
end;
end.
Blok program diatas merupakan perintah
untuk menutup atau mengahkhiri suatu program sama halnya seperti Application.Terminate.
|
Output Program :
No comments:
Post a Comment