Diberdayakan oleh Blogger.
RSS

Contoh Program Genap Ganjil Prolog



program:-nl, write('Masukkan nilai : '),read(Nilai),
Hasil is Nilai mod 2,
Hasil is 0,
write('Genap');
write('Ganjil').

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Contoh Program Prolog Grade Nilai



program:-nl,
write('Masukkan Nilai Uts : '),read(Uts),
write('Masukkan Nilai Uas : '),read(Uas),
Total is (Uts+Uas)/2,
write('Total : '),write(Total),nl,
( Total > 95 -> write('A');
Total > 75 -> write('B');
Total > 60 -> write('C');
Total > 45 -> write('D');
write('E') ).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Contoh Program Menu Pada Prolog



menu:- nl,nl,
write('================'),nl,
write('======MENU======'),nl,
write('================'),nl,
write('1.Biodata'),nl,
write('2.Luas Segitiga'),nl,
write('3.Keluar'),nl,
write('================'),nl,
write('Pilihan [1..3] : '),read(Pil),nl,nl,

(
Pil=1,
write('Nama : '),read(X),
write('NPM : '),read(Y),
write('Kelas : '),read(Z),
nl,write('============'),nl,
write('nama : '),write(X),nl,
write('NPM : '),write(Y),nl,
write('Kelas : '),write(Z),nl,
nl,write('============'),nl,
menu;

Pil=2,
write('Alas : '),read(A),
write('Tinggi : '),read(T),
L is A*T/2,
write('Luas Segitiga : '),write(L),
nl,write('============'),nl,
menu;

Pil=3,
write('Terima Kasih'),nl,
menu
).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS