Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF

Untuk dapat mengerti  contoh program komputer berikut, maka diharapkan anda telah mempelajari teori proses pengambilan keputusan.

Contoh Program Komputer adalah sebagai berikut :

1.    Contoh IF  dengan Satu Pilihan

Contoh-1

Buatlah program dengan nilai 2 buah nilai awal x = 0 dan y = 100. Data masukan 1 buah data yaitu n. Jika n>x, maka  x = n. Jika n
Algoritma:

•    Mulai
•    Deklarasikan variabel dan konstanta
•    Masukkan data n
•    Jika n>x,  kerjakan  x = n
•    Jika n 

•    Cetak  x dan y
•    Selesai

Flowchart



Kode Program

  Program Contoh1;

  Uses crt;
  Var  x,y,n : real;

  Begin
      x:= 0; y:=100;
      clrscr;
      write('Masukkan bilangan n = ');
      readln(n);
      writeln;

      if n>x then x:=n;
     writeln(' Nilai  x = ',x:6:2);
     writeln(' Nilai  y = ',y:6:2);

     readln;
  End.

Penjelasan : 



Proses pengambilan keputusan dilakukan denan membandingkan n dengan x dan n dengan y. Jika n>x, maka simpan nilai n ke variabel x, jika tidak maka langsung lanjutkan ke langkah selanjutkan. Pada baris terakhir terdapat perintah readln; fungsinya adalah untuk menghentikan tampilan hasil program di layar. Dengan menekan salah satu tombol keyboard, maka proses akan dilanjutkan.

Hasil Program


2.   Contoh IF dengan 2 Pilihan

Contoh-2

Buatlah program komputer dengan sebuah data masukan n. Jika data masukan n lebih lebih besar dari 0, maka tampilkan pesan “ Anda memasukkan bilangan positip’. Sebaliknya, jika n lebih kecil dari 0, maka tampilkan pesan “Anda memasukkan bilangan negatip”.

Algoritma:

•    Mulai
•    Deklarasikan variabel  n
•    Masukkan data n
•    Cek data n, apakah n>=0
•    Jika Ya, Tampilkan pesan “Anda memasukkan bilangan positip”
•    Jika Tidak, tampilkan pesan “Anda memasukkan bilangan negatip”
•    Print Hasil.
•    Selesai.

Flowchart


Kode Contoh Program Komputer

  Program Contoh2;

  Uses crt;

  Var  n : integer;

  Begin
      clrscr;
      write('Masukkan bilangan n = ');
      readln(n);writeln;

      if n>=0 then
              writeln('Anda memasukkan bilangan positip') {titik koma tidak boleh}
      else
              writeln('Anda memasukkan bilangan negatip');

      readln;
  End.

Penjelasan :

Proses pengambilan keputusan hanya dilakukan satu kali dengan cara melakukan pengujian apakah n >=0. Jika hasilnya benar, maka kerjakan pernyataan di setelah  IF – then, jika tidak maka kerjakan pernyataan setelah kata kunci else.

Baris pernyataan sebelum kata kunci else tidak boleh menggunakan titik koma, karena titik koma berarti mengakhiri bari pernyataan akibatnya  else tidak dapat mengenali baris pernyataan sebelumnya untuk dibandingkan dengan baris pernyataan di bawahnya.

Hasil Program

Contoh-3

Buatlah program  dengan masukan 2 buah data yaitu x dan y. Jika x > y, hitung  z = x + y. Jika  y < x, hitung z = y – x.

Algoritma :

•    Mulai
•    Deklarasikan variabel x,y,dan z
•    Masukkan data x dan y.
•    Cek apakah  x>y
•    Jika Ya, hitung z = x + y
•    Jika Tidak, hitung z = y – x.
•    Cetak hasil
•    Selesai

Flowchart


Kode Program

  Program Contoh3;

  Uses crt;

  Var  x,y,z : integer;

  Begin
      clrscr;
      write('Masukkan bilangan x = ');
      readln(x);
      write('Masukkan bilangan y = ');
      readln(y);
      writeln;

      if x>y then
             z:= x + y
      else
            z:= y - x;

         writeln(' Nilai  z = ',z);

      readln;
  End.

Penjelasan :

Pengambilan keputusan dilakukan dengan menguji apakah x>y. Jika Ya, maka kerjakan pernyataan di bahwanya yaitu  z:= x + y. Jika Tidak maka kerjakan pernyataan setelah else yaitu z := y – x.

Hasil  Program


3.  Contoh  IF  dengan 3 Pilihan atau Lebih

Sebuah Toko menyediakan Hadiah bagi pembeli dengan syarat Total Belanja sebagai berikut :
Total Belanja/TB (Rp.)                                           Hadiah
     50.000 < TB <=  150.000                                    Pepsodent 60 gr
     150.000 < TB <=  250.000                                  Rinso 500 gr
     250.000 < TB <=  350.000                                  Rinso 700 gr
     350.000 < TB <=  450.000                                  Rinso 1000 gr
     TB  > 450.000                                                      Rinso 2500 gr

Buatlah program untuk menentukan hadiah tiap pembeli. Data masukan adalah Total Belanja.     Jika nilai TB tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”

Algoritma :

•    Mulai
•    Deklarasikan variabel
•    Masukkan data Total Belanja (TB).
•    Cek TB sbb :
•    Jika  50.000 <=  150.000, tampilkan informasi Hadiah    “Pepsodent 60 gr”
•    Jika  150.000 <=  250.000, tampilkan informasi Hadiah  “Rinso 500 gr”
•    Jika  250.000 <=  350.000, tampilkan informasi Hadiah  “Rinso 700 gr”
•    Jika  350.000 <=  450.000, tampilkan informasi Hadiah “Rinso 1000 gr”
•    Jika TB> 450.000, tampilkan informasi hadiah “Rinso 2500 gr”
•    Jika tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”
•    Selesai

Flowchart


Kode Program:

Contoh Program Komputer

Uses crt;
var TB: longint;

Begin
   clrscr;writeln;
   write('Input Total Belanja = ');
   readln(tb);writeln;writeln;
   if (50000 <=tb) and (tb>=150000) then
              writeln('Selamat!. Anda mendapatkan Hadiah : Pepsodent 60 gr')
   else  if (150000=250000) then
                writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 500 gr')
   else  if (250000 =350000) then

               writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 700 gr')
   else  if (350000

              writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 1000 gr')
   else  if (tb > 450000) then
               writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 2500 gr')
   else
               writeln('Anda belum beruntung !!!');
  readln; {untuk menghentikan tampilan hasil program}
End.

Penjelasan :

  • Tipe variabel TB bukan int tetapi longint karena data masukan adalah data integer yang besar. Lihat tipe data integer pada pembahasan sebelumnya.
  • Proses pengambilan keputusan dilakukan dengan melakukan pengujian sebanyak 5 kali dengan 6 pernyataan.  Tiap pengujian dalam fungsi  if menggunakan operator logika AND karena kedua syarat harus benar untuk menghasilkan nilai Benar. Misalnya  Hadiah Pepsodent diberikan dengan syarat Total belanja antara 50.000 hingga 150.000. Bentuk matematikanya adalah   50.000 <=  150.000 dibuat menjadi  kode program  dengan menggunakan operator AND dengan bentuk  (50000 <=TB) AND (TB>=150000).

Hasil Program


Dengan Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF, anda dapat menambah ilmu komputer anda. Selamat belajar.

Mohon anda memberikan komentar, saran, atau pertanyaan untuk memperbaiki materi yang ada dalam blog ini. Dengan demikian blog ini dapat semakin bermanfaat bagi para pelajar dan mahasiswa yang ingin mempelajari contoh program komputer yang dimuat di blog ini.

Semoga bermanfaat.
Go bless you all.

No comments:

Post a Comment

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.