LA AP2A pertemuan 2

>>>>>> DOWNLOAD .DOC<<<<<<

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum          :  Algoritma & Pemrograman 2 A (AP2A)

Kelas                           :  1IA20

Praktikum ke-              :  2

Tanggal                        :  27 Maret 2015

Materi                          :  Kondisi Pada Delphi

NPM                           :  53414057

Nama                           :  Didi Mulyadi

Ketua Asisten              :  Chairul U

Nama Asisten              :

Paraf Asisten               :

Jumlah Lembar            :  4 lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2015

Listing Program.

Listing Tombol dan logika:

-          Order begin A := StrToInt (Edit2.Text); B := 40000; value := (A*B);      Pada blok program diatas digunakan untuk menginput nilai dari edit1.text menjadi nilai pada variabel A, memberikan nilai Variabel B yaitu 40000 dan memberikan nilai value A*B. if A>15 then begin Label8.Caption := FloatToStr(value); value1 := value*0.2; value2 := value-value1; Label9.Caption := FloatToStr(value1); ppn := value2*0.1; Label10.Caption := FloatToStr(ppn); Label11.Caption := 'PAYUNG'; value2 := value-value1; Label12.Caption := FloatToStr(value+ppn); end        Pada blok program diatas menggunakan kondisi percabangan yaitu if >15 then(maka) label 8 akan diisi nilai variabel value , memberikan nilai variabel value1 dan value2, kemudian ,mengisi label 9,10,11dan 12 dengan variabel yang telah dibuat maupun jenis string seperti ‘payung’. else begin Label8.Caption := FloatToStr(value); value1 := value*0.1; value2 := value-value1; Label9.Caption := FloatToStr(value1); ppn := value2*0.1; Label10.Caption := FloatToStr(ppn); Label11.Caption := 'tidak dapat'; Label12.Caption := FloatToStr(value2+ppn);       Pada blok program diatas merupakan percabangan dari if else, yaitu else atau nilai yang bernilai salah , jika nilai A tidak lebih dari 15 maka akan memberikan inputan pada label 8,9,10,11,12 seperti diatas hanya saja operasi yang di lakukan tidak lah sama. Seperti pada label 11 bernilai “tidak dapat”. end; end; -          Keluar procedure TForm1.Button2Click(Sender: TObject); begin Application.Terminate; end; end.        Pada blok program diatas digunakan untuk mengakhiri aplikasi  pada delphy yang kita buat.

Output Program :