Pascal Program dengan struktur IF dan Logika AND

    Selamat malam semua, pada kesempatan kali ini Salmantech42 akan share mengenai salah satu soal latihan pada bahasa pemrograman Pascal yuk langsung saja 

Buatlah program dengan menggunakan struktur IF Majemuk dan logika AND dengan output dibawah ini:

pada soal diatas ada beberapa kondisi yang harus dilakukan yaitu:

• Jika memasukan kode judul buku 001 dan kode penerbit 101 maka harga 150000
• Jika memasukan kode judul buku 001 dan kode penerbit 102 maka harga 100000 
• Jika memasukan kode judul buku 002 dan kode penerbit 101 maka harga 130000 
• Jika memasukan kode judul buku 002 dan kode penerbit 102 maka harga 95000  
• Jika memasukan kode judul buku 003 dan kode penerbit 101 maka harga 135000 
• Jika memasukan kode judul buku 003 dan kode penerbit 102 maka harga 98000  
• Jika memasukan kode judul buku 004 dan kode penerbit 101 maka harga 125000 

Banyak ya if nya :v

bagaimana untuk source code nya?

langsung saja gan 

Program soal2;

uses crt;

var

kode_buku,

kode_penerbit: integer;

begin

  clrscr;

  writeln('Made by Salman Tech 42');

  writeln('JUDUL BUKU');

  writeln('---------------');

  writeln('001 ==> buku matematika');

  writeln('002 ==> buku Bahasa Indonesia');

  writeln('003 ==> buku IPA');

  writeln('004 ==> buku IPS');

  writeln('================================');

  writeln('PENERBIT');

  writeln('--------------');

  writeln('101 ==> erlangga');

  writeln('102 ==> yudhistira');

  writeln('================================');

  writeln('masukan kode judul buku yang ingin dibeli: ');

  readln(kode_buku);

  writeln('masukan kode penerbit yang ingin dibeli: ');

  writeln('================================');

   readln(kode_penerbit);

if (kode_buku = 001) AND (kode_penerbit = 101) then

begin

writeln('harga 150000');

writeln('Salman Tech 42');

end

else if (kode_buku = 001) AND (kode_penerbit = 102) then 

begin

writeln('harga 100000');

writeln('Salman Tech 42');

end

else if (kode_buku = 002) AND (kode_penerbit = 101) then 

begin

writeln('harga 130000');

writeln('Salman Tech 42');

end

else if (kode_buku = 002) AND (kode_penerbit = 102) then 

begin

writeln('harga 95000');

writeln('Salman Tech 42');

end

else if (kode_buku = 003) AND (kode_penerbit = 101) then 

begin

writeln('harga 135000');

writeln('Salman Tech 42');

end

else if (kode_buku = 003) AND (kode_penerbit = 102) then 

begin

writeln('harga 98000');

writeln('Salman Tech 42');

end

else if (kode_buku = 004) AND (kode_penerbit = 101) then 

begin

writeln('harga 125000');

writeln('Salman Tech 42');

end

else if (kode_buku = 004) AND (kode_penerbit = 102) then 

begin

writeln('harga 92000');

writeln('Salman Tech 42');

end

else writeln('ANDA SALAH MEMASUKAN ANGKA!!');

writeln('Salman Tech 42');

end.

Salah satu hasilnya

Untuk tester lainnya bisa dilakukan di IDE masing" ya gan 

Tested by me on Ubuntu MATE 18.04 IDE: Geany

Sekian untuk post kali ini semoga bermanfaat dan dapat ilmu yang berguna.

Stay Tune on Salman Tech 42.

どうもありがとうございました…!

---

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

---

Subscribe to receive free email updates: