Analise atentamente a seguinte Base de Conhecimento que o Gabinete de Assuntos Económicos da CE criou para determinar automaticamente se um País está apto a aderir ao projecto de introdução do EURO
%percentagem da Divida Publica em relacao ao PIB
percDivPub(belgica,135.0).
percDivPub(portugal,69.6).
............
%taxa de Inflaccao
taxaInfl(belgica,1.4).
taxaInfl(portugal,3.8).
............
menorTaxaInfl(finlandia,1.0).
%percentagem do Deficite Orcamental em relacao ao PIB
percDefOrc(belgica,5.1).
percDefOrc(portugal,2.8).
............
%criterios de aptidao
criterio1(P) :- percDivPub(P, D), D=< 75, !,
write(P), write('Passou criterio1'),nl.
criterio1(P) :- write(P), write('NAO Passou criterio1'),nl.
criterio2(P) :- taxaInfl(P, T), menorTaxaInfl(_,M), T=< 2.5 * M.
criterio3(P) :- percDefOrc(P, D), D=< 3.
%verificacao da aptidao
apto(Pais) :- criterio1(Pais), criterio2(Pais), criterio3(Pais).
Responda, então, às alíneas seguintes:
%verificacao da aptidao
apto(Pais) :- verificaDivida(Pais), verificaInflaccao(Pais).
verificaDivida(Pais) :- criterio1(Pais), criterio3(Pais).
verificaInflaccao(Pais) :- criterio2(Pais).
--Fim da Parte I--