Contoh-Contoh Program Pascal IF...THEN...ELSE

          Kali ini saya akan membahas tentang contoh-contoh program menggunakan If. Langsung saja ini dia jreng... jreng... :v :


Contoh kode program untuk perbandingan Nilai1 dengan Nilai2 :
USES CRT;
VAR
          Nilai1,Nilai2:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Nilai1:');Readln(Nilai1);
          Write('Masukkan Nilai2:');Readln(Nilai2);
          IF Nilai1>Nilai2 Then
                    Write('Nilai1 lebih besar dari Nilai2')
                              Else
                    Write('Nilai2 lebih besar dari Nilai1');
Readkey;
End.


Contoh tampilan :
Masukkan Nilai1:50
Masukkan Nilai2:100
Nilai2 lebih besar dari Nilai1



Contoh soal :
Ada tes masuk jurusan APH
Tes 1 : Jika tinggi>150cm maka masuk ke tes 2, jika tidak maka ditolak.
Tes 2 : Jika nilai MTK>75 maka diterima, jika tidak maka ditolak.

Contoh program :
USES CRT;
VAR
          Tinggi_badan,Nilai_MTK:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Tinggi badan=');Readln(Tinggi_badan);
          IF Tinggi_badan<150 Then
                    Write('Ditolak')
          Else
                    Write('Masukkan Nilai MTK=');Readln(Nilai_MTK);
                    IF Nilai_MTK>75 Then
                              Write('Diterima')
                    Else
                              Write('Ditolak');
Readkey;
End.


Contoh tampilan program :
Masukkan Tinggi badan=156
Masukkan Nilai MTK=90
Diterima



Syarat:
Nilai=75 maka lulus bersyarat
Nilai>75 maka lulus
Nilai<75 maka remidi

Contoh program :
USES CRT;
VAR
          Nama:String;
          Nilai:Byte;
BEGIN
          Write('Nama=');Readln(Nama);
          Write('Nilai=');Readln(Nilai);
          Writeln('Nama=',Nama);
          IF Nilai=75 Then
                    Writeln('Dinyatakan=Lulus bersyarat')
          Else
          IF Nilai>75 Then
                    Writeln('Dinyatakan=Lulus')
          Else
                    Writeln('Dinyatakan=Remidi');
Readkey;
End.


Contoh tampilan program :
Nama=Syarifah Aini
Nilai=98
Nama=Syarifah Aini
Dinyatakan=Lulus



Syarat:
Nilai>80 maka sangat baik
Nilai>60 maka baik
Nilai>50 maka cukup
Nilai>0 maka kurang

Contoh kode program :
USES CRT;
VAR
          Nilai:Byte;
          Nama:String;
 BEGIN
          Write('Nama=');Readln(Nama);
          Write('Nilai=');Readln(Nilai);
          Writeln('Nama saya=',Nama);
          IF Nilai>80 Then
                   Writeln('Keterangan=Sangat Baik')
          Else
          IF Nilai >60 Then
                   Writeln('Keterangan=Baik')
          Else
          IF Nilai>50 Then
                    Writeln('Keterangan=Cukup')
          Else
                    Writeln('Keterangan=Kurang');
Readkey;
End.


Contoh tampilan :
Nama=Syarifah Aini
Nilai=99
Nama saya=Syarifah Aini
Keterangan=Sangat Baik



Contoh soal :
Tampilkan tampilan seperti berikut :
Usia... > usia...
Usia... = usia...
Usia... < usia...

Contoh program :
USES CRT;
VAR
          Nama_1:String;
          Usia_1:Byte;
          Nama_2:String;
          Usia_2:Byte;
BEGIN
          Write('Nama 1=');Readln(Nama_1);
          Write('Usia 1=');Readln('Usia_2);
          Write('Nama 2=');Readln(Nama_2);
          Write('Usia 2=');Readln(Usia_2);
          IF Usia_1>Usia_2 Then
                    Writeln('Keterangan=Usia ',Nama_1,' > usia ',Nama_2)
          Else
          IF Usia_1=Usia_2 Then
                    Writeln('Keterangan=Usia ',Nama_1,' = usia ',Nama_2)
          Else
                    Writeln('Keterangan=Usia ',Nama_1,' < usia ',Nama_2);
Readkey;
End.


Contoh tampilan :
Nama 1=Okazaki
Usia   1=17
Nama 2=Syarifah
Usia   2=16
Keterangan=Usia Okazaki > usia Syarifah

          Sekian pembahasan kali ini, apabila ada pertanya'an bisa bertanya kepada saya :v . Sekian dan terimakasih xD .

20 Responses to "Contoh-Contoh Program Pascal IF...THEN...ELSE"

  1. Mantap mas untuk latihan program terstruktur. tambahin contoh Java dong. hehehehe
    Darto - www.myjavalamp.blogspot.com

    ReplyDelete
  2. cari Tiket Pesawat Murah? Dapatkan segera hanya di SELL TIKET.com Klik disini:
    selltiket.com
    Booking langsung tanpa antri... HARGA Di Jamin Murah!!!
    CEPAT,….TEPAT,….HARGA HEMAT!

    Ingin usaha menjadi agen tiket pesawat??
    Yang memiliki potensi penghasilan tanpa batas.
    Bergabung segera di agen.selltiket.com

    INFO LEBIH LANJUT HUBUNGI :
    No handphone : 085363402103
    PIN : D364EDCB

    ReplyDelete
  3. FBS Indonesia Broker Terbaik – Dapatkan Banyak Kelebihan Trading Bersama FBS,bergabung sekarang juga dengan kami
    trading forex fbsindonesia.co.id
    -----------------
    Kelebihan Broker Forex FBS
    1. FBS MEMBERIKAN BONUS DEPOSIT HINGGA 100% SETIAP DEPOSIT ANDA
    2. SPREAD DIMULAI DARI 0 Dan
    3. DEPOSIT DAN PENARIKAN DANA MELALUI BANK LOKAL Indonesia dan banyak lagi yang lainya

    Buka akun anda di fbsindonesia.co.id
    -----------------
    Jika membutuhkan bantuan hubungi kami melalui :
    Tlp : 085364558922
    BBM : D04A8185

    ReplyDelete
  4. Sip ty. mbak blh minta emailnya gk mo nanya" nh

    ReplyDelete
  5. ini turbo pascal bukan mbak? saya butuh buat pengajaran..

    ReplyDelete
  6. Mas saya mau tanya Kalau if di soal saya dlm satu Program ada 3 if gmn cr gabunginnya mas..
    .
    .
    Soalnya:
    jika kode anggota=a , maka jenis anggota diisi anggota biaya anggota=0,selain itu jenis anggora diisi bukan anggota, biaya anggota=1000
    jika kode buku=p, maka jenis buku=pengetahuan,denda perhari 1000 selain itu jenis buku=hiburan,denda perhari=2000
    Jika lama pinjam diatas 3 hari maka jumlah denda =(lama pinjam-3)xdenda perhari+Biaya anggota selain itu jumlah denda=0+biaya anggota.
    Thx itu semua dlm 1 soal..

    ReplyDelete
  7. Mas saya mau tanya Kalau if di soal saya dlm satu Program ada 3 if gmn cr gabunginnya mas..
    .
    .
    Soalnya:
    jika kode anggota=a , maka jenis anggota diisi anggota biaya anggota=0,selain itu jenis anggora diisi bukan anggota, biaya anggota=1000
    jika kode buku=p, maka jenis buku=pengetahuan,denda perhari 1000 selain itu jenis buku=hiburan,denda perhari=2000
    Jika lama pinjam diatas 3 hari maka jumlah denda =(lama pinjam-3)xdenda perhari+Biaya anggota selain itu jumlah denda=0+biaya anggota.
    Thx itu semua dlm 1 soal..

    ReplyDelete

Beri Komentar ya... terimakasih :)