voyage

来自「这是用prolog写的几个程序：程序１是一个旅行社关系系统」· 代码 · 共 62 行

	
	/*********************/
	/**AGENCE DE VOYAGES**/
	/*********************/



/*Pour chaque destination le prix de transport*/
prixtrans(venise,200)->;
prixtrans(londres,250)->;
prixtrans(newyork,500)->; 



/*Pour chaque destination le prix d'une semaine de sejour*/
/*Le prix de sejour varie selon la destination et le confort de l'hotel*/
prixsejour(venise,eto2,1000)->;
prixsejour(venise,eto3,2000)->;
prixsejour(venise,eto4,4000)->;
prixsejour(londres,eto2,1500)->;
prixsejour(londres,eto3,2500)->;
prixsejour(londres,eto4,3500)->;
prixsejour(newyork,eto2,2000)->;
prixsejour(newyork,eto3,4000)->;
prixsejour(newyork,eto4,6000)->;



/*Duree de sejour*/
duree(1)->;
duree(2)->; 
duree(3)->;


/*calculprix(c, c1, c2, m) -> val(add(c1, mul(c2,m)), c);*/

/*Le voyage dans la ville v, de duree d, dans l'hotel h, */
/*coute f francs*/

voyage(v, d, h, f)->prixtrans(v, f1)
                 prixsejour(v, h, f2)
		 val(f1 + f2 * d, f);
		/*calculprix(f, f1, f2, d);*/


/*voyage-economique=les voyages dont le cout est inferieur a un prix (f-max) donnee par utilisateur*/
/*Note: voyage-economique = economique ou veconomique*/
/*      f-max = m */
economique(v, d, h, f, m)->duree(d)
			voyage(v, d, h, f)
			val(f '>' m, 0);

veconomique(v, d, h, f, m)->peuton(v, 1, d, h, f, m);

peuton(v, d, d, h, f, m)-> voyage(v, d, h, f)
                          val(f '>' m, 0);

peuton(v, d1, d, h, f, m)-> voyage(v, d1, h, f1)
			   val(f1 '>' m, 0)
			   val(d1 + 1, d2)
			   peuton(v, d2, d, h, f, m);