Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marlonbrito

para i de 0 ate 0 faca repita //cadastra no

Recommended Posts

pessoal estou criando um algorítimo para a conclusão da materia de introdução a programação só que estou na minha primeira tela e ja estou confuso :(

esta dando erro no fim algorítimo. estou esquecendo algo?

segue código portugol do visualg

algoritmo "semnome"

// Função :
// Autor :
// Data : 07/03/2015
// Seção de Declarações
var
nome,data,se xo,civil:vetor [0..49] de caractere
filho:vetor [0..49] de inteiro
cpf:vetor [0..49] de real
resp:caractere
func,i:inteiro
cpfcliente:real
 
inicio
// Seção de Comandos
enquanto (func <> 9)   faca
 
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                                        MENU                                    |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL ("|                    1. Gerenciar Cliente                                        |")
   ESCREVAL ("|                    2. Gerar Relatório                                          |")
   ESCREVAL ("|                    9. SAIR                                                     |")
   ESCREVAL ("|                                                                                |")
   ESCREVAL ("----------------------------------------------------------------------------------")
   ESCREVAL(" ")
   ESCREVA("DIGITE A OPÇÃO DESEJADA: ")
   leia(func)
   escolha func
 
   caso 1
      LIMPATELA
      ESCREVAL ("----------------------------------------------------------------------------------")
      ESCREVAL ("|                                        MENU                                    |")
      ESCREVAL ("----------------------------------------------------------------------------------")
      ESCREVAL ("|                    1. Inserir Dados do Cliente                                 |")
      ESCREVAL ("|                    2. Alterar Dados do Cliente                                 |")
      ESCREVAL ("|                    3. excluir cliente                                          |")
      ESCREVAL ("|                                                                                |")
      ESCREVAL ("----------------------------------------------------------------------------------")
      ESCREVAL(" ")
      ESCREVA("DIGITE A OPÇÃO DESEJADA: ")
      leia(func)
      escolha(func)
      caso 1
 
         para i de 0 ate 49 faca
            repita
               //cadastra nomes
               se nome[i]<>"" entao
                  i<-i+1
               fimse
            ate nome[i]=""
            fimrepita
            escreval("digite o nome")
            leia (nome[i])
            //cadastra ---o
            repita
               se se xo[i]<>"" entao
                  i<-i+1
               fimse
            ate se xo[i]="" //forum não permite nome ---o kkk
            fimrepita
            escreval("digite o se xo Masculino ou Feminino")
            leia (se xo[i])
            //cadastra data de nascimento
            repita
               se data[i]<>"" entao
                  i<-i+1
               fimse
            ate data[i]=""
            fimrepita
            escreval("digite a data de nascimento do cliente no formato XX/XX/XXX")
            escreval("(adicionar barra para separar a o dia mes e ano)")
            leia (data[i])
            //cadastra estado civil
            repita
               se civil[i]<>"" entao
                  i<-i+1
               fimse
            ate civil[i]=""
            fimrepita
            escreval("digite o estado civil")
            escreval("(casado(a),solteiro(a),viúvo(a),divorciado(a))")
            leia (civil[i])
            //cadastra CPF
            repita
               se cpf[i]<>0 entao
                  i<-i+1
               fimse
            ate cpf[i]=0
            fimrepita
            escreval("digite o CPF do cliente sem pontos ou tracos")
            leia (cpf[i])
            //cadastra numero de filhos
         repita
          se filho[i]<>0 entao
                i<-i+1
              fimse
            ate filho[i]=0
           fimrepita
            escreval("digite a quantidade de filhos do cliente")
            leia (filho[i])
//depois de preencher o ultimo dado da erro
            fimrepita
         fimpara
 
 
      caso 2
         repita
            escreval("digite o cpf do cliente que deseja alterar:")
            leia(cpfcliente)
            repita
               para i de 0 ate 49 faca
                  se cpfcliente= cpf[i] entao
                     escreval("cliente encontrado no slot: ",i)
                  ate cpfcliente=cpf[i]
               fimpara
               fimrepita
 
            caso 3
 
            caso 2
 
               limpatela
               ESCREVAL ("----------------------------------------------------------------------------------")
               ESCREVAL ("|                                        MENU                                    |")
               ESCREVAL ("----------------------------------------------------------------------------------")
               ESCREVAL ("| 1. Relatório de Clientes Aniversariantes de  um mês (informado pelo usuário)   |")
               ESCREVAL ("| 2. Relatório de Clientes pela faixa etária                                     |")
               ESCREVAL ("| 3. Relatório de Clientes pelo ---o e idade (informado pelo usuário)            |")
               ESCREVAL ("| 4. Relatório de Clientes pelo Estado Civil e ---o                              |")
               ESCREVAL ("| 5. Relatório de Clientes pelo Estado Civil e Quantidade de Filhos              |")
               ESCREVAL ("| 6. Relatório Geral de todos os Clientes                                        |")
               ESCREVAL ("|                                                                                |")
               ESCREVAL ("----------------------------------------------------------------------------------")
               ESCREVAL(" ")
               ESCREVA("DIGITE A OPÇÃO DESEJADA: ")
               leia(func)
               escolha (func)
               caso 1
               caso 2
                  limpatela
                  ESCREVAL ("----------------------------------------------------------------------------------")
                  ESCREVAL ("|                                        MENU                                    |")
                  ESCREVAL ("----------------------------------------------------------------------------------")
                  ESCREVAL ("|                    1. 18~25 – Jovens                                           |")
                  ESCREVAL ("|                    2. 26~55 – Adultos                                          |")
                  ESCREVAL ("|                    3. 56+   - Idosos                                           |")
                  ESCREVAL ("|                                                                                |")
                  ESCREVAL ("----------------------------------------------------------------------------------")
                  ESCREVAL(" ")
                  ESCREVA("DIGITE A OPÇÃO DESEJADA: ")
                  leia(func)
                  escolha(func)
                     escolha
                     caso 1
                     caso 2
                     caso 3
 
                     caso 3
                     caso 4
                     caso 5
                     caso 6
                     fimescolha
 
                  caso 9
                     escreval("    OBRIGADO POR UTILIZAR NOSSO SISTEMA    ")
                  
 
                  outrocaso
                     limpatela
                     escreval("OPÇÃO INVALIDA")
                     ESCREVAL("DIGTE UM NUMERO DE 1 A 4 OU 5 PARA SAIR")
 
                  fimescolha
 
               fimenquanto
            fimalgoritmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

que erro?

cole a mensagem de erro aqui

que erro?

cole a mensagem de erro aqui

esperava encontrar fimalgoritimo

O fim do algoritmo foi encontrado inesperadamente.

 

 

alguma luz amigos? :kiss: kk

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.