Contoh program If_Then

If merupakan salah satu pernyataan bercabang dalam bahasa pemrograman pascal, disini akan diberikan contoh beberapa pogram-program kecil dalam pascal :

Program 1 :

Program if_then;

uses crt;

Var nilai : integer;

mhs,ket : string;

begin;

clrscr;

writeln(‘ Nilai Ujian Mahasiswa ‘);

writeln;

write(‘ Masukkan nama mahasiswa = ‘);

readln(mhs);

write(‘ Masukkan nilai mahasiswa = ‘);

readln(nilai);ket;=’Tidak Lulus’;

if nilai>=60 then ket:=’Lulus’;

writeln;

writeln(‘Nama mahasiswa adalah ‘,mhs,’ ‘,ket);readln;

end.

Program diatas dapat juga dinyatakan dalam program yang lain dengan menghilangkan ket:=’Tidak Lulus’ dan dengan menambah beberapa perintah yaitu :

Program 2 :

Program if_then;

uses crt;

Var nilai : integer;

mhs,ket : string;

begin;

clrscr;

writeln(‘ Nilai Ujian Mahasiswa ‘);

writeln;

write(‘ Masukkan nama mahasiswa = ‘);

readln(mhs);

write(‘ Masukkan nilai mahasiswa = ‘);

readln(nilai);

if nilai>=60 then ket:=’Lulus’;

if nilai<60 then ket:=’Tidak Lulus’;

writeln;

writeln(‘Nama mahasiswa adalah ‘,mhs,’ ‘,ket);readln;

end.

Kedua program diatas merupakan contoh program dengan 2 (dua) pilihan, sekarang coba kita buat program dengan beberapa pilihan pernyataan, yaitu :

Program 3 :

Program if_then;

uses crt;

Var nilai : integer;

mhs : string;

p : char;

begin;

clrscr;

writeln(‘ Nilai Ujian Mahasiswa ‘);

writeln;

write(‘ Masukkan nama mahasiswa = ‘);

readln(mhs);

write(‘ Masukkan nilai mahasiswa = ‘);

readln(nilai);

if nilai>=80 then p:=’A’;

if nilai>=70 then p:=’B’;

if nilai>=60 then p:=’C’;

if nilai>=50 then p:=’D’;

if nilai<50 then p:=’E’;

writeln;

writeln(‘ Nama mahasiswa adalah ‘,mhs,’ ‘,p);

readln;

end.

Itu tadi beberapa contoh program kecil untuk pernyataan if_then, silahkan dikembangkan lagi dengan pernyataan pilihan yang lain… sebagai latihan dapat mencoba membuat program di bawah ini :

Soal latihan :

Buat program sederhana dengan pascal untuk menghitung jumlah pembelian, ketentuannya adalah jika pembelian kurang dari Rp. 50.000,- maka mendapat 1 kupon dan seterusnya dengan berlaku kelipatannya dibatasi sampai pembelian seharga Rp. 500.000,-

Selamat mencoba…..

About these ads

4 responses to “Contoh program If_Then

  1. Bos,
    Ada cara lain gk buat kita bisa cepat nguasai/ngerti bahasa” pemrograman pascal ?

  2. cara lain cuma sering-sering aja bikin program game

  3. bos,dah mo ujian nich, tambah latihan soalnya donk,skalian kisi2x yg mo kluar di ujian. thx b4 bos.

    @ ok deh, besok masuk siap-siap aja ketemu soal hehehe…

  4. tolong di jelasin bagaimana kiat2 kita mempelajari pemrograman pascal serta apa yang harus kita peljari supaya mudal belajarnya pemrograman

    @kiatnya banyakin latihan n bongkar-bongkar program dulu aja

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s