29 - lista 3 12 - operacoes2

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

principal:-
	write('digite um valor'),
	read(N1),
	write('digite um valor'),
	read(N2),
	opera(N1,N2,So,Su,Mu,Di),
	write('Soma = ':So),nl,
	write('Subtracao = ':Su),nl,
	write('Multiplicacao = ':Mu),nl,
	write('Divisao = ':Di).
soma(N1,N2,S):-
	S is N1+N2.
sub(N1,N2,Su):-
	Su is N1-N2.
mul(N1,N2,Mu):-
	Mu is N1*N2.
div(N1,N2,Di):-
	Di is N1/N2.
opera(N1,N2,So,Su,Mu,Di):-
	soma(N1,N2,So),
	sub(N1,N2,Su),
	mul(N1,N2,Mu),
	div(N1,N2,Di).