LAPORAN PENDAHULUAN PRAKTIKUM 4 (DELPHI) PERCABANGAN PADA DELPHI

LAPORAN PENDAHULUAN PRAKTIKUM

DELPHI

NAMA                   : AKBAR

NPM                     : 20113542

KELAS                   : 1KB04

MATERI                 : PERCABANGAN PADA DELPHI

PERTEMUAN KE      : 5

KETUA ASISTEN      : RANI

PARAF                   :

LABORATORIUM SISTEM INFORMASI

UNIVERSITAS GUNADARMA

2013

1.   percabangan pada Delphi

Percabangan merupakan salah struktur kendali yang memungkinkan pemilihan atas perintah yang akan dijalankan. Dalam Delphi terdapat beberapa percabangan yaitu :

Perintah percabangan If…Then…Else adalah suatu perintah yang berfungsi untuk mengambil keputusan dari beberapa kondisi. Bentuk percabangan ini biasanya digunakan untuk kondisi yang jumlahnya tidak terlalu banyak.IF … THEN : Pemilihan 1 kasusPerintah bersyarat If – then digunakan hanya untuk melakukan 1 aksi bila kondisi dipenuhi.Bentuk sintaks dari perintah bersyarat ini adalah:
If then
Begin
... {aksi-1}
end;

IF … THEN … ELSE : Pemilihan 2 kasus

Perintah bersyarat If…then…else umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks dari perintah bersyarat ini adalah:

If then
Begin
... {aksi-1}
end
else
Begin
... {aksi-2}
end;

IF … THEN … ELSE : Pemilihan N kasus
If then
Begin
... {aksi-1}
end
else If then
Begin
... {aksi-2}
end
else
Begin
... {aksi-3}
End;

2.    Contoh percabangan pada Delphi

Contoh Program Percabangan yang ditulis dalam event OnClick dari Tombol

procedure TForm1.SpeedButton1Click(Sender: TObject);
var n : double;
begin
n := StrToFloat(edNilai.Text);
if n >= 90 then edKet.Text := 'Sangat Baik'
else if (n >= 70) and (n <= 89) then edKet.Text := 'Baik' else if (n >= 50) and (n <= 69) then edKet.Text := 'Cukup' else if (n >= 30) and (n <= 49) then edKet.Text := 'Kurang'
end;