Thiago Biagioni

Eu ainda nao consegui executar da maneira como queria. @devair1010 fiz com o enquanto mas ele conta a data de nascimento=0 na hora dos cálculos. Tentei executar esse algoritmo que você modificou mas nao consegui também. @Simon Viegas ainda não

Pessoal olá. To tentando fazer um algoritmo no VisualG 3 para armazenar dados dos motoristas e depois apresentar as porcentagens de mulheres, de maiores de 25 anos, etc. O algoritmo que fiz está rodando normalmente só que eu preciso que quando o usuário colocar o ano de nascimento do motorista igual a zero o algoritmo se encerre e apresente os dados até ali coletados. O enunciado da questão é esse : O Departamento de Trânsito de Itajubá compilou dados de acidentes de trânsito na cidade no último ano. Para cada motorista envolvido num acidente, os seguintes dados foram registrados: ano de nascimento do motorista, sexo ('M' ou 'F'), código de registro (1 para Itajubá e 0 para outras Cidades). Escrever um algoritmo para ler este conjunto de dados para vários motoristas (mínimo 10) e depois imprimir as seguintes estatísticas: a) Percentagem de motoristas com menos de 25 anos b)Percentagem de mulheres c) Percentagem de motoristas maiores de 18 anos, mas menores de 25 anos d) Percentagem de motoristas com registro feito fora de Itajubá. OBS: Um ano de nascimento igual a 0 indica o fim dos dados para o algoritmo. utilize Vetor de Registros (Use VISAULG 3) ** eu coloquei numero de motoristas = 3 apenas pra ficar mais fácil de testar. Algoritmo "Dep. de Transito" tipo transito = registro nascimento: inteiro sexo: caractere codigo: inteiro fimregistro Var motorista : vetor [1..3] de transito Faixa1,Faixa2,Mulher,Homem,Itajuba, Outra, Totalcodigo: Inteiro Pum, Pdois, Ptres, Pquatro, Pcinco, Pseis : real x,i : inteiro Inicio Escreval("DEPARTAMENTO DE TRÂNSITO DE ITAJUBÁ-MG") Escreval ("Cadastro dos Motoristas") para x de 1 ate 3 faca Repita escreva("Ano de nascimento: ") leia(motorista[x].nascimento) ate (motorista[x].nascimento = 0) ou (motorista[x].nascimento <=1999) Repita escreva("Sexo (M p/ Homem e F p/ Mulher): ") leia(motorista[x].sexo) ate (motorista[x].sexo = "M") ou (motorista[x].sexo = "F") Repita escreva("Código da cidade (0 ou 1): ") leia(motorista[x].codigo) ate (motorista[x].codigo = 1) ou (motorista[x].codigo = 0) escreval(" ") fimpara // Verificando as faixas de idades Para x de 1 ate 3 Faca Se motorista[x].nascimento <= 1995 então Faixa1 <- Faixa1 + 1 Fimse Se (motorista[x].nascimento > 1995) e (motorista[x].nascimento <= 1999) então Faixa2 <- Faixa2 + 1 Fimse Se motorista[x].sexo = "F" então Mulher <- Mulher + 1 Fimse Se motorista[x].sexo = "M" então Homem <- Homem + 1 Fimse Se motorista[x].codigo = 1 então Itajuba <- Itajuba + 1 Fimse Se motorista[x].codigo = 0 então Outra <- Outra + 1 Fimse Totalcodigo <- Itajuba + Outra Pum <- (Faixa1*100)/Totalcodigo Pdois <- (Faixa2*100)/Totalcodigo Ptres <- (Mulher*100)/Totalcodigo Pquatro <- (Homem*100)/Totalcodigo Pcinco <- (Itajuba*100)/Totalcodigo Pseis <- (Outra*100)/Totalcodigo Fimpara // MOSTRA NA TELA LIMPATELA Escreval("Motoristas maiores de 25 anos: ", Pum:5:2, " %") Escreval("Motoristas entre 18 e 25 anos: ", Pdois:5:2, " %") Escreval("Motoristas Mulheres: ", Ptres:5:2, " %") //Escreval("Motoristas Homens: ", Pquatro:5:2, " %") //Se caso necessitasse da porcentagem de homens. //Escreval("Motoristas de Itajuba: ", Pcinco:5:2, " %") //Se caso necessitasse da porcentagem de itajuba. Escreval("Motoristas com registro fora de Itajubá: ", Pseis:5:2, " %") Fimalgoritmo

Boa tarde estou tentando fazer um registro no Visualg mas não estou obtendo respostas do programa, quero saber o que estou fazendo de errado. Obrigado desde já. Algoritmo "a" TIPO // Seção de Declarações de Tipos Reg_Endereco = registro Rua, Cidade, UF: caractere No, CEP: inteiro fimregistro Registro_Pagamento = registro NOME, RG: caractere CPF: caractere //HT: vetor[0..5] de inteiro HT1, HT2, HT3, HT4, HT5, HT6 : real SALARIO: real //ENDERECO: Reg_Endereco Rua, Cidade, UF: caractere No, CEP: inteiro fimregistro VAR i: inteiro fun1, fun2: Registro_Pagamento HT: vetor [0..5] de real INICIO Escreva("Entre o NOME do empregado (ate 30 caracteres):") Leia(fun1.NOME) Escreva("Entre com o CPF do empregado (11 dígitos): ") Leia(fun1.CPF) Escreva("Entre com o RG do empregado (ate 10 caracteres): ") Leia(fun1.RG) Para i de 0 ate 5 passo 1 faca Escreva("Entre as horas trabalhadas na semana dia[",i,"]":) Leia(HT[ i ]) fimpara fun1.HT1 <- HT[ 0 ] fun1.HT2 <- HT[ 1 ] fun1.HT3 <- HT[ 2 ] fun1.HT4 <- HT[ 3 ] fun1.HT5 <- HT[ 4 ] fun1.HT6 <- HT[ 5 ] Escreva("Entre o salario: ") Leia(fun1.SALARIO) Escreva("Entre com a rua (20 caracteres): ") Leia( fun1.Rua) Escreva("Entre com a cidade (15 caracteres): ") Leia( fun1.Cidade) Escreva("Entre com o UF (2 caracteres): ") Leia( fun1.UF) Escreva("Entre com o numero: ") Leia(fun1.No) Escreva("Entre com o CEP: ") Leia(fun1.CEP) fun2 <- fun1 Limpatela Escreval ("Nome: ":15, fun2.NOME) Escreval ("Cpf: ":15, fun2.CPF) Escreval ("Rg:":15, fun2.RG) Escreval("HT[1]: ":15, fun2.HT1) Escreval("HT[2]: ":15, fun2.HT2) Escreval("HT[3]: ":15, fun2.HT3) Escreval("HT[4]: ":15, fun2.HT4) Escreval("HT[5]: ":15, fun2.HT5) Escreval("Salario Hora = ":15, fun2.SALARIO) Escreva ("Rua: ":15, fun2.Rua) Escreva ("No: ":15, fun2.No) Escreva ("CEP: ":15, fun2.CEP) Escreva ("Cidade: ":15, fun2.Cidade) Escreva ("UF: ":15, fun2.UF) Fimalgoritmo