IF THEN ELSE pada Pascal

Assalamu'alaikum...ketemu lagi...masih seneng main - main dengan Pascal kan?

Para pembaca yang budiman, pada kesempatan kali ini kita akan membahas tentang penggunaan fungsi IF THEN ELSE pada Pascal. Pada dasarnya fungsi ini menggunakan logika yang hampir sama dengan kasus dalam Excel, namun dengan menggunakan bahasa yang berbeda. Sebagai contohnya kita akan membuat sebuah program untuk memberikan keterangan pada sebuah kasus menghitung diskon.

• Pada sebuah kasus diketahui bahwa diskon akan diberikan jika harga >= Rp 100.000,00 maka akan mendapatkan diskon 15% dari harga, sedangkan ketentuan ini tidak berlaku apabila pembeli membeli barang dengan harga dibawahnya.

Untuk membuat program pada kasus diatas, pertama - tama yang harus kita pikirkan adalah item - item apa saja yang kita butuhkan untuk dimasukkan dalam deklarasi variabel. Yang pertama diskon diberikan berdasarkan harga, maka kita harus mendeklarasikan variabel harga terlebih dahulu. Kemudian diskon itu sendiri juga harus kita deklarasikan. Yang terakhir adalah total bayar, dimana total bayar adalah banyaknya uang yang harus dibayarkan setelah dikurangi dengan diskon (apabila dia mendapat diskon).

Untuk lebih jelasnya silahkan anda lihat listing program dibawah ini.

program menghitung_diskon;
uses crt;
var bayar,harga,diskon:real;
begin
clrscr;
       write('TULISKAN HARGA = Rp. ');
       readln(harga);
       if harga>=100000 then
          begin
               diskon:=harga*0.15;
               bayar:=harga-diskon;
               writeln('SELAMAT ANDA MENDAPATKAN DISKON 15% SEBESAR Rp. ',diskon:6:2);
               writeln('JUMLAH BAYAR ADALAH = Rp. ',bayar:6:2);
               readln;
          end
          else
              begin
                   if harga<100000 then
                   writeln('JUMLAH BAYAR ADALAH = Rp. ',harga:6:2);
                   readln;
              end

end. 

Hasil dari program di atas adalah sebagai berikut :