fork download

copy

descuento(N,U,V,PRECIODESCUENTO):- N>U,PRECIODESCUENTO is (N*V+70)/100 .
descuento(N,_,V,PRECIODESCUENTO):- PRECIODESCUENTO is (N*V*90)/100 .
calculadoriva(PRECIODESCUENTO,IV):- TOTALIVA is (PRECIODESCUENTO*IV)/100 .
puntos(P,VP,PRECIODESCUENTO,PRECIODESCUENTOPUNTOS):- PRECIODESCUENTOPUNTOS is PRECIODESCUENTO-(P*VP) .
corrector(PRECIODESCUENTOPUNTOS,CORRECCION):- PRECIODESCUENTOPUNTOS<0,CORRECCION is 0 .
corrector(PRECIODESCUENTOPUNTOS,CORRECCION):-CORRECCION is PRECIODESCUENTOPUNTOS .
 
compra(N,V,U,IV,P,VP,PG):-
descuento(N,U,V,PRECIODESCUENTO),
calculadoriva(PRECIODESCUENTO,IV,TOTALIVA),
puntos(P,VP,PRECIODESCUENTO,PRECIODESCUENTOPUNTOS),
corrector(PRECIODESCUENTOPUNTOS,CORRECCION),
PG is CORRECCION+TOTALIVA .
:- initialization(main).
main:-
  read(N),read(V),read(U),read(IV),read(P),read(VP),compra(N,V,U,IV,P,VP,PG),
  write(PG),
  hait .
:-main .

prog.pl:3: warning: singleton variables [TOTALIVA] for calculadoriva/2
prog.pl:19: warning: unknown directive main/0 - maybe use initialization/1 - directive ignored
/home/8Edi9B/gplcu446Ig.o: In function `predicate(compra/7)':
(.text+0x449): undefined reference to `predicate(calculadoriva/3)'
/home/8Edi9B/gplcu446Ig.o: In function `predicate(main/0)':
(.text+0x6a3): undefined reference to `predicate(hait/0)'
collect2: error: ld returned 1 exit status
compilation failed

Standard output is empty