Praktikum Pertemuan 2 Logika Percabangan

PERTEMUAN KE – II

Logika Percabangan

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.             Tujuan Praktikum

Tujuan dari praktikum yang berjudul ”Logika Percabangan” ini adalah agar

praktikan dapat menyelesaikan kasus pemrograman yang terkadang menginginkan komputer untuk melakukan suatu aksi tertentu bila suatu kondisi sudah terpenuhi. Selain itu praktikan juga dapat mengetahui perulangan apa saja yang sering digunakan dalam bahasa pemrograman.

II.          Deskripsi Program

Berikut adalah program untuk pembayaran pada kasir fotocopy, yaitu dengan memilih pilihan yang ada di groupbox lalu menginput harga perlembar, jumlah lembar yang difotocopy, total harga dan pembayaran dihitung pada button proses. Jika pelanggan maka mendapatkan diskon sebesar 10% bila jumlah lembar yang difotocopy lebih dari 25 lembar, bila tidak maka tidak mendapatkan potongan harga.

III.       Interface Program

IV.       Coding Program

Program fotocopy

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var   a,b,c,d :real; begin a:=strtofloat(ejlh.Text); b:=strtofloat(ehrg.Text); c:=a*b; etot.Text:=floattostr(c); if rbya.Checked = true then  begin   if b > 20 then   begin   d:= 10/100 * c;   ebayar.Text:=floattostr(c-d);   end    else   if b < 20 then   ebayar.Text:=floattostr(d) else if rbtidak.Checked = true then   ebayar.Text:=floattostr(c);  end; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin close; end;