Diharapkan dengan adanya Tim Pembelajaran ini Mahasiswa Ilmu Komputer terbantu terkait seputar perkuliahan dan Mahasiswa Ilmu Komputer mengerti tentang kuliah yang sedang dilaksanakan.
Contoh salah satu arsip Tim Pembelajaran :
Pencarian rute,jarak dan total jarak pada peta Kalimantan Selatan menggunakan prolog
predicates
jarak(string,string,integer)
totaljarak(string,string,integer)
carirute(string,string,string)
terhubung(string,string)
clauses
jarak("marabahan","banjarmasin",38).
jarak("banjarmasin","kapuas",42).
jarak("kapuas","palangkaraya",200).
jarak("banjarmasin","banjarbaru",35).
jarak("banjarbaru","mandiangin",25).
jarak("banjarbaru","martapura",4).
jarak("mandiangin","martapura",31).
jarak("martapura","rantau",68).
jarak("martapura","tanahbumbu",399).
jarak("banjarmasin","pelaihari",42).
jarak("pelaihari","banjarbaru",38).
jarak("pelaihari","tanahbumbu",258).
terhubung(Kota1,Kota2):-
jarak(Kota1,Kota2,_).
terhubung(Kota1,Kota2):-
jarak(Kota1,X,_),
jarak(X,Kota2,_).
terhubung(Kota1,Kota2):-
jarak(Kota1,X,_),
jarak(Y,Kota2,_),
terhubung(X,Y).
totaljarak(Kota1,Kota2,Jauh):-
jarak(Kota1,Kota2,Jauh).
totaljarak(Kota1,Kota2,Jauh):-
jarak(Kota1,X,Jrk1),
jarak(X,Kota2,Jrk2),
Jauh=Jrk1+Jrk2.
totaljarak(Kota1,Kota2,Jauh):-
jarak(Kota1,X,Z1),
jarak(Y,Kota2,Z2),
totaljarak(X,Y,Jauh2),
Jauh=Jauh2+Z1+Z2.
carirute(Kota1,Kota2,Rute):-
jarak(Kota1,Kota2,_),
CONCAT(Kota1," > ",Temp),
CONCAT(Temp,Kota2,Rute).
carirute(Kota1,Kota2,Rute):-
jarak(Kota1,X,_),
jarak(X,Kota2,_),
CONCAT(Kota1," > ",Temp),
CONCAT(Temp,X,Temp2),
CONCAT(Temp2," > ",Temp3),
CONCAT(Temp3,Kota2,Rute).
carirute(Kota1,Kota2,Rute):-
jarak(Kota1,X,_),
jarak(Y,Kota2,_),
carirute(X,Y,Rute2),
CONCAT(Kota1," > ",Temp),
CONCAT(Temp,Rute2,Temp2),
CONCAT(Temp2," > ",Temp3),
CONCAT(Temp3,Kota2,Rute).
goal
write("Kota asal :"),
readln(A),
write("Kota tujuan:"),
readln(B),
terhubung(A,B),
totaljarak(A,B,T),
write("Panjang jalan antara 2 kota =",T," Km."),
carirute(A,B,X),
write(" Perjalanan antara 2 kota dapat melalui rute :"),
write(X).
Kalo kalian-kalian smua mao minta materi2 pembelajaran lainnya hubungi koordinator dikbud kita yang cantik,,,, 08195110490 (ismi)














