Membuat Program Perulangan Menggunakan Delphi 7
Assalamu’alaikum…
Saya ingin membuatkan Pengalaman lagi sayanih mengerjakan laporan menurut Laboratorium TI pada Gunadarma, seperti umumnya, sebelumnyasaya telah memposting tutorial membuat Program menggunakan VB serta serta Delphi 7, nah sekarang aku ingin menaruh sedikit nih turorial Cara menciptakan Program Perulangan menggunakan Delphi 7,membuat perulangannya itu memakai Perulangan While-Do,For-Do, serta Kuadrat menggunakan Delphi 7 . oke dehlangsung aja ya tutorial membuat Laporan Akhir Praktikum Delphi 7ini, menggunakan Membuat Perulangan While-Do,For-Do, serta Kuadrat Sederhana dalam Program Delphi 7ini..
LAPORAN AKHIRPRAKTIKUM
MATA PRAKTIKUM : ALGORITMA DANPEMROGRAMAN
KELAS : 1IA13
PRAKTIKUM KE- : 3
TANGGAL : 28 MARET 2018
MATERI : Membuat Program Perulangan
NPM : 54411827
NAMA : Muhammad Faris Al Fatih
NAMA KETUA ASISTEN :
NAMA ASISTEN :
PARAF ASISTEN :
JUMLAH LEMBAR : LEMBAR
LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2012
Listing Program
1. Button 1 ( While – Do )
Lihat Gambar:
Lihat Gambar:
Lihat Gambar:
Lihat Gambar:
Bab2.
LogikaProgram
1. Analisa Progam
Pada program ini kita akan membuat suatu program yangakan menggunakan perulangan For – Do serta While – Do ditambah dengan perhitungankuadrat. Dimana program ini akan mencetak nilai masing-masing perulangan dankita dapat membedakan perbedaan berdasarkan for – do serta while – do. Program ini akandibuat pada Delphi 7, untuk itu diperlukan beberapa label edit , command button ,memo serta juga group box .
2. Penjelasan Program
Setelah mengetahui apa saja yang dibutuhkan, sekarang kitamemasuki ke desain program. Pertama-tama kita buat dulu komponen yangdiperlukan sesuai listing program diatas setelah itu kita harus membuatcodingan satu-persatu pada dalam command button serta tidak sekaligus. Sesudah itupengubahan setiap komponen yang dibuat melalui Object Inspector dimana hal inisangat penting, jika tidak orang lain akan bingung melihat hasil kerja programini dengan tidak mengubah nama, judul label pada program serta lain-lain. Jikasudah semua, maka selanjutnya masuk ke tahap pengodingan, disini kita sudahharus mengetahui sintaks-sintaks dalam bahasa pemrograman Delphi 7 agar saat dikompilasi tidak terjadi kesalahan dalam pengodingan. Kita lanjutkan saja ketahap pengodingan, buat dulu variabel yang diperlukan untuk memasukkan nilai.memo1.clear; berguna untuk menghapus judul/caption yang terdapat pada Memo1karena dalam Object Inspector, komponen Memo tidak mempunyai caption.memo1.lines.add() berguna menampilkan hasil cetakan ke dalam Memo1 per baris.codingan dalam button3/kuadrat, a := Sqr(f); berarti nilai pada variabel f akandi kalikan lagi dengan nilai yang sama pada variabel f.
sintaksnyayaitu :
procedure TForm1.button1Click(Sender: TObject);
var
E,F:integer;
begin
memo1.clear;
E:=strtoint(edit1.text);
F:=1;
while F<>strtoint(edit2.text)do
begin
memo1.lines.add('perulanganke-'+inttostr(F)+'='+inttostr(E));
E:=E+1;
F:=F+1;
end;
end;
procedure TForm1.button2Click(Sender: TObject);
var
E,F:integer;
begin
memo1.clear;
E:=strtoint(edit1.text);
for F:=1 to strtoint(edit2.text)do
begin
memo1.lines.add('perulanganke-'+inttostr(F)+'='+inttostr(E));
E:=E+1;
end;
end;
procedure TForm1.button3Click(Sender: TObject);
var
A,E,F:integer;
begin
memo1.clear;
E:=strtoint(edit1.text);
for F:=E to strtoint(edit2.text)do
begin
A:=sqr(F);
memo1.lines.add(inttostr(F)+'kuadrat-'+inttostr(A));
end;
end;
end.
Bab 3.
Output
( While – Do )
Lihat Gambar:
( For – Do )
Lihat Gambar:
( Kuadrat )
Lihat Gambar:
Sekian yg bisa gua berikan sedikit liputan nih tentang Cara Membuat Perulangan While-Do,For-Do, serta Kuadrat Sederhana berdasarkan ProgramDelphi 7.. Semoga Tutorial ini berguna ya buat kalian.. Good Luck.. :D
NB : Sebenarnya Delphi 7 serta Visual Basic 6 hampir sama tools2nya,yang membedakan hanyalah kodingannya yg sedikit tidak selaras, biar lebih taukalian coba aja ya.. :)
Wassalamu'alaikum...