Аlgoritmo "Locadora""
Trabalho acadêmico: Аlgoritmo "Locadora"". Pesquise 862.000+ trabalhos acadêmicosPor: adriannogs • 8/8/2014 • Trabalho acadêmico • 3.964 Palavras (16 Páginas) • 518 Visualizações
algoritmo "LOCADORA"
// Função :
// Autor :
// Data : 17/10/2009
// Seção de Declarações
var
CPF,ALUGUEL,STATUS,CATEGORIA,NOMEFILME,NOME:VETOR [1..20] DE CARACTER
OPC,X,F:INTEIRO
FILME1,CLIENTE1,ALUGUEL1,CODFILM,DEVOLVERFILME:INTEIRO
Q:CARACTER
OPC1:CARACTER
OPCCPF:REAL
PROCEDIMENTO MENUPRINCIPAL
INICIO
repita
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-. LOCADORA LOC MAIS .-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
ESCREVAL(" ")
ESCREVAL(" ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
ESCREVAL(" 1-MENU FILME ")
ESCREVAL(" 2-MENU CLIENTES ")
ESCREVAL(" 3-ALUGAR ")
ESCREVAL(" 4-DEVOLVER ")
ESCREVAL(" 5-VOLTAR ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
REPITA
ESCREVA("ESCOLHA UMA OPÇÃO! ")
LEIA(OPC)
ATE(OPC>=1)E(OPC<=5)
LIMPATELA
ESCOLHA OPC
CASO 1
MFILMES
CASO 2
MCLIENTE
CASO 3
ALUGAR
CASO 4
DEVOLVER
CASO 5
INTERROMPA
OUTROCASO
ESCREVAL("OPÇÃO INVALIDA ESCOLHA UMA OPÇÃO DE 1 ATE 5")
FIMESCOLHA
ATE FALSO
ATE OPCAO=5
FIMPROCEDIMENTO
PROCEDIMENTO MFILMES
INICIO
repita
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.LOC MAIS-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
ESCREVAL(" ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
ESCREVAL(" 1- CADASTRAR ")
ESCREVAL(" 2- LISTAR ")
ESCREVAL(" 3- SAIR ")
ESCREVAL(" ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.")
repita
ESCREVA("ESCOLHA UMA OPÇÃO:")
leia(OPC)
ate (OPC>=1)e(OPC<=3)
LIMPATELA
escolha OPC
CASO 1
CADASTROFILME
CASO 2
LISTARFILME
CASO 3
INTERROMPA
OUTROCASO
ESCREVAL("OPÇÃO INVALIDA ESCOLHA UMA OPÇÃO DE 1 ATE 3 ")
FIMESCOLHA
FIMREPITA
FIMPROCEDIMENTO
PROCEDIMENTO CADASTROFILME
INICIO
REPITA
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
ESCREVAL(" ")
ESCREVAL(" CADASTRO FILME ")
ESCREVAL(" ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
ESCREVA("DIGITE O NOME DO FILME : ")
FILME1<-FILME1+1
...