[Tugas Praktikum 2 Pemvis] Logika Percabangan (Program Perbandingan Tinggi Badan)

05.19 |

I. Tujuan Praktikum

Tujuan dari praktikum ini adalah untuk mengetahui keberadaan perintah bersyarat pada suatu program, mengetahui dua cara penyajian perintah bersyarat dan dapat memberikan percabangan proses pada suatu program.

II. Deskripsi Program

Program Perbandingan Tinggi Badan

Program ini bertujuan untuk menentukan tinggi badan diantara 2 orang. Apabila tinggi badan orang pertama lebih tinggi dari tinggi badan orang kedua maka tampilan yang diharapkan adalah nama orang pertama lebih tinggi dari nama orang kedua. Tetapi apabila tinggi badan orang kedua lebih tinggii dari orang pertama maka tampilan yang diharapkan adalah nama orang kedua lebih tinggi dari orang pertama. Namun ketika tinggi badan orang pertama sama dengan tinggi badan orang kedua maka tampilan yang diharapkan adalah nama orang pertama sama dengan nama orang kedua.

III. Interface Program

IV. Coding Program

Nama Komponen	Event	Perintah
btn1	OnClick	procedure TForm1.btn1Click(Sender: TObject); var tinggi1, tinggi2: Real; begin tinggi1:=strtofloat(edt2.Text); tinggi2:=strtofloat(edt4.Text); if tinggi1 > tinggi2 then begin lbl6.Caption := edt1.Text; lbl7.Caption := ('Lebih Tinggi Dari'); lbl8.Caption := edt3.Text; end else if tinggi1 = tinggi2 then begin lbl6.Caption := edt1.Text; lbl7.Caption := ('Sama Tinggi Dengan'); lbl8.Caption := edt3.Text; end else if tinggi2 > tinggi1 then begin lbl6.Caption := edt3.Text; lbl7.Caption := ('Lebih Tinggi Dari'); lbl8.Caption := edt1.Text; end end;
btn2	OnClick	procedure TForm1.btn2Click(Sender: TObject); begin edt1.Text:=''; edt2.Text:=''; edt3.Text:=''; edt4.Text:=''; lbl6.Caption:=''; lbl7.Caption:=''; lbl8.Caption:=''; end;
btn3	OnClick	procedure TForm1.btn3Click(Sender: TObject); begin close; end;