MENGGUNAKAN IF – THEN – ELSE

JS06

MENGGUNAKAN IF – THEN – ELSE

Ada dua kelompuk sintak pernyataan pilihan dalam pemograman, yaitu IF dan CASE. Salahsatunya yang akan dibahas sekarang adalah penggunaan sintak IF-THEN-ELSE.

Struktur IF – THEN dan IF – THEN – ELSE dipakai untuk menyatakan percabangan bersyarat. Artinya jika syaratnya terpenuhi bagian THEN akan dilaksanakan, jika tidak bagian ELSE akan dilaksanakan.

Berikut ini adalah bentuk umum penulisan fungsinya :

1.Bentuk umum struktur IF – THEN.

IF (ekspresi logika)

THEN (pernyataan);

2.Bentuk umum struktur IF – THEN – ELSE .

IF (ekspresi logika)

THEN (pernyataan);

ELSE (pernyataan);

Ekspresi logika adalah suatu percabangan yang hanya dapat bernilai benar (TRUE) atau salah (FALSE).

Operator relasi adalah operator yang dipakai untuk membandingkan dua buah ekspresi aritmatik. Berikut ini adalah operator – operator relasi beserta artinya yang digunakan dalam pemograman PASCAL :

Operator Relasi	Artinya
>	Lebih besar
<	Lebih kecil
=	Sama dengan
>=	Lebih besar sama dengan
<=	Lebih kecil sama dengan
<>	Tidak sama dengan

I. LEMBAR KEGIATAN

Setelah melaksanakan kegiatan pada Job Sheet ini, Anda harus dapat :

– Membuat program dengan menggunakan pernyataan percabangan bersyarat IF – THEN – ELSE.

– Membuat menggunakan operator relasi dalam pembuatan program dengan menggunakan pernyataan percabagan bersyarat.

Contoh01

1. Program HitungDiscount1;

2. Uses Crt;

3. Var Jumlah, Discount, bayar : real;

4. Begin

5. ClrScr;

6. Write(‘Jumlah pembelian = Rp ‘); Readln(Jumlah);

7. Discount:=0;

8. IF Jumlah > 50000 THEN Discount:=Jumlah*0.1;

9. Bayar:=Jumlah-Discount;

10. {bagian yang di cetak}

11. Writeln;

12. Writeln(‘Jumlah pembelian = Rp ‘,Jumlah:10:2);

13. Writeln(‘Jumlah discount = Rp ‘,Discount:10:2);

14. Writeln(‘————————————);

15. Writeln(‘Jumlah pembayaran = Rp ‘,Bayar:10:2);

16. End.

Contoh02:

1. Program HitungDiscount2;

2. Uses Crt;

3. Var Jumlah, Discount, bayar : real;

4. Begin

5. ClrScr;

6. Write(‘Jumlah pembelian = Rp ‘); Readln(Jumlah);

7. IF Jumlah > 50000 THEN Discount:=Jumlah*0.1;

8. ELSE Discount:=0;

9. Bayar:=Jumlah-Discount;

10. {bagian yang di cetak}

11. Writeln;

12. Writeln(‘Jumlah pembelian = Rp ‘,Jumlah:10:2);

13. Writeln(‘Jumlah discount = Rp ‘,Discount:10:2);

14. Writeln(‘————————————);

15. Writeln(‘Jumlah pembayaran = Rp ‘,Bayar:10:2);

16. End.