Hm, tole je bilo očitno zelo podobno temu: http://www.e-studij.si/UL/FRI/UNI-RI/MOS/Izpiti/2005-10-6-prolog
lpM 2008/6/19 Janez Mišič <[EMAIL PROTECTED]>: > Kot je povedal že Anže. > > Najprej je bila podana baza letalskih povezav - povezava(Od, Do, Čas, > Razdalija). Npr. povezava(Ljubljana, Frankfurt, 2, 700). > > 1. naloga - napiši predikat obstajaPot(A,B), ki bo izpisal vse možne poti > (s > cikli se ni bilo potrebno obremenjevat). > > Moja rešitev (dobil sem vseh 25 točk): > > obstajaPot(A,B):- > povezava(A,B,_,_). > > obstajaPot(A,B):- > povezava(A,C,_,_), > obstajaPot(C,B). > > 2. naloga - napiši predikat trajanjePotovanja(A,B,Cas,Pot), ki izpiše vse > možne poti med dvema krajema in trajanje teh poti. > > Npr. ?- trajanjePotovanja(Rim,Tokyo,Cas,Pot). > > Cas = 10, Pot = [Rim, Tokyo]; > Cas = 19 Pot = [Rim, Frankfurt, Tokyo]; ... > > Moja rešitev (dobil sem 19 od 25 točk): > > trajanjePotovanja(A,B,Cas,[A,B]):- > povezava(A,B,Cas,_). > > trajanjePotovanja(A,B,Cas,[H|T]):- > povezava(A,C,Cas1,_), > trajanjePotovanja(C,B,Cas2,T), > Cas is Cas1 + Cas2. > > 3. naloga - učinkovito napiši predikat trajanjeVbesedi(Ure,Beseda), ki > pretvarja trajanje potovanja iz številčnga v opisno, tako da bo ustrezal > tabeli: > > trajanje < 5 ur --> kratko > trajanje >= 5 ur in trajanje < 10 ur --> srednje > trajanje >= 10 ur --> dolgo > > Moja rešitev (dobil sem 22 od 25 točk): > > trajanjeVbesedi(Ure,Beseda):- > Ure<5, Beseda=kratko,!; > Ure>=5, Ure<10, Beseda=srednje,!; > Ure>=10,Beseda=dolgo. > > 4. naloga - je bila podobna kot na prejšnjih izpitih - kako bi Prologu > zastavil vprašanje - pet vprašanj. > > --- > > Tole sem napisal po spominu, tako da naj služi bolj za orientacijo :-) > > Fajn pišite! >
