Aula 29 - 18.11.2011

Projeto "Sistema de Comparação de Imóveis"

algoritmo "Imóveis"

var
descricao: vetor [1..100] de caracter
rua: vetor [1..100] de caracter
bairro: vetor [1..100] de caracter
cidade: vetor [1..100] de caracter
uf: vetor [1..100] de caracter
aluguel: vetor [1..100] de logico
valor: vetor [1..100] de real
proxCod: inteiro

procedimento tituloSistema()
inicio
limpatela
escreval("================================")
escreval("Sistema de Comparação de Imóveis")
escreval("================================")
escreval("            __    ")
escreval("   _________||___ ")
escreval("  /____________\  ")
escreval(" /|   _     _  |\ ")
escreval("  |  | |   |_| |  ")
escreval("  |  | |       |  ")
escreval("================================")
fimprocedimento

procedimento menuPrincipal()
var op: caracter
inicio
enquanto (op <> "9") faca
   tituloSistema()
   escreval("1 - Incluir novo imóvel")
   escreval("2 - Alterar imóvel")
   escreval("3 - Remover imóvel")
   escreval("4 - Listar imóveis")
   escreval("5 - Comparar imóveis")
   escreval("6 - Escolher imóvel")
   escreval("9 - Sair")
   escreval("================================")
   op <- lerCaracter("Opção: ")
   se (op = "1") entao
      incluirNovoImovel()
   fimse
   se (op = "4") entao
      listarImoveis()
   fimse
fimenquanto
fimprocedimento

procedimento incluirNovoImovel()
var op: caracter
inicio
tituloSistema()
escreval("Inclusão de Imóvel")
escreval("------------------")
proxCod <- proxCod + 1
descricao[proxCod] <- lerCaracter("Digite a Descrição: ")
rua[proxCod] <- lerCaracter("Digite a Rua: ")
bairro[proxCod] <- lerCaracter("Digite o Bairro: ")
cidade[proxCod] <- lerCaracter("Digite a Cidade: ")
uf[proxCod] <- lerCaracter("Digite a UF: ")
aluguel[proxCod] <- lerLogico("É imóvel de aluguel (S/N): ")
valor[proxCod] <- lerReal("Valor: ")
escreval("------------------")
escreval("Imóvel cadastrado com sucesso!")
escreva("Deseja cadastrar outro? (S/N) ")
leia(op)
se (op = "S") ou (op = "s") entao
   incluirNovoImovel()
fimse
fimprocedimento

procedimento listarImoveis()
var i: inteiro
op: caracter
inicio
tituloSistema()
escreval("Lista de Imóveis")
para i de 1 ate proxCod faca
   escreval("----------------")
   escreval("Código ", i)
   escreval("   Descrição: ", descricao[i])
   escreval("   Rua: ", rua[i], ", ", bairro[i])
   escreval("   Cidade: ", cidade[i], "/", uf[i])
   escreval("   Aluguel: ", aluguel[i])
   escreval("   Valor: R$ ", valor[i])
   escreval("----------------")
fimpara
escreval("Digite  para voltar ao menu principal.")
leia(op)
fimprocedimento

funcao lerCaracter(m: caracter): caracter
var v: caracter
inicio
escreva(m)
leia(v)
retorne v
fimfuncao

funcao lerInteiro(m: caracter): inteiro
var v: inteiro
inicio
escreva(m)
leia(v)
retorne v
fimfuncao

funcao lerReal(m: caracter): real
var v: real
inicio
escreva(m)
leia(v)
retorne v
fimfuncao

funcao lerLogico(m: caracter): logico
var v: caracter
inicio
escreva(m)
leia(v)
se (v = "S") ou (v = "s") entao
   retorne verdadeiro
senao
   retorne falso
fimse
fimfuncao

inicio
menuPrincipal()
fimalgoritmo