/ *---------------------------------------------------------------------------------------| Elementos do grupo: Eulanda Maria Pedro Daniel Oscar Franco | -----------------------------------------------------------------------------------------*/
/ *---------------------------------------------------------------------------------------| Declaracao Dos Predicados | -----------------------------------------------------------------------------------------*/ writenl(X):-write(X),nl. readnl(Y):-read(Y),nl. if_then_else(P,Q,R):-P,!,Q. if_then_else(P,Q,R):-R. :-dynamic dados_comprador/6. % dados_comprador ( _, _, _, _,_,_ ).
:-dynamic pass/1. % pass ( _ ).
/* --------------------------------------------------------------------------------------| Relatorio do trabalho | --------------------------------------------------------------------------------------- */ relatorio:writenl('------------->>>>>> Trabalho 2 programado em prolog <<<<<<<----------------- '), writenl('Este trabalho foi feito por um gropo de 2 estudantes do curso de Enginharia Informatica da ESTC na UP.'), writenl('O writenl('O trabalho fala fala de gest� o de vendas de carro carro onde os Estudant Estudantes es fizeram da melhor forma que puderam.'), writenl( writenl('O 'O Trabal Trabalho ho n� o foi facil facil e tambem tambem n� o foi dific dificil il de fazer fazer apenas apenas um um pouco complicad complicado o mais pudemos pudemos dar o melhor de de n� s.'), writenl( writenl(' ' Metas Metas Alcan Alcan� ada:'), ada:'), writenl(' -> conseguimos inserir um comprador;'), writenl('-> conseguimos ler os dados ;'), writenl('-> conseguimos tambem alterar os dados do armazem, do stand e dados do comprador.'),
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
writenl('-> e conseguimos apagar os dados'), writenl('-> Metas Nao Alcancadas'), writenl('-> Nao conseguimos converter as muedas '), write writenl( nl('Co 'Concl nclus us� o :'), :'), writenl('Concluimos writenl('Concluimo s que o trabalho dado foi bom para melhorar as nossas capacidades capacidades aprogramar aprogramar em caml e tambem tambem pudemos pudemos esclarecer esclarecer algumas algumas d� vidas que'), que'), writenl('tinhamos writenl('tinhamos entre entre n� s e os objectivos, objectivos, apesar apesar de que tivemos tivemos dificuldade dificuldade em alguns alguns met� dos, foram foram resovi resovildos ldos'), '), writenl('execpto um apenas.'), writenl('Assinado por:'), writenl('-> Eulanda'), writenl('-> Oscar'), writenl('------------------ # -----------------'),nl.
/* --------------------------------------------------------------------------------------| Fun Fun��es par para a visu visuali aliza zar r dados dados do do compr comprado ador r | --------------------------------------------------------------------------------------- */ visualizaAd:dados_comprador(No,BI,End,Marc,Matr,Cor), write(' Nome: '),write(No),nl, write(' Numero de B.I: '),write(BI),nl, write(' Endereco: '),write(End),nl, write(' Marca do carro: '),write(Marc),nl, write(' Matricula: '),write(Matr),nl, write(' Cor do carro: '),write(Cor),nl, fail, menuAdministrador. visualizaAd:- true, menuAdministrador.
visualizaComp:dados_comprador(No,BI,End,Marc,Matr,Cor), write(' Nome: '),write(No),nl, write(' Numero de B.I: '),write(BI),nl, write(' Endereco: '),write(End),nl, write(' Marca do carro: '),write(Marc),nl, write(' Matricula: '),write(Matr),nl, write(' Cor do carro: '),write(Cor),nl, fail, menuComprador.
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
| Fun Fun��es par para a apag apagar ar dad dados os do do comp comprad rador or | --------------------------------------------------------------------------------------- */ apagarComprador:dados_comprador(No,BI,End,Marc,Matr,Cor), retract(dados_comprador(No,BI,End,Marc,Matr,Cor)), writenl(' --->>> Dados Apagados <<<----'),nl,nl, menuAdministrador.
/* --------------------------------------------------------------------------------------| Fun Fun��es par para a alte alterar rar dados dados do com compr prado ador r | --------------------------------------------------------------------------------------- */ alterar_dados:dados_comprador(No,BI,End,Marc,Matr,Cor), writenl(No), write(' 2 -> BI numero: '),write(BI), write(' 3 -> Nome do endereco: '),write(End), write(' 4 -> carro de marca: '),write(Marc), write(' 5 -> matricula numero: '),write(Matr), write(' 6 -> carro de cor: '),write(Cor),nl,nl,nl, writenl(' Introduza o numero que deseja alterar '), readnl(X), writenl(' Introduza o novo dados '), readnl(Y), if_then_else(X == 2, assertz(dados_comprador(No,Y,End,Marc,Matr,Cor)), if_then_else(X == 3, assertz(dados_comprador(No,BI,Y,Marc,Matr,Cor)), if_then_else(X == 4, assertz(dados_comprador(No,BI,End,Y,Matr,Cor)), if_then_else(X == 5, assertz(dados_comprador(No,BI,End,Marc,Y,Cor)), if_then_else(X == 6, assertz(dados_comprador(No,BI,End,Marc,Matr,Y)), (tecla_errada, alterar_dados)))))), retract(dados_comprador(No,BI,End,Marc,Matr,Cor)),nl, writenl(' --->>> Dados Alterados <<<-----'),nl,nl, menuAdministrador.
/* --------------------------------------------------------------------------------------| Fun Fun��es par para a inse inserir rir dados dados do com compr prado ador r | --------------------------------------------------------------------------------------- */
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
/* --------------------------------------------------------------------------------------| Metodo do Menu do Comprador | --------------------------------------------------------------------------------------- */ menuComprador:writenl(' ################################ '), writenl(' ### >> 1- Visualizar dados ### '), writenl(' ### >> 2- Voltar ao menu principal ### '), readnl(Opc), if_then_else(Opc == 1, visualizaComp, if_then_else(Opc == 2, menuPrincipal,(opcao_errada,menuComprador))). /* --------------------------------------------------------------------------------------| Metodo do Menu do Administrador | --------------------------------------------------------------------------------------- */ password:writenl(' PassWord?'), readnl(Opc), if_then_else(Opc == 2009, menuAdministrador,(pass_errada, password)). menuAdministrador:writenl(' ################################ '), writenl(' ### >> 1- Inserir dados do comprador ### '), writenl(' ### >> 2- Eliminar dados do comprador ### '), writenl(' ### >> 3- Visualizar dados do comprador ### '), writenl(' ### >> 4- Alterar dados do comprador ### '), writenl(' ### >> 5- Voltar ao menu principal ### '), readnl(Opc), if_then_else(Opc if_then_else(Opc if_then_else(Opc if_then_else(Opc if_then_else(Opc
== == == == ==
1, 2, 3, 4, 5,
inserir, apagarComprador, visualizaAd, alterar_dados, menuPrincipal,(opcao_errada,menuAdministrador)))))).
/* ---------------------------------------------------------------------------------------
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
writenl('operacao errada tente outra vez!!!!'), nl,nl,nl. menuPrincipal:writenl(' writenl(' writenl(' writenl(' writenl(' writenl(' writenl('
################################### '), ########### Menu Principal ########### '), ################################### '), ->> 1- Menu do Comprador '), ->> 2- Menu do Administrador '), ->> 3- Sobre o trabalho '), ->> 0- Terminar a seccao'),
readnl(Opc), if_then_else(Opc if_then_else(Opc if_then_else(Opc if_then_else(Opc
== == == ==
1, 2, 3, 0,
menuComprador, password, relatorio, sair,(tecla_errada, menuPrincipal))))).
