Preciso de ajuda no código a seguir.por favor...

[Rambo7725]

Segue abaixo as especificações .. e meu código feito , gostaria de ajuda para o mesmo ler os 3 módulos juntos.

Módulo administrador

Solicitar o login e senha do administrador (validar o login “adm” e a senha “adm”)

Apresentar o seguinte menu:

Exibir todos os clientes cadastrados

Buscar um cliente por nome

 

 

 

 

Módulo cliente:

 

Exibir o seguinte menu para o cliente:

Cadastrar cliente (nome, cpf, senha)

Alterar dados do cliente (o cliente poderá alterar apenas seus dados)

se ele selecionar alterar dados, é necessário informar o cpf e a senha

 

 

Módulo restaurante:

 

Solicitar que o cliente digite seu cpf e senha. Verificar se ele já está cadastrado.

Caso esteja

Apresentar o menu (cardápio)

Permitir que o cliente compre quantos itens desejar

Permitir que o cliente digite a quantidade de cada item que deseja comprar

Imprimir o cupom fiscal (Itens comprados, quantidade de itens, valor de

cada item, total de cada i

tem e valor total da nota).

 

 

 

 

algoritmo "GERAL +"
//
// PROFESSORA :
// EQUIPE :
//
//
var
opc,qtdtotal,qtdtotala,qtdtotalb,qtdtotalc,qtdtotald,qtdtotale,qtdtotalf,qtdtotalg,qtdtotalh,qtdtotali,qtdtotalj,qtda,qtdb,qtdc,qtdd,qtde,qtdf,qtdg,qtdh,qtdi,qtdj:inteiro
total,vltotala,vltotalb,vltotalc,vltotald,vltotale,vltotalf,vltotalg,vltotalh,vltotali,vltotalj:real

nome, senha,senhareal,cpfreal, cpf, nomealt, senhaalt, cpfalt: CARACTER
opccad, opcalt: INTEIRO
ITEM:INTEIRO

procedimento menu ()

var

inicio
Escreval ("|-----------------------------------------------|")
Escreval ("|  Digite uma das opções a seguir:              |")
Escreval ("|-----------------------------------------------|")
Escreval ("| Cadastro               ->    Digite 1         |")
Escreval ("| Alterações de Cadastro ->    Digite 2         |")
Escreval ("| Para ir Menu           ->    Digite 3         |")
Escreval ("|-----------------------------------------------|")
fimprocedimento

procedimento cardapio()

var

inicio
Escreval ("---------------------------------------")
Escreval ("               MENU                    ")
Escreval ("---------------------------------------")
Escreval ("1- Pipoca Doce                  R$:4.00")
Escreval ("2- Coxinha                      R$:4.50")
Escreval ("3- Risoles                      R$:4.00")
Escreval ("4- Croassants                   R$:6.00")
Escreval ("5- Churros                      R$:7.50")
Escreval ("6- Coquetel misto               R$:9.00")
Escreval ("7- Sanduiche Natural            R$:7.00")
Escreval ("_______________________________________")
Escreval ("8- Água                         R$:2.50")
Escreval ("9- Cha Mate Leão                R$:3.00")
Escreval ("10- Refrigerante Lata           R$:3.50")
Escreval ("0- Finalizar pedido                    ")
ESCREVAL("----------------------------------------")
fimprocedimento

inicio
Escreval ("|#######################################|")
Escreval ("|              CADASTRO                 |")
Escreval ("|#######################################|")

Repita
   menu ()
Leia (opccad)

se ((opccad < 1 ) ou ( opccad > 3)) então
      Escreval ("Tente novamente")
fimse

Se (opccad = 1) então
      Escreval ("Digite seu nome completo.")
      Leia (nome)
      Escreval ("Digite seu CPF.")
      Leia (cpf)
      Escreval ("Digite sua senha.")
      Leia (senha)
fimse

se (opccad = 2) então
      repita
      Escreval ("Para realizar a alteração no seu cadastro, informe:")
      Escreval ("Digite seu CPF")
      Leia (cpfreal)
      Escreval ("Digite sua senha")
      Leia (senhareal)
      se ((cpf <> cpfreal) ou (senha <> senhareal)) então
      escreval ("Credenciais inválidas, tente novamente." )

fimse

      ate ((cpf = cpfreal) e (senha = senhareal))
      Escreval ("Digite o Código do Dado a ser Alterado")
      Escreval ("Nome  - Digite 10")
      Escreval ("CPF   - Digite 20")
      Escreval ("Senha - Digite 30")
      Leia (opcalt)

se (opcalt = 10) então
         Escreval ("Informe o Nome Desejado")
         Leia (nomealt)
         Escreval ("O Nome do Cadastro foi Alterado com Sucesso.")

fimse

se (opcalt = 20) então
         Escreval ("Informe o CPF Desejado")
         Leia (cpfalt)
         Escreval ("O CPF do Cadastro foi Alterado com Sucesso.")

fimse

se (opcalt = 30) então
         Escreval ("Informe a Senha Desejada")
         Leia (senhaalt)
         Escreval ("A Senha do Cadastro foi Alterada com Sucesso.")

fimse

fimse

se  (opccad = 3) então
     repita
     Escreval ("Para Prosseguir ao Cardápio, Informe: ")
     Escreval ("Seu CPF: ")
     leia (cpfreal)
     Escreval ("Sua Senha:")
     leia (senhareal)
     ate ((cpf = cpfreal) e (senha = senhareal))

fimse

    ate (opccad = 3)
    repita
    cardapio()
    Escreval(" DIGITE O NUMERO DO ITEM DESEJADO")
      leia(item)
    Escreval(" DIGITE A QUANTIDADE             ")
    LEIA (QTDE)
    escreval(" PARA FINALIZAR DIGITE 0         ")
    LEIA(opc)

se opc=1 então
   leia (qtda)
   qtdtotala<-(qtdtotala+qtda)
   qtdtotal<-(qtdtotal+qtdtotala)
   vltotala<-(vltotala+(4*qtdtotala))
   total<-(total+vltotala)
senao

se  opc=2 então
    leia (qtdb)
    qtdtotalb<-(qtdtotalb+qtdb)
    qtdtotal<-(qtdtotal+qtdtotalb)
    vltotalb<-(vltotalb+(4.50*qtdtotalb))
    total<-(total+vltotalb)
senao

se opc=3 então
    leia(qtdc)
    qtdtotalc<-(qtdtotalc+qtdc)
    qtdtotal<-(qtdtotal+qtdtotalc)
    vltotalc<-(vltotalc+(4.00*qtdtotalc))
    total<-(total+vltotalc)
    senao

se opc=4 então
     leia(qtdd)
     qtdtotald<-(qtdtotald+qtdd)
     qtdtotal<-(qtdtotal+qtdtotald)
     vltotald<-(vltotald+(6.00*qtdtotald))
     total<-(total+vltotald)
senao

se opc=5 então
      leia(qtde)
      qtdtotale<-(qtdtotale+qtde)
      qtdtotal<-(qtdtotal+qtdtotale)
      vltotale<-(vltotale+(7.50*qtdtotale))
      total<-(total+vltotale)
senao

se opc=6 então
       leia(qtdf)
       qtdtotalf<-(qtdtotalf+qtdf)
       qtdtotal<-(qtdtotal+qtdtotalf)
       vltotalf<-(vltotalf+(9.00*qtdtotalf))
       total<-(total+vltotalf)
senao

se opc=7 então
        leia(qtdg)
        qtdtotalg<-(qtdtotalg+qtdg)
        qtdtotal<-(qtdtotal+qtdtotalg)
        vltotalg<-(vltotalg+(7.00*qtdtotalg))
        total<-(total+vltotalg)
senao

se opc=8 então
         leia(qtdh)
         qtdtotalh<-(qtdtotalh+qtdh)
         qtdtotal<-(qtdtotal+qtdtotalh)
         vltotalh<-(vltotalh+(2.50*qtdtotalh))
         total<-(total+vltotalh)

senao

se opc=9 então
          leia(qtdi)
          qtdtotali<-(qtdtotali+qtdi)
          qtdtotal<-(qtdtotal+qtdtotali)
          vltotali<-(vltotali+(3.00*qtdtotali))
          total<-(total+vltotali)

senao

se opc=10 então
           leia(qtdj)
           qtdtotalj<-(qtdtotalj+qtdj)
           qtdtotal<-(qtdtotal+qtdtotalj)
           vltotalj<-(vltotalj+(3.50*qtdtotalj))
           total<-(total+vltotalj)
senao
           escreval("DIGITE UM VALOR VÁLIDO")
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

ate opc=0

escreval("ITEMS:   1 ->     2 ->   3  ->     4 ->      5 ->     6 ->    7 ->      8 ->    9 ->     10  ")
escreval("PREÇO:R$4.00 - R$4.50 - R$4.00 - R$6.00 - R$7.50 - R$9.00 - R$7.00 - R$2.50 - R$3.00 - R$3.50")
escreval("QTD COMPRADA:    ",qtdtotala,"---",qtdtotalb,"---",qtdtotalc,"---",qtdtotald,"---",qtdtotale,"---",qtdtotalf,"---",qtdtotalg,"---",qtdtotalh,"---",qtdtotali,"---",qtdtotalj)
escreval("VALOR TOTAL ITEM:",vltotala,"---",vltotalb,"---",vltotalc,"---",vltotald,"---",vltotale,"---",vltotalf,"---",vltotalg,"---",vltotalh,"---",vltotali,"---",vltotalj)
escreval("TOTAL DA COMPRA:",total,"--QUANTIDADE TOTAL COMPRADA:",QTDTOTAL)

    
   
 

 

fimalgoritmo