Bahasa Pemrograman Prolog

        Prolog merupakan singkatan dari Programming in Logic yang dikembangkan oleh Alain Colmenraurer dan P.Roussel di Universitas Marseilles Perancis, tahun 1972 , Prolog digunakan untuk aplikasi Artificial Intelegen , Expert Syste,Robotik dan Pengolahan Bahasa Alami (Natural Languange Processing).

Contoh - contoh Program Prolog 

----------------------------Program Biodata-------------------------------

biodata:-nl,-nl,

write('Masukan Nama:'),

read(Nama),

write('masukan Kelas:'),

read(Kelas),

write('Masukan Npm :'),

read(Npm),

write('Nama saya :'),

write(Nama),nl,

write('Kelas saya :'),

write(Kelas),nl,

write('Npm saya:'),

write(Npm).

--------------------------Program Genap Ganjil--------------------------

ulang:-nl,nl,

write('Program Genap-Ganjil'),nl,

write('---------------------------'),nl,

write(' '),nl,

write('Masukan Angka : '),

read(G),

Bil is G mod 2,

Bil is 0,

write(G),

write('Adalah bilangan Genap');

write('Adalah bilangan Ganjil').

--------------------------Program Luas Persegi---------------------------

persegi:-nl,nl,

write('Masukan Panjang : '),

read(Panjang),

write('Masukan Lebar : '),

read(Lebar),

Luas is (Panjang * Lebar),

write('Luas Persegi Panjang :'),

write(Luas).

--------------------------Program Luas Segitiga--------------------------

segitiga:-nl,nl,

write('Masukan Alas : '),

read(Alas),

write('Masukan Tinggi : '),

read(Tinggi),

Luas is (Alas* Tinggi)/2,

write('Luas Segitiga :'),

write(Luas).

-------------------------------Program Grade------------------------------

grade:-nl,
write('Masukan Nilai UTS :'),
read(UTS),
write('Masukan 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')
).

--------------------------------Program Menu-----------------------------

menu:-nl,
write('================================'),nl,
write('         MENU           '),nl,   
write('================================'),nl,
write(' 1. Biodata'),nl,
write(' 2. Volume'),nl,
write(' 3. Grade'),nl,
write('================================'),nl,
write('Pilihan [1..3] :  '),read(Pil),nl,
(
    Pil = 1 ->nl,
    write('Masukan Nama  :'),read(Nama),
    write('Masukan NPM   :'),read(Npm),
    write('Masukan Kelas :'),read(Kelas),
    write('Nama '),write(Nama),nl,
    write('Npm  '),write(Npm),nl,
    write('Kelas'),write(Kelas),nl,
    menu;

    Pil =2 ->nl,
    write('Masukan R: '),read(R),
    Volume is 3.14*4/3*R*R*R,
    write('Volume :'),write(Volume),nl,nl,
    menu;

    Pil =3 ->nl,
    write('Masukan Nilai UTS :'),read(Uts),
    write('Masukan 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')),
    menu;
   
write('Thank You,')).

Sumber : http://lenterajiwaku.files.wordpress.com/2012/05/minggu5.pdf

Categories: