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
• 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
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
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
else if (250000
else if (350000
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.
trimakasih atas sharing ilmunya....sangat bermanfaat
BalasHapusthanks,,,,
BalasHapus