[IA] - F5

%cubo(N,C):-C is N*N*N.
cubo:-write('Introduza um valor ou stop'),nl,read(X),calcularcubo(X).
calcularcubo(stop):-!.
calcularcubo(X):-C is X*X*X,write('O valor do cubo é:'),write(C),nl,cubo.

cubo2:-tell('cubox.pl'),cubo3,told.
cubo3:-write('Introduza um valor ou stop'),nl,read(X),calcularcubo3(X).
calcularcubo3(stop):-!.
calcularcubo3(N):-C is N*N*N, write('O cubo de '), write(N), write(' é '), write(C), nl, cubo3.

escrevelista([]):-!.
escrevelista([A|C]):-write(A),nl,escrevelista(C).

escrevelistaaocontrario([]):-!.
escrevelistaaocontrario([A|C]):-escrevelistaaocontrario(C),write(A),nl.

esclistalinha([]):-!.
esclistalinha([A|Cauda]):-write(A),tab(1),esclistalinha(Cauda).

escreverlistadelistas([]):-!.
escreverlistadelistas([[]|Cauda]):-esclistalinha([]),nl,escreverlistadelistas(Cauda).

escreverlistadelistas([[A|Ca]|Cauda]):-esclistalinha([A|Ca]),nl,escreverlistadelistas(Cauda).

escreveasteriscos([]):-!.
escreveasteriscos([A|Cauda]):-ast(A),nl,escreveasteriscos(Cauda).

ast(0):-!.
ast(X):-write('*'),Y is X-1,ast(Y).