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