LAPORAN AKHIR PRAKTIKUM
MATA
PRAKTIKUM : ALGORITMA DAN PEMROGRAMAN
KELAS
: 1IA07
PRAKTIKUM KE-
: 2
TANGGAL
: 18 Maret 2016
MATERI
: PERULANGAN PADA DELPHI
NPM
: 54415823
NAMA
: Muhammad Yunus
NAMA KETUA
ASISTEN : Grace
NAMA
ASISTEN : Faizal
PARAF
ASISTEN
:
JUMLAH
LEMBAR
: 10 LEMBAR
LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2016
LISTING PROGRAM
unit unitperulangan;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ExtCtrls;
type
TForm1 =
class(TForm)
GroupBox1:
TGroupBox;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label3: TLabel;
procedure
Button1Click(Sender: TObject);
procedure
GroupBox1Click(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var angka_awal,angka_akhir:integer;
begin
angka_awal :=strtoint(edit1.Text);
angka_akhir :=strtoint(edit2.Text);
While angka_awal<=angka_akhir do
begin
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal);
end;
end;
procedure TForm1.GroupBox1Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
Memo1.Text :='';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
Memo1.Text :='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
Memo1.Text :='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
end.
LOGIKA PROGRAM
Pertama
pada bagian judul menggunakan component pallet ‘panel’, kemudian edit bagian
caption menjadi ‘PERULANGAN PADA DELPHI’
kemudian click color lalu pilih clAqua, untuk mengedit ukuran huruf klik font
lalu pilih bold dengan size 14 selain itu saya menggunakan 2 label, 2 edit
text, 3 button, 1 memo dan 1 groupbox.
Label1 diberikan nama Angka awal, kemudian edit bagian bagian caption
menjadi ‘Angka Awal’, Label2 juga sama mengganti nama label dengan ‘Angka
Akhir’. Edit1.text di gunakan untuk memberi harga nilai awal dan edit2.text di
gunakan untuk memberi harga nilai akhir.
Nama Button1 digantikan dengan ‘WHILE DO’ dengan kodingan:
procedure
TForm1.Button1Click(Sender: TObject);
var angka_awal,angka_akhir:integer;
begin
angka_awal :=strtoint(edit1.Text);
angka_akhir :=strtoint(edit2.Text);
While angka_awal<=angka_akhir do
begin
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal);
end;
end;
end.
Penjelasan:
·
var angka_awal,angka_akhir:integer; 
Beberapa variable yang digunakan dengan harga
integer.
Beberapa variable yang digunakan dengan harga
integer.
·
angka_awal :=strtoint(edit1.Text);
Memberi variable ‘angka_awal’ pada edit1.text.
Memberi variable ‘angka_awal’ pada edit1.text.
·
angka_akhir :=strtoint(edit2.Text); Memberi variable ‘angka_akhir’ pada
edit2.text.
Memberi variable ‘angka_akhir’ pada
edit2.text.
·
While angka_awal<=angka_akhir do 
Memberi syarat atau ketentuan yaitu selama
angka awal lebih kecil atau sama dengan angka akhir maka akan diproses,
sebaliknya jika angka awal lebih besar dari anggka akhir maka tidak di proses.
Memberi syarat atau ketentuan yaitu selama
angka awal lebih kecil atau sama dengan angka akhir maka akan diproses,
sebaliknya jika angka awal lebih besar dari anggka akhir maka tidak di proses.
·
memo1.Lines.Add(inttostr(angka_awal)); variable angka_awal di cetak di memo1
variable angka_awal di cetak di memo1
Nama button2 diganti menjadi ‘RESET’ dengan
kodingan:
procedure
TForm1.GroupBox1Click(Sender: TObject);
begin
edit1.Text
:='';
edit2.Text
:='';
Memo1.Text
:='';
Penjelasan:
edit1.Text
:=''; Menghapus nilai atau harga setelah program di
jalankan pada edit1.Text
Menghapus nilai atau harga setelah program di
jalankan pada edit1.Text
edit2.Text
:=''; Menghapus nilai atau harga setelah program di
jalankan pada edit2.Text
Menghapus nilai atau harga setelah program di
jalankan pada edit2.Text
Memo1.Text :=''; Menghapus nilai atau harga setelah program di
jalankan pada
Menghapus nilai atau harga setelah program di
jalankan pada
Memo1.text
Nama button3 diganti menjadi ‘EXIT’
dengan kodingan:
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
end.
Penjelasan:
application.Terminate; Digunakan untuk keluar
dari aplikasi.
Digunakan untuk keluar
dari aplikasi.
Memo1 digunakan untuk
menampilkan output program
Groupbox1 digunakan
untuk menggabung 2 label, 2 edit.text, 3 button dan 1 memo.
OUTPUT PROGRAM
1.
Memberi harga angka awal 3 dan angka
akhir 9 maka outputnya 3,4,5,6,7,8,9.
2.
Klick ‘RESET’ maka aplikasi akan
kosong kembali.
3.
Memberi harga yang sama pada angka
awal dan angka akhir maka outputnya sama yaitu 8.
4.
Memberi harga angka awal lebih besar
dari angka akhir maka outputnya kosong karna ketentuannya angka awal <=
angka akhir,selain itu program tidak diproses.
EmoticonEmoticon