PERNYATAAN IF

Pernyataan If digunakan untuk mengambil suatu keputusan terhadap dua kondisi atau lebih. Tapi dalam penggunaan IF apabila alternatifnya berjumlah banyak, maka pernyataan yang ditulis pada Pascal akan menjadi agak rumit dan panjang. Jadi penggunaan IF sering kali digunakan Dimana jumlah kondisinya sedikit.

Bentuk sederhana dari pernyataan IF ialah :

IF kondisi THEN pernyataan

Dimana kondisi adalah sesuatu yang bernilai True atau False, dan pernyataan adalah

perintah yang akan dijalankan.

Saya akan membuat contohnya, misalnya kita akan membuat program menentukan pembayaran berdasarkan berdasarkan jumlah belanja, jika di atas 500000 (lima ratus ribu) mendapatkan potongan 10%, maka programnya adalah sebagai berikut :

Uses Crt;

Var

Belanja : Real;

Begin

Clrscr;

Write(‘Jumlah belanja = ‘);

Readln(Belanja);

If Belanja > 500000 Then

Belanja := Belanja * 0.90;

Writeln(‘Jumlah yang harus dibayar ‘,Belanja:10:2);

Readln;

End.

 

Bentuk lain dari pernyataan IF yaitu jika pernyataan 1 bernilai False, maka akan ada pernyataan 2,  seperti ini :

If kondisi Then

Pernyataan1

Else

Pernyataan2;

contohnya :

Uses Crt;

Var suhu : Integer;

Begin

Clrscr;

Write(‘Suhu Tubuh = ‘);

Readln(Suhu);

If suhu >37 Then

Writeln (‘Suhu Tinggi’)

Else

Writeln (‘Suhu Tidak Tinggi’);

Readln;

End.

misalnya pernyataannya berjumlah banyak , misalnya 4. kita dapat mengerjakannya dengan pernyataan If, tapi agak panjang dan rumit. Contohnya :

If kondisi1 Then

Pernyataan1

Else

If kondisi2 Then

Pernyataan2

Else

If kondisi3 Then

Pernyataan3

Else

Pernyataan4;

Jadi pada prinsipnya adalah terdiri dari tiga struktur If.

Misalnya kita akan membuat nilai huruf dari angka dengan kriteria 80 ke atas mendapat A, 70 s/d 79 mendapat B, 60 s/d 69 mendapat C, 50 s/d 59 mendapat D, dan dibawah 49 mendapat E, maka dapat ditulis menjadi :

if nilai>=80 then

keterangan:='A'

else

if nilai>=70 then

keterangan:='B'

else

if nilai>=60 then

keterangan:='C'

else if nilai>=50 then

keterangan:='D'

else

keterangan:='E';

Dan berikut ini ialah contoh program Pascal yang menggunakan pernyataan IF yang saya kerjakan saat pelajaran ALGORITMA DAN PEMROGRAMAN 1 Tanggal 1 oktober 2013  oleh Dosen Pa Irwan Budiman di ruang Merie Curie kelas Ganjil prodi Ilmu Komputer Universitas Lambung Mangkurat.

program fotocopy;

uses crt;

var jumlah,bayar,kode : integer;

begin

clrscr;

writeln ('        Jumlah Bayar fotokopi berdasarkan ukurun kertas');

writeln ('kode 1 ------> kertas polio @150');

writeln ('kode 2 ------> kertas HVS @100');

writeln ('kode 3 ------> kertas Karton @1000');

write ('masukan kode = ');

readln (kode);

write ('masukan jumlah lembar fotocopy= ');

readln (jumlah);

if kode = 1 then bayar:= jumlah*150 else

if kode = 2 then bayar:= jumlah*100 else

bayar:= jumlah*1000 ;

write ('bayar = ' ,bayar);

readkey;

end.

Terimakasih . semoga bermanfaat bagi kita semua :)