algoritmo em visualg

[redfox 0]

Boa galera venho aqui pedir a vcs uma ajudinha to precisando de um algoritmo em visualg que tenha as seguintes funcoes

 

O sistema deve permitir o cadastro, listagem e pesquisa de filmes e clientes. Bem como alugar

e devolver um filme.

O cliente deve possuir código, nome e CPF.

O filme deve possuir código, nome, categoria e status (Alugado ou Livre), caso esteja alugado

deve-se informa o código do cliente que alugou

 

aqui vai uma pequena amostra do algoritmo mas to ficando sem acbelos ja

 

ainda nao fiz o menu principal mas ele e assim

 

ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                            SISTEMA DE CADASTRO                                 |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|               1. CADASTRAR CLIENTES                                            |")
   ESCREVAL ("|               2. CADASTRAR FILMES                                              |")
   ESCREVAL ("|               3. ALUGAR                                                        |")
    SCREVAL ("|               4. DEVOLVER                                                      |")
   ESCREVAL ("|               5. SAIR                                                          |")
   ESCREVAL ("|                                                                                |")
   ESCREVAL ("----------------------------------------------------------------------------------")

CADA OPCAO VAI PARA OUTRO MENU
PROCEMINTO 1 VAI PARA O MENU CLIENTE
QUE TEM

CADASTRA CLIENTE (dentro desse menu deve ser pedido o nome do cliente e cpf no fim deve imformar cliente cadastrado deseja cadastrar outro s/n?)

LISTAr listar clientes      cod,   nome  ,  cpf 
SAIR





PROCEDIMENTO 2 VAI PARA O MENU FILME
CADASTRAR FILME
LISTAR 
SAIR





PROCEDIMENTO 3 VAI PARA MENU ALUGAR 

DIGITE O CODIGO DO CLIENTE
DIGITE O CODIGO DO FILME
FILME ALUGADO !

PROCIMENTO 4 DEVOLVER FILME
DIGITE O CODIGO DO FILME
FILME DEVOLVIDO

PROCEDIMENTO 5  SAIR

algoritmo "semnome"
// Função :
// Autor :
// Data : 09/10/2009
// Seção de Declarações
var
PROCEDIMENTO MENU_PRINCIPAL
PROCEDIMENTO CLIENTES
OPC:CARACTER
INICIO
procedimento cad
inicio
ESCREVAL ("CADASTRAR CLIENTES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
   ESCREVAL ("DIGITE O NOME DO CLIENTE.")
   MATFIM<-MATFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
   LEIA (NOME[MATFIM])//ARMAZENAR O NOME
   ESCREVAL ("DIGITE O CPF DO CLIENTE ")
   LEIA (CPF[MATFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
   ESCREVAL("CLIENTE CADASTRADO COM SUCESSO")
   REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
      ESCREVAL ("DESEJA CADASTRAR MAIS UM CLIENTES?")
      LEIA (OPC)
   ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS CLIENTES")
PARA X DE 1 ATE MATFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
   ESCREVAL (" CODIGO  ", "  NOME  ", "  CPF  ")
   ESCREVAL (     X , "          ", NOME[X], "            ", CPF[X])
FIMPARA
fimprocedimento
procedimento buscar
inicio
ESCREVAL ("BUSCAR CLIENTES")
ESCREVAL ("DIGITE A MATRICULA:")
LEIA (MATRICULA) //REALIZAR A BUSCA NO BANCO DE DADOS CADASTRADO ANTERIORMENTE PELO NÚMERO DA MATRÍCULA
SAL_TOTAL<-(CPF[MATRICULA]*100)+SALARIO_BASE[MATRICULA]
ESCREVAL ("O NOME DO CLIENTES: ", NOME[MATRICULA])
ESCREVAL ("NÚMERO DE DEPENDENTES: ", CPF[MATRICULA])
ESCREVAL ("O VALOR DO SALÁRIO BASE: ", SAL_TOTAL)
fimprocedimento
procedimento sair
inicio

fimprocedimento
var
procedimento CADFILME
inicio
ESCREVAL ("CADASTRAR FILMES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
   ESCREVAL ("DIGITE O NOME DO FILME.")
   CODFIM<-CODFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
   LEIA (NOME[CODFIM])//ARMAZENAR O NOME
   ESCREVAL ("DIGITE A CATEGORIA DO FILME ")
   LEIA (CAT[CODFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
   ESCREVAL("FILME CADASTRADO COM SUCESSO")
   REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
      ESCREVAL ("DESEJA CADASTRAR MAIS UM FILMES?")
      LEIA (OPC)
   ATE (OPC="N") OU (OPC="S")
   ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS FILMES")
PARA X DE 1 ATE CODFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
   ESCREVAL (" CODIGO  ", "  NOME  ", "  CATEGORIA,STATUS,ALUGADO POR ")
   ESCREVAL (     X , "    ", NOME[X], "     ", CAT[X])
FIMPARA
fimprocedimento
CLIENTE, OPC1, LISTAR, ALTERAR, BUSCAR, CAD, ALT: CARACTER
NOME: VETOR [1..100] DE CARACTER

X, BUSCA, MATRICULA, MATFIM: INTEIRO
CPF: VETOR [1..100] DE INTEIRO
SALARIO_BASE: VETOR [1..100] DE REAL
SAL_TOTAL: REAL
CONT1, OPC: CARACTER
inicio
//PARA REPETIR O GRÁFICO ABAIXO
REPITA
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                            SISTEMA DE CADASTRO                                 |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|               1. CADASTRAR CLIENTES                                            |")
   ESCREVAL ("|               2. LISTAR TODOS OS CLIENTES                                      |")
   ESCREVAL ("|               3. BUSCAR CLIENTES                                               |")
   ESCREVAL ("|               4. SAIR                                                          |")
   ESCREVAL ("|                                                                        |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVA (" OPÇÃO: ")
   LEIA (OPC1)
   //O LEIA É PARA ARMAZENAR A OPÇÃO
   //A OPÇÃO É PARA ESCOLHER E ARMAZENAR A OPÇÃO DESEJADA
   ESCOLHA OPC1
   CASO "1"
        cad
   CASO "2"
      listar
   CASO "3"
        buscar
   CASO "4"//OPÇÃO ESCOLHA PARA SAIR DO PROGRAMA COM O COMANDO INTERROMPA ABAIXO
      INTERROMPA
   OUTROCASO
      ESCREVAL ("OPÇÃO INVÁLIDA")
   FIMESCOLHA //TERMINAR O FIM ESCOLHA
   ESCREVAL ("DIGITE QUALQUER LETRA PARA CONTINUAR")
   LEIA (CONT1) //ESSE LINHA SERVE PARA TER UMA PAUSA
   LIMPATELA
   FIMREPITA
   // Seção de Comandos
FIMPROCEDIMENTO

fimalgoritmo 

grato pela atenção

[quitZAUMMM 18]

Bom antes de tudo ql a duvida?

 

[]s

[redfox 0]

 

Bom antes de tudo ql a duvida?

 

[]s

 

 

como seria para colocar todos os menus num algoritmo so ? nao sei como se faz

 

 

Bom antes de tudo ql a duvida?

 

[]s

 

 

como seria para colocar todos os menus num algoritmo so ? nao sei como se faz

 

você terai um algoritmo desse pronto?

 

 

 

var
procedimento cad
inicio
ESCREVAL ("CADASTRAR CLIENTES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
   ESCREVAL ("DIGITE O NOME DO CLIENTE.")
   MATFIM<-MATFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
   LEIA (NOME[MATFIM])//ARMAZENAR O NOME
   ESCREVAL ("DIGITE O CPF DO CLIENTE ")
   LEIA (CPF[MATFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
   ESCREVAL("CLIENTE CADASTRADO COM SUCESSO")
   REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
      ESCREVAL ("DESEJA CADASTRAR MAIS UM CLIENTES?")
      LEIA (OPC)
   ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS CLIENTES")
PARA X DE 1 ATE MATFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
   ESCREVAL (" CODIGO  ", "  NOME  ", "  CPF  ")
   ESCREVAL (     X , "          ", NOME[X], "            ", CPF[X])
FIMPARA
fimprocedimento
procedimento sair
inicio

fimprocedimento
LIENTE, OPC1, LISTAR, ALTERAR, BUSCAR, CAD, ALT: CARACTER
NOME: VETOR [1..100] DE CARACTER

X, BUSCA, MATRICULA, MATFIM: INTEIRO
CPF: VETOR [1..100] DE INTEIRO
SALARIO_BASE: VETOR [1..100] DE REAL
SAL_TOTAL: REAL
CONT1, OPC: CARACTER
inicio
REPITA
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                            SISTEMA DE CADASTRO                                 |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|               1. CADASTRAR CLIENTES                                            |")
   ESCREVAL ("|               2. LISTAR TODOS OS CLIENTES                                      |")
   ESCREVAL ("|               3. BUSCAR CLIENTES                                               |")
   ESCREVAL ("|               4. SAIR                                                          |")
   ESCREVAL ("|                                                                                |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVA (" OPÇÃO: ")
   LEIA (OPC1)
   ESCOLHA OPC1
   CASO "1"
        cad
   CASO "2"
      listar
   CASO "3"
        buscar
   CASO "4"
      INTERROMPA
   OUTROCASO
      ESCREVAL ("OPÇÃO INVÁLIDA")
   FIMESCOLHA
   ESCREVAL ("DIGITE QUALQUER LETRA PARA CONTINUAR")
   LEIA (CONT1)
   LIMPATELA
   FIMREPITA
   fimprocedimento
   procedimento CADFILME
inicio
ESCREVAL ("CADASTRAR FILMES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
   ESCREVAL ("DIGITE O NOME DO FILME.")
   CODFIM<-CODFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
   LEIA (NOME[CODFIM])//ARMAZENAR O NOME
   ESCREVAL ("DIGITE A CATEGORIA DO FILME ")
   LEIA (CAT[CODFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
   ESCREVAL("FILME CADASTRADO COM SUCESSO")
   REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
      ESCREVAL ("DESEJA CADASTRAR MAIS UM FILMES?")
      LEIA (OPC)
   ATE (OPC="N") OU (OPC="S")
   ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS FILMES")
PARA X DE 1 ATE CODFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
   ESCREVAL (" CODIGO  ", "  NOME  ", "  CATEGORIA,STATUS,ALUGADO POR ")
   ESCREVAL (     X , "    ", NOME[X], "     ", CAT[X])
FIMPARA
fimprocedimento


 FILME, OPC1, LISTAR, ALTERAR, BUSCAR, CADFILME, ALT: CARACTER
NOME: VETOR [1..100] DE CARACTER

X, BUSCA, MATRICULA, CODFIM: INTEIRO
CAT: VETOR [1..100] DE CARACTER
STATUS: VETOR [1..100] DE CARACTER
ALUGADOPOR: REAL
CONT1, OPC: CARACTER


inicio
//PARA REPETIR O GRÁFICO ABAIXO
REPITA
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                            SISTEMA DE CADASTRO                                 |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|               1. CADASTRAR FILME                                               |")
   ESCREVAL ("|               2. LISTAR TODOS OS FILMES                                        |")
   ESCREVAL ("|               3.SAIR                                                           |")
   ESCREVAL ("|                                                                                |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVA (" OPÇÃO: ")
   LEIA (OPC1)
   //O LEIA É PARA ARMAZENAR A OPÇÃO
   //A OPÇÃO É PARA ESCOLHER E ARMAZENAR A OPÇÃO DESEJADA
   ESCOLHA OPC1
   CASO "1"
     CADFILME
   CASO "2"
      listar

   CASO "3"//OPÇÃO ESCOLHA PARA SAIR DO PROGRAMA COM O COMANDO INTERROMPA ABAIXO
      INTERROMPA
   OUTROCASO
      ESCREVAL ("OPÇÃO INVÁLIDA")
   FIMESCOLHA //TERMINAR O FIM ESCOLHA
   ESCREVAL ("DIGITE QUALQUER LETRA PARA CONTINUAR")
   LEIA (CONT1) //ESSE LINHA SERVE PARA TER UMA PAUSA
   LIMPATELA
   FIMREPITA
   fimalgoritmo

[quitZAUMMM 18]

Postar um código é fácil, qro saber aonde você está com duvidas.

 

[]s

[redfox 0]

você podeia fazer isso pra mim???

 

 

Postar um código é fácil, qro saber aonde você está com duvidas.

 

[]s

 

[quitZAUMMM 18]

É assim..

Você postou o código, + qria q você apontasse agora quais são suas dificuldades, o que falta fazer, e tal..

eu n tenho visualg por isso fica realmente complicado eu analizar seu código sem saber onde você está com duvidas.!

 

Poste suas duvidas para a gente esclarecer o assunto ;D!

 

[]s

[redfox 0]

galera e o seguinte eu fiz tudo certinho cadastro de clientes cadastro de filmes listagem de filmes e de clientes mas to levando pau na hora de alugar e devolver

no alugar seria para eu digitao o codigo do filme esse codiga e gerado quando eu cadastro o filme exse eu cadastrar 3 filmes os cadigo de cada uma vai de 1 ate 3 o mesmo e o cliente entao quando eu vou alugar so diga qual o codigo do filme e do cliente e depoie ele me da uma mensage de que o filme foi alugado foi o filme tal para cliente tal tem como alguem fazer essa parte p mim e me explicar se precisar do visual e sa falar

 

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
   LEIA(NOMEFILME[FILME1])
   ESCREVA("DIGITE A CATEGORIA DO FILME : ")
   LEIA(CATEGORIA[FILME1])
   STATUS[FILME1]<-"DISPONIVEL"
   REPITA
      ESCREVAL("DESEJA CADASTRAR OUTRO FILME S OU N ?")
      LEIA(OPC1)
   ATE(OPC1="S")OU (OPC1="N")
   LIMPATELA
ATE OPC1="N"
LIMPATELA

FIMPROCEDIMENTO

PROCEDIMENTO LISTARFILME

inicio

ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
ESCREVAL("                                                                                       ")
ESCREVAL("                     LISTAGEM DE FILMES                                                ")
ESCREVAL("                                                                                       ")
ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
ESCREVAL("COD        FILME          CATEGORIA           STATUS            ALUGADO ")
PARA F de 1 ate FILME1 faca
   se status[F]="DISPONIVEL" entao
      ALUGUEL[F]<-"DISPONIVEL"
   fimse
   ESCREVAL(F,"             ",NOMEFILME[F],"           ",CATEGORIA[F],"          ",STATUS[F],"         ",ALUGUEL[F])
FIMPARA
ESCREVA("DIGITE QUALQUER TECLA PARA CONTINUAR : ")
LEIA(Q)
LIMPATELA
FIMPROCEDIMENTO

PROCEDIMENTO    MCLIENTE

INICIO
REPITA
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-CLIENTE-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")

   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   ESCREVAL("                         1- CADASTRAR                                                  ")
   ESCREVAL("                         2- LISTAR                                                     ")
   ESCREVAL("                         3- SAIR                                                       ")
   ESCREVAL("                                                                                       ")
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   REPITA
      ESCREVA("OPÇÃO:")
      LEIA(OPC)
   ATE (OPC>=1)e(OPC<=3)
   LIMPATELA
   ESCOLHA OPC
   CASO 1
      CADASTROCLIENTE
   CASO 2
      LISTARCLIENTE
   CASO 3
      INTERROMPA

   OUTROCASO
      ESCREVAL("OPÇÃO INVALIDA ESCOLHA  UMA OPÇÃO DE 1 ATE 3 ")
   FIMESCOLHA
   FIMREPITA

   fimprocedimento

   PROCEDIMENTO CADASTROCLIENTE

   INICIO
   REPITA
      ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
      ESCREVAL("                                                                                       ")
      ESCREVAL("                        CADASTRO DO CLIENTE                                            ")
      ESCREVAL("                                                                                       ")
      ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")

      ESCREVA("DIGITE O NOME DO CLIENTE : ")
      CLIENTE1<-CLIENTE1+1
      LEIA(NOME[CLIENTE1])
      ESCREVA("DIGITE DIGITE O CPF DO CLIENTE : ")
      LEIA(CPF[CLIENTE1])
      REPITA
         ESCREVAL("DESEJA CADASTRAR OUTRO CLIENTE S OU N ?")
         LEIA(OPC1)
      ATE(OPC1="S")OU (OPC1="N")
      LIMPATELA
   ATE OPC1="N"
   LIMPATELA
   FIMPROCEDIMENTO

   PROCEDIMENTO LISTARCLIENTE

   INICIO

   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   ESCREVAL("                                                                                       ")
   ESCREVAL("                           Listagem de Clientes                                        ")
   ESCREVAL("                                                                                       ")
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   ESCREVAL("Cod.         Nome          CPF")
   PARA X DE 1 ATE CLIENTE1 FACA
      ESCREVAL(X,"         ",NOME[x],"        ",CPF[x])
   FIMPARA
   ESCREVA("DIGITE QUALQUER TECLA PARA CONTINUAR : ")
   LEIA(Q)
   LIMPATELA
   FIMPROCEDIMENTO

   PROCEDIMENTO ALUGAR

   INICIO
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-LOC MAIS-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   ESCREVAL("                                                                                    ")
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.--.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
   ESCREVAL("                           ALUGAR FILMES                                            ")
   ESCREVAL("                                                                                    ")
   ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.--.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")

   REPITA
      ESCREVA("DIGITE O CODIGO DO CLIENTE : ")
      LEIA(ALUGUEL1)
      ESCREVAL(NOME[ALUGUEL1])
   ATE(ALUGUEL1>=1)E (ALUGUEL1<=CLIENTE1)
   REPITA
      ESCREVA("DIGITE O CODIGO DO FILME ",NOME[ALUGUEL1],":")
      LEIA(CODFILM)
      LIMPATELA
   ATE(CODFILM>=1)E(CODFILM<=FILME1)

   SE STATUS[CODFILM]="ALUGADO" ENTAO
      REPITA
         ESCREVA("FILME : " ,CODFILM,"ESTA ALUGADO ESCOLHA OUTRO FILME")
         LEIA(CODFILM)
         SE STATUS="DISPONIVEL" ENTAO
            ESCREVA("FILME",CODFILM,"ALUGADO COM SUCESSO PARA" ,CLIENTE1)ENTAO
            STATUS<-"ALUGADO"
         FIMSE
      FIMSE
      FIMREPITA
      LIMPATELA
      FIMPROCEDIMENTO


      PROCEDIMENTO DEVOLVER

      inicio
      ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-LOC MAIS.-.-.-.-.-.-.--.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
      ESCREVAL("                                                                                    ")
      ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.--.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
      ESCREVAL("                          DEVOLVER FILMES                                           ")
      ESCREVAL("                                                                                    ")
      ESCREVAL("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.--.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
      REPITA
         ESCREVA("DIGITE O CODIGO DO FILME QUE SERA DEVOLVIDO : ")
         LEIA(DEVOLVERFILME)
         LIMPATELA
      ATE(DEVOLVERFILME>=1)E(DEVOLVERFILME<=CODFILM)
      SE STATUS[DEVOLVERFILME]="DISPONIVEL" ENTAO
         REPITA
            ESCREVAL("O FILME",CODFILM,"   "," JÁ ESTA NA LOCADORA IMPOSSIVEL ENTREGAR! ")
            ATE DEVOLVERFILME=CODFILME


         ESCREVAL("FILME DEVOLVIDO COM SUCESSO VOLTE SEMPRE")
            STATUS[DEVOLVERFILME]<-"DISPONIVEL"
            
         FIMSE
         FIMREPITA
         FIMPROCEDIMENTO


         INICIO

         MENUPRINCIPAL
         inicio

         escreval("ENTER PARA CONTINUAR")
         leia(Q)
         limpatela
         fimrepita
      fimalgoritmo