Contoh program sederhana menggunakan prolog :
Contoh pertama:
menu:-nl,
write(‘menu’),nl,
write(’1.Luas Segitiga’),nl,
write(’2.Pangkat’),nl,
write(’3.Exit’),nl,
write(‘Masukkan Pilihan Anda[1..3] : ‘),read(Q),
write(‘menu’),nl,
write(’1.Luas Segitiga’),nl,
write(’2.Pangkat’),nl,
write(’3.Exit’),nl,
write(‘Masukkan Pilihan Anda[1..3] : ‘),read(Q),
(
Q=1,nl,
write(‘luas Segitiga’),nl,
write(‘alas:’),
read(Alas),
write(‘input tinggi:’),read(Tinggi),
Luas is Alas * Tinggi/2,
write(‘Luasnya : ‘),write(Luas),
menu;
write(‘luas Segitiga’),nl,
write(‘alas:’),
read(Alas),
write(‘input tinggi:’),read(Tinggi),
Luas is Alas * Tinggi/2,
write(‘Luasnya : ‘),write(Luas),
menu;
Q=2,
write(‘masukkan nilai A:’),
read(A),nl,
write(‘masukkan nilai B:’),
read(B),nl,
C is A ** B,
write(‘Hasil dari A pangkat B adalah ‘),write(C),
menu;
write(‘masukkan nilai A:’),
read(A),nl,
write(‘masukkan nilai B:’),
read(B),nl,
C is A ** B,
write(‘Hasil dari A pangkat B adalah ‘),write(C),
menu;
Q=3,
write(‘_exit_’),nl).
write(‘_exit_’),nl).
Contoh kedua :
loopa(A,B):-
(A>0,
loopb(B,1),nl,
C is A-1,
D is B+1,
loopa(C,D);
A=0,nl).
loopb(X,Z):-
( X>0,write(Z),
Y is X-1,
W is Z+1,
loopb(Y,W);
X=0,write('')).
menu :-
write('-------MENU-------'),nl,
write('1. Biodata'),nl,
write('2. Segitiga'),nl,
write('3. Keluar'),nl,
write('Masukkan pilihan : '), read(PIL), nl,
(PIL=1,nl,
write('------BIODATA------'),nl,
write('Nama saya : '),read(A),nl,
write('NPM saya : '),read(B),nl,
write('-------------------'),nl,
write('Nama saya : '),write(A),nl,
write('NPM saya : '),write(B),nl,
menu;
PIL=2,nl,
write('Nilai perulangan : '),read(A),loopa(A,1),
menu;
PIL=3,nl,
write('Makasih'),nl).
Input & Output pada Prolog
Fungsi masukan dan keluaran (I/O atau Input/Output) dalam Prolog yaitu WRITE
dan READ. Fungsi WRITE digunakan untuk menulis nilai atau ekspresi, sedangkan
fungsi READ digunakan untuk menerima masukan dari keyboard.
Sumber :
http://www.justlikefie.com/2010/10/laporan-pendahuluan-prolog-221010.html
http://sulimah-mhiyu.blogspot.com/2010/11/contoh-program-sederhana-prolog.html
http://nindiwahyuni.blogspot.com/2012/10/laporan-pendahuluan-inputoutput-pada.html?showComment=1351104390997#c993246712312039276
Tidak ada komentar:
Posting Komentar