Skip to main content
adicionou 266 caracteres ao conteúdo
Fonte Link
Jéf Bueno
  • 69,8mil
  • 22
  • 134
  • 244

O que há de errado com o código? Erro: Nome duplicado para procedimento ou função

Eu estou treinando o uso de procedimentos no VisualG e queria saber porque o código abaixo apresenta o erro: "Nome duplicado para procedimento ou função: 'SEXO'".

"Nome duplicado para procedimento ou função: 'SEXO'".

Relembrando, o objetivo principal não é otimizar o código, e sim saber o motivo do erro. Só coloquei um único procedimento 'Sexo', porém o VisualG insiste que o nome está duplicado. Agradeço desde já pelo apoio.

algoritmo "Seletor de Selecionados" // Função : Selecionar selecionados, óbvio // Autor : Rodrigo Matos Aguiar // Data : 16/10/2016 // Seção de Declarações var Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas Procedimento Final(A, B: Inteiro) inicio EscrevaL("---------------") EscrevaL("Resultado Final") EscrevaL("---------------") EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS) EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS) FimProcedimento Procedimento Cabelo inicio EscrevaL("Qual a cor de cabelo?") EscrevaL("---------------------") EscrevaL("[1] Preto ") EscrevaL("[2] Castanho ") EscrevaL("[3] Louro ") EscrevaL("[4] Ruivo ") FimProcedimento Procedimento Sexo (var A, B: Inteiro) var C: Caractere inicio EscrevaL("Qual o sexo? [M][F] ") Leia(C) Escolha C Caso "M" A <- 1 Caso "F" B <- 1 FimEscolha FimProcedimento inicio // Seção de Comandos Repita EscrevaL("-----------------------") EscrevaL("Seletor de Selecionados") EscrevaL("-----------------------") Procedimento Sexo (ContM, ContF) EscrevaL("Qual a idade? ") Leia(Id) Se (Id > 18) entao ContM <- ContM + 1 FimSe Se (Id > 25) e (Id < 30) entao ContF <- ContF + 1 FimSe Procedimento Cabelo Leia(CorC) Escolha CorC Caso 2 ContM <- ContM + 1 Caso 3 ContF <- ContF + 1 FimEscolha Se (ContM = 3) entao HS <- HS + 1 FimSe Se (ContF = 3) entao MS <- MS + 1 FimSe EscrevaL("Quer continuar? [S][N] ") Leia(Rep) Ate (Rep = "N") Procedimento Final(HS, MS) fimalgoritmo

algoritmo "Seletor de Selecionados"
// Função :  Selecionar selecionados, óbvio
// Autor :  Rodrigo Matos Aguiar
// Data : 16/10/2016
// Seção de Declarações 
var
   Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir
   Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino
   // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas
Procedimento Final(A, B: Inteiro)
inicio
      EscrevaL("---------------")
      EscrevaL("Resultado Final")
      EscrevaL("---------------")
      EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS)
      EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS)
FimProcedimento
Procedimento Cabelo
inicio
      EscrevaL("Qual a cor de cabelo?")
      EscrevaL("---------------------")
      EscrevaL("[1] Preto            ")
      EscrevaL("[2] Castanho         ")
      EscrevaL("[3] Louro            ")
      EscrevaL("[4] Ruivo            ")
FimProcedimento
Procedimento Sexo (var A, B: Inteiro)
var C: Caractere
inicio
      EscrevaL("Qual o sexo? [M][F] ")
      Leia(C)
      Escolha C
              Caso "M"
                   A <- 1
              Caso "F"
                   B <- 1
      FimEscolha
FimProcedimento
inicio
// Seção de Comandos
Repita
   EscrevaL("-----------------------")
   EscrevaL("Seletor de Selecionados")
   EscrevaL("-----------------------")
   Procedimento Sexo (ContM, ContF)
   EscrevaL("Qual a idade? ")
   Leia(Id)
   Se (Id > 18) entao
      ContM <- ContM + 1
   FimSe
   Se (Id > 25) e (Id < 30) entao
      ContF <- ContF + 1
   FimSe
   Procedimento Cabelo
   Leia(CorC)
   Escolha CorC
          Caso 2
               ContM <- ContM + 1
          Caso 3
               ContF <- ContF + 1
   FimEscolha
   Se (ContM = 3) entao
      HS <- HS + 1
   FimSe
   Se (ContF = 3) entao
      MS <- MS + 1
   FimSe
   EscrevaL("Quer continuar? [S][N] ")
   Leia(Rep)
Ate (Rep = "N")
    Procedimento Final(HS, MS)
    fimalgoritmo

O que há de errado com o código?

Eu estou treinando o uso de procedimentos no VisualG e queria saber porque o código abaixo apresenta o erro: "Nome duplicado para procedimento ou função: 'SEXO'". Relembrando, o objetivo principal não é otimizar o código, e sim saber o motivo do erro. Só coloquei um único procedimento 'Sexo', porém o VisualG insiste que o nome está duplicado. Agradeço desde já pelo apoio.

algoritmo "Seletor de Selecionados" // Função : Selecionar selecionados, óbvio // Autor : Rodrigo Matos Aguiar // Data : 16/10/2016 // Seção de Declarações var Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas Procedimento Final(A, B: Inteiro) inicio EscrevaL("---------------") EscrevaL("Resultado Final") EscrevaL("---------------") EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS) EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS) FimProcedimento Procedimento Cabelo inicio EscrevaL("Qual a cor de cabelo?") EscrevaL("---------------------") EscrevaL("[1] Preto ") EscrevaL("[2] Castanho ") EscrevaL("[3] Louro ") EscrevaL("[4] Ruivo ") FimProcedimento Procedimento Sexo (var A, B: Inteiro) var C: Caractere inicio EscrevaL("Qual o sexo? [M][F] ") Leia(C) Escolha C Caso "M" A <- 1 Caso "F" B <- 1 FimEscolha FimProcedimento inicio // Seção de Comandos Repita EscrevaL("-----------------------") EscrevaL("Seletor de Selecionados") EscrevaL("-----------------------") Procedimento Sexo (ContM, ContF) EscrevaL("Qual a idade? ") Leia(Id) Se (Id > 18) entao ContM <- ContM + 1 FimSe Se (Id > 25) e (Id < 30) entao ContF <- ContF + 1 FimSe Procedimento Cabelo Leia(CorC) Escolha CorC Caso 2 ContM <- ContM + 1 Caso 3 ContF <- ContF + 1 FimEscolha Se (ContM = 3) entao HS <- HS + 1 FimSe Se (ContF = 3) entao MS <- MS + 1 FimSe EscrevaL("Quer continuar? [S][N] ") Leia(Rep) Ate (Rep = "N") Procedimento Final(HS, MS) fimalgoritmo

Erro: Nome duplicado para procedimento ou função

Eu estou treinando o uso de procedimentos no VisualG e queria saber porque o código abaixo apresenta o erro:

"Nome duplicado para procedimento ou função: 'SEXO'".

Relembrando, o objetivo principal não é otimizar o código, e sim saber o motivo do erro. Só coloquei um único procedimento 'Sexo', porém o VisualG insiste que o nome está duplicado.

algoritmo "Seletor de Selecionados"
// Função :  Selecionar selecionados, óbvio
// Autor :  Rodrigo Matos Aguiar
// Data : 16/10/2016
// Seção de Declarações 
var
   Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir
   Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino
   // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas
Procedimento Final(A, B: Inteiro)
inicio
      EscrevaL("---------------")
      EscrevaL("Resultado Final")
      EscrevaL("---------------")
      EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS)
      EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS)
FimProcedimento
Procedimento Cabelo
inicio
      EscrevaL("Qual a cor de cabelo?")
      EscrevaL("---------------------")
      EscrevaL("[1] Preto            ")
      EscrevaL("[2] Castanho         ")
      EscrevaL("[3] Louro            ")
      EscrevaL("[4] Ruivo            ")
FimProcedimento
Procedimento Sexo (var A, B: Inteiro)
var C: Caractere
inicio
      EscrevaL("Qual o sexo? [M][F] ")
      Leia(C)
      Escolha C
              Caso "M"
                   A <- 1
              Caso "F"
                   B <- 1
      FimEscolha
FimProcedimento
inicio
// Seção de Comandos
Repita
   EscrevaL("-----------------------")
   EscrevaL("Seletor de Selecionados")
   EscrevaL("-----------------------")
   Procedimento Sexo (ContM, ContF)
   EscrevaL("Qual a idade? ")
   Leia(Id)
   Se (Id > 18) entao
      ContM <- ContM + 1
   FimSe
   Se (Id > 25) e (Id < 30) entao
      ContF <- ContF + 1
   FimSe
   Procedimento Cabelo
   Leia(CorC)
   Escolha CorC
          Caso 2
               ContM <- ContM + 1
          Caso 3
               ContF <- ContF + 1
   FimEscolha
   Se (ContM = 3) entao
      HS <- HS + 1
   FimSe
   Se (ContF = 3) entao
      MS <- MS + 1
   FimSe
   EscrevaL("Quer continuar? [S][N] ")
   Leia(Rep)
Ate (Rep = "N")
    Procedimento Final(HS, MS)
    fimalgoritmo
Fonte Link
Gibas
  • 119
  • 6

O que há de errado com o código?

Eu estou treinando o uso de procedimentos no VisualG e queria saber porque o código abaixo apresenta o erro: "Nome duplicado para procedimento ou função: 'SEXO'". Relembrando, o objetivo principal não é otimizar o código, e sim saber o motivo do erro. Só coloquei um único procedimento 'Sexo', porém o VisualG insiste que o nome está duplicado. Agradeço desde já pelo apoio.

algoritmo "Seletor de Selecionados" // Função : Selecionar selecionados, óbvio // Autor : Rodrigo Matos Aguiar // Data : 16/10/2016 // Seção de Declarações var Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas Procedimento Final(A, B: Inteiro) inicio EscrevaL("---------------") EscrevaL("Resultado Final") EscrevaL("---------------") EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS) EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS) FimProcedimento Procedimento Cabelo inicio EscrevaL("Qual a cor de cabelo?") EscrevaL("---------------------") EscrevaL("[1] Preto ") EscrevaL("[2] Castanho ") EscrevaL("[3] Louro ") EscrevaL("[4] Ruivo ") FimProcedimento Procedimento Sexo (var A, B: Inteiro) var C: Caractere inicio EscrevaL("Qual o sexo? [M][F] ") Leia(C) Escolha C Caso "M" A <- 1 Caso "F" B <- 1 FimEscolha FimProcedimento inicio // Seção de Comandos Repita EscrevaL("-----------------------") EscrevaL("Seletor de Selecionados") EscrevaL("-----------------------") Procedimento Sexo (ContM, ContF) EscrevaL("Qual a idade? ") Leia(Id) Se (Id > 18) entao ContM <- ContM + 1 FimSe Se (Id > 25) e (Id < 30) entao ContF <- ContF + 1 FimSe Procedimento Cabelo Leia(CorC) Escolha CorC Caso 2 ContM <- ContM + 1 Caso 3 ContF <- ContF + 1 FimEscolha Se (ContM = 3) entao HS <- HS + 1 FimSe Se (ContF = 3) entao MS <- MS + 1 FimSe EscrevaL("Quer continuar? [S][N] ") Leia(Rep) Ate (Rep = "N") Procedimento Final(HS, MS) fimalgoritmo