Salah satu program kerja Divisi Pendidikan dan Kebudayaan HIMAKOM adalah pembentukan Tim Pembelajaran. Pembentukan Tim Pembelajaran ini dimaksudkan sebagai sarana dalam mempermudah pembelajaran yang diperuntukkan untuk mahasiswa Ilmu Komputer.
Yang termasuk dalam Tim Pembelajaran adalah seluruh anggota Divisi Pendidikan dan Kebudayaan HIMAKOM. Tim Pembelajaran mengumpulkan arsip-arsip berupa bahan kuliah dan soal-soal beserta jawabannya.
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)