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)

5 komentar:

Miss Is mengatakan...

wkwkwkwkwkwkwkwk...
tengkyu y tan,aq emang cakep koq...
narsis mode on

_L's_ mengatakan...

wuih...

Prolog bgt ^^

Miss Is mengatakan...

_L's_Ngalih ae..
TOEFL 600

b3lut mengatakan...

HAH,, GUE 711 TUH TOEFL

Hery mengatakan...

oey................ posting dr divisi PPTI mn ????? kmn ja ne koornya .... hohohohoho.... peace..