joao emilio borges garcia

@devair1010isso mesmo meu amigo ..muito obrigado !

Algoritmo "Material Esportivo" // Função : Criar Algoritmo para Materiais Esportivos // Autor : João Emilio // Data : 20/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis QTnike, QTumbro,QTpuma,QToutros :inteiro clientes :vetor[1..20,1..8] de caractere continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de Clientes possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de clientes cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) Pdp :real PRECOtotal :real taxaAcrescimo :real VALORpagar :real Acresc :real Vacresc :real receber :real j :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-4 //CADASTRO DE Clientes continuar:="s" enquanto (continuar = "S") ou (continuar = "s") faca //APRESENTAÇÃO DO PROGRAMA escreval() escreval("================================") escreval(" JE Materiais Esportivos ") escreval("================================") escreval() quant:=quant+1 escreva("Nome do Cliente.........: ") leia(Clientes[quant,1]) escreva("Descrição do Produto....: ") leia(Clientes[quant,2]) escreval("(< NIKE/UMBRO/PUMA >)") escreva("Marca do Produto........: ") leia(Clientes[quant,3]) escreva("Quantidade Comprada.....: ") leia(Clientes[quant,4]) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Cliente ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Clientes... Tecle Enter") leia(continuar) continuar:="n" fimse limpatela fimenquanto //Variáveis Zeradas limpatela cont<-0 para i de 1 ate quant faca //Exibição dos resultados escreval() cont:=cont+1 escreval("Nome do Cliente -------> ",Clientes[i,1]) escreval("Descrição do Produto --> ",Clientes[i,2]) escreval("Marca do Produto ------> ",Clientes[i,3]) escreval("Quantidade Comprada ---> ",Clientes[i,4]) //Cálculo dos Produtos se (Clientes[i,2]="tenis") e (Clientes[i,3]="nike") então Pdp <- 300 Escreval("PREÇO DO TÊNIS NIKE- -------> R$ 300,00") taxaAcrescimo<- 0.05 //Cálculo do Acréscimo senao se (Clientes[i,2]="bola") e (Clientes[i,3]="umbro") então Pdp <- 50 Escreval("PREÇO DA BOLA UMBRO --------> R$ 50,00") taxaAcrescimo<- 0.03 //Cálculo do Acréscimo senao se (Clientes[i,2]="camiseta") e (Clientes[i,3]="puma") então Pdp <- 80 Escreval("PREÇO DA CAMISETA PUMA -----> R$ 80,00") //Contador da Camiseta taxaAcrescimo<- 0.01 //Cálculo do Acréscimo senao Pdp <- 0 Escreval("**PRODUTO NÃO CADASTRADO** ") taxaAcrescimo<- 0 fimse fimse fimse se (Clientes[i,3]="nike") então QTnike:=QTnike+1 //Contador de Produtos Nike senao se (Clientes[i,3]="umbro") então QTumbro:=QTumbro+1 //Contador de Produtos Umbro senao se (Clientes[i,3]="puma") então QTpuma:=QTpuma+1 //Contador de Produtos PUMA senao QToutros:=QToutros+1 //Contador de Outros Produtos fimse fimse fimse //Cálculos PRECOtotal <- (caracpnum(Clientes[i,4])*Pdp) //Cálculo do Preço Total Acresc<-(PRECOtotal*taxaAcrescimo) //CAlculo De Acréscimo VALORpagar <-(PRECOtotal+Acresc) //Cálculo Valor a Pagar //Exibe o Preçototal/Valor do Acréscimo/Valor a Pagar escreval("Preço Total dos Produtos ---> R$ ",PRECOtotal:3:2) escreval("Valor do Acréscimo ---------> R$ ",Acresc:3:2) escreval("Valor a Pagar de -----------> R$ ",VALORpagar:3:2) receber<-(receber+valorpagar) //CálculA o Valor que a Loja Tem a Receber Vacresc<-Vacresc+ Acresc //Calcula o Valor De ACRÉSCIMO que a Loja Tem a Receber fimpara //TOTAL escreval() escreval("======================================") escreval("Total de Produtos NIKE Vendidos ------> ",QTnike) escreval("Total de Produtos UMBRO Vendidos -----> ",QTumbro) escreval("Total de Produtos PUMA Vendidos ------> ",QTpuma) escreval("Total de OUTROS Produtos Vendidos ---> ",QToutros) escreval() escreval("Valor Total recebido com Acréscimo ---> R$ ",Vacresc:3:2) escreval("Valor Total recebido Pela LOJA -------> R$ ",receber:3:2) escreval("======================================") fimalgoritmo adicionado 1 minuto depois Algoritmo “Algo35_Loja material esportivo” Criar um algoritmo para uma loja de material esportivo Receber na tela: Ø Nome do cliente Ø Descrição do produto Ø Marca do produto Ø Quantidade vendida Mostrar o preço do produto de acordo com a descrição e a marca, conforme abaixo: Descrição “tênis” marca “Nike” = R$300,00 Descrição “Bola” marca “Umbro” = R$50,00 Descrição “Camiseta” marca “Puma” = R$80,00 Obs: Outros produtos, mostrar a mensagem “Produto não cadastrado” Calcular o preço total (QU*PUP) Ø Mostrar o preço total Calcular um acréscimo sobre o preço total, de: 5% para produtos da marca com “Nike” 3% para produtos da marca com “Umbro” 1% para produtos da marca com “Puma” Ø Mostrar valor do acréscimo Ø Mostrar valor a pagar Mostrar no final: Ø Quantidade total de produtos da marca “Nike” vendidos Ø Quantidade total de produtos da marca “Umbro” vendidos Ø Quantidade total de produtos da marca “Puma” vendidos Ø Valor total (em dinheiro) recebido com acréscimo Ø Valor total (em dinheiro) recebido pela loja adicionado 3 minutos depois Olá gostaria de saber se Tem algum jeito de eu quando colocar o produto e ele Dar *Não Cadastrado* se nao tem como ele naõ exibir o *Preço Total/Valor do Acréscimo/Valor a Pagar*!!?

A sim entendii..obrigado !

Algoritmo "futebol" // Função : Criar Algoritmo para Futebol // Autor : João Emilio // Data : 18/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis jogadores :vetor[1..20,1..8] de caractere continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de jogadores possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) Maisgoleador :caractere //Exibe o Mais Goleador Maior :real somaAltura :real mediaAltura :real somaPeso :real mediaPeso :real somaIdade :real mediaIdade :real somaGols :real somaJogos :real mediaGols :real somaPassesCorretos :real somaPassesErrados :real mediaPassesCorretos :real mediaPassesErrados :real mediaJogos :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-3 //CADASTRO DE Jogadores continuar:="s" enquanto (continuar = "S") ou (continuar = "s") faca //APRESENTAÇÃO DO PROGRAMA escreval() escreval("================================") escreval("ETEC Prof.Alcídio de Souza Prado") escreval(" FUTEBOL ") escreval("================================") escreval() quant:=quant+1 escreva("Nome do Jogador................: ") leia(jogadores[quant,1]) escreva("Altura do Jogador..............: ") leia(jogadores[quant,2]) escreva("Peso do Jogador................: ") leia(jogadores[quant,3]) escreva("Idade do Jogador...............: ") leia(jogadores[quant,4]) escreva("Número de Jogos................: ") leia(jogadores[quant,5]) escreva("Número de Gols.................: ") leia(jogadores[quant,6]) escreva("Número de Passes Corretos......: ") leia(jogadores[quant,7]) escreva("Número de Passes Errados.......: ") leia(jogadores[quant,8]) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Jogador ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Jogadores... Tecle Enter") leia(continuar) continuar:="n" fimse limpatela fimenquanto //Cálculo de Resultados Maior <- 0 cont<-0 para i de 1 ate quant faca //Exibição dos resultados escreval() cont:=cont+1 escreval("Nome do Jogador ---> ",jogadores[i,1]) escreval("Altura ------------> ",jogadores[i,2], " Metros") escreval("Peso --------------> ",jogadores[i,3], " KG") escreval("Idade -------------> ",jogadores[i,4], " Anos") escreval("Número de Jogos ---> ",jogadores[i,5], " Jogos") escreval("Número de Gols ----> ",jogadores[i,6], " Gols") escreval("Número de Passes Corretos ---> ",jogadores[i,7], " Passes") escreval("Número de Passes Errados ---> ",jogadores[i,8], " Passes") se cont=3 então //Contador de três Pessoas cont:=0 escreval() escreval("Tecle Enter Para Continuar") leia(continuar) fimse //Soma de Variáveis somaAltura <-(caracpnum(jogadores[i,2])+ somaAltura) somaPeso <- (caracpnum(jogadores[i,3]) + somaPeso) somaIdade <- (caracpnum(jogadores[i,4]) + somaIdade) somaGols <- (caracpnum(jogadores[i,6]) + somaGols) somaJogos <- (caracpnum(jogadores[i,5]) + somaJogos) somaPassesCorretos <- (caracpnum(jogadores[i,7]) + somaPassesCorretos) somaPassesErrados <- (caracpnum(jogadores[i,8]) + somaPassesErrados) //Exibe o Jogador Mais Goleador se (caracpnum(jogadores[i,6]) > Maior ) então Maisgoleador <-(jogadores[i,1]) Maior <- (caracpnum(jogadores[i,6])) fimse fimpara mediaAltura <- somaAltura/quant //Média de Altura mediaPeso <- somaPeso/quant //Média de Peso mediaIdade <- somaIdade/quant //Média de Idade mediaGols <- somaGols/somaJogos //Média de Gols Por jogo mediaJogos<- somaJogos/quant //Média de Jogos mediaPassesCorretos <- somaPassesCorretos/quant //Média de Passes Corretos mediaPassesErrados <- somaPassesErrados/quant //Média de Passes Errados //TOTAL escreval() escreval("===================================") escreval("Total DE Jogadores Digitados ------> ",quant) escreval("Média de Altura dos Jogadores -----> ",mediaAltura:1:2, " Metros") escreval("Média de Peso dos Jogadores -------> ",mediaPeso:2, " KG") escreval("Média de Idade dos Jogadores ------> ",mediaIdade:2, " Anos") escreval() escreval("Média de Gols por Jogo ------------> ",mediaGols:2:2, " Gols Por Jogo") escreval("Média de Jogos por Jogador --------> ",mediaJogos:2," Jogos Por Jogador") escreval("Média de Passes Corretos por Jogo -> ",mediaPassesCorretos:2, " Passes Por Jogo") escreval("Média de Passes Errados por Jogo --> ",mediaPassesErrados:2, " Passes Por Jogo") escreval() escreval() escreval("Nome DO JOGADOR MAIS GOLEADOR -----> ",Maisgoleador) escreval("===================================") fimalgoritmo @Simon Viegas Pronto ..não consigo tirar esse MaisGoleador do FimPara não Cara..já tentei diversas vezes aqui!

Algoritmo "futebol" // Função : Criar Algoritmo para Futebol // Autor : João Emilio // Data : 18/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis jogadores :vetor[1..20,1..8] de caractere continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de jogadores possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) Maisgoleador :caractere //Exibe o Mais Goleador Maior :real somaAltura :real mediaAltura :real somaPeso :real mediaPeso :real somaIdade :real mediaIdade :real somaGols :real somaJogos :real mediaGols :real somaPassesCorretos :real somaPassesErrados :real mediaPassesCorretos :real mediaPassesErrados :real mediaJogos :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-3 //CADASTRO DE Jogadores continuar:="s" enquanto (continuar = "S") ou (continuar = "s") faca //APRESENTAÇÃO DO PROGRAMA escreval() escreval("================================") escreval("ETEC Prof.Alcídio de Souza Prado") escreval(" FUTEBOL ") escreval("================================") escreval() quant:=quant+1 escreva("Nome do Jogador................: ") leia(jogadores[quant,1]) escreva("Altura do Jogador..............: ") leia(jogadores[quant,2]) escreva("Peso do Jogador................: ") leia(jogadores[quant,3]) escreva("Idade do Jogador...............: ") leia(jogadores[quant,4]) escreva("Número de Jogos................: ") leia(jogadores[quant,5]) escreva("Número de Gols.................: ") leia(jogadores[quant,6]) escreva("Número de Passes Corretos......: ") leia(jogadores[quant,7]) escreva("Número de Passes Errados.......: ") leia(jogadores[quant,8]) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Jogador ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Jogadores... Tecle Enter") leia(continuar) continuar:="n" fimse limpatela fimenquanto //Cálculo de Resultados Maior <- 0 para i de 1 ate quant faca somaAltura <-(caracpnum(jogadores[i,2])+ somaAltura) somaPeso <- (caracpnum(jogadores[i,3]) + somaPeso) somaIdade <- (caracpnum(jogadores[i,4]) + somaIdade) somaGols <- (caracpnum(jogadores[i,6]) + somaGols) somaJogos <- (caracpnum(jogadores[i,5]) + somaJogos) somaPassesCorretos <- (caracpnum(jogadores[i,7]) + somaPassesCorretos) somaPassesErrados <- (caracpnum(jogadores[i,8]) + somaPassesErrados) mediaAltura <- somaAltura/quant //Média de Altura mediaPeso <- somaPeso/quant //Média de Peso mediaIdade <- somaIdade/quant //Média de Idade mediaGols <- somaGols/somaJogos //Média de Gols Por jogo mediaJogos<- somaJogos/quant //Média de Jogos mediaPassesCorretos <- somaPassesCorretos/quant //Média de Passes Corretos mediaPassesErrados <- somaPassesErrados/quant //Média de Passes Errados se (caracpnum(jogadores[i,6]) > Maior ) então //Mais Goleador Maisgoleador <-(jogadores[i,1]) Maior <- (caracpnum(jogadores[i,6])) fimse //Exibição dos resultados cont<-0 escreval() cont:=cont+1 escreval("Nome do Jogador ---> ",jogadores[i,1]) escreval("Altura ------------> ",jogadores[i,2], " Metros") escreval("Peso --------------> ",jogadores[i,3], " KG") escreval("Idade -------------> ",jogadores[i,4], " Anos") escreval("Número de Jogos ---> ",jogadores[i,5], " Jogos") escreval("Número de Gols ----> ",jogadores[i,6], " Gols") escreval("Número de Passes Corretos ---> ",jogadores[i,7], " Passes") escreval("Número de Passes Errados ---> ",jogadores[i,8], " Passes") se cont=3 então cont:=0 escreval() escreval("Tecle Enter Para Continuar") leia(continuar) fimse fimpara //TOTAL escreval() escreval() escreval() escreval() escreval("===================================") escreval("Total DE Jogadores Digitados ------> ",quant) escreval("Média de Altura dos Jogadores -----> ",mediaAltura:1:2, " Metros") escreval("Média de Peso dos Jogadores -------> ",mediaPeso:2, " KG") escreval("Média de Idade dos Jogadores ------> ",mediaIdade:2, " Anos") escreval() escreval("Média de Gols por Jogo ------------> ",mediaGols:2:2, " Gols Por Jogo") escreval("Média de Jogos por Jogador --------> ",mediaJogos:2," Jogos Por Jogador") escreval("Média de Passes Corretos por Jogo -> ",mediaPassesCorretos:2, " Passes Por Jogo") escreval("Média de Passes Errados por Jogo --> ",mediaPassesErrados:2, " Passes Por Jogo") escreval() escreval() escreval("Nome DO JOGADOR MAIS GOLEADOR -----> ",Maisgoleador) escreval("===================================") fimalgoritmo @Simon Viegas Fiz e ficou assim!

Algoritmo "futebol" // Função : Criar Algoritmo para Futebol // Autor : João Emilio // Data : 18/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis jogadores :vetor[1..20,1..8] de caractere continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de jogadores possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) Maisgoleador :caractere //Exibe o Mais Goleador Maior :real somaAltura :real mediaAltura :real somaPeso :real mediaPeso :real somaIdade :real mediaIdade :real somaGols :real somaJogos :real mediaGols :real somaPassesCorretos :real somaPassesErrados :real mediaPassesCorretos :real mediaPassesErrados :real mediaJogos :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-3 //CADASTRO DE Jogadores continuar:="s" enquanto (continuar = "S") ou (continuar = "s") faca //APRESENTAÇÃO DO PROGRAMA escreval() escreval("================================") escreval(" FUTEBOL ") escreval("================================") escreval() quant:=quant+1 escreva("Nome do Jogador................: ") leia(jogadores[quant,1]) escreva("Altura do Jogador..............: ") leia(jogadores[quant,2]) escreva("Peso do Jogador................: ") leia(jogadores[quant,3]) escreva("Idade do Jogador...............: ") leia(jogadores[quant,4]) escreva("Número de Jogos................: ") leia(jogadores[quant,5]) escreva("Número de Gols.................: ") leia(jogadores[quant,6]) escreva("Número de Passes Corretos......: ") leia(jogadores[quant,7]) escreva("Número de Passes Errados.......: ") leia(jogadores[quant,8]) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Jogador ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Jogadores... Tecle Enter") leia(continuar) continuar:="n" fimse limpatela fimenquanto //EXIBIÇÃO DE RESULTADOS Maior <- 0 para i de 1 ate quant faca somaAltura <-(caracpnum(jogadores[i,2])+ somaAltura) somaPeso <- (caracpnum(jogadores[i,3]) + somaPeso) somaIdade <- (caracpnum(jogadores[i,4]) + somaIdade) somaGols <- (caracpnum(jogadores[i,6]) + somaGols) somaJogos <- (caracpnum(jogadores[i,5]) + somaJogos) somaPassesCorretos <- (caracpnum(jogadores[i,7]) + somaPassesCorretos) somaPassesErrados <- (caracpnum(jogadores[i,8]) + somaPassesErrados) fimpara //Média de Altura mediaAltura <- somaAltura/quant //Média de Peso mediaPeso <- somaPeso/quant //Média de Idade mediaIdade <- somaIdade/quant //Média de Gols Por jogo mediaGols <- somaGols/somaJogos //antemedia/quant //Média de Jogos mediaJogos<- somaJogos/quant //Média de Passes Corretos mediaPassesCorretos <- somaPassesCorretos/quant //Média de Passes Errados mediaPassesErrados <- somaPassesErrados/quant //Mais Goleador se (caracpnum(jogadores[i,6]) > Maior ) então Maisgoleador <-(jogadores[i,1]) Maior <- (caracpnum(jogadores[i,6])) fimse //Exibição dos resultados limpatela cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("Nome do Jogador ---> ",jogadores[i,1]) escreval("Altura ------------> ",jogadores[i,2], " Metros") escreval("Peso --------------> ",jogadores[i,3], " KG") escreval("Idade -------------> ",jogadores[i,4], " Anos") escreval("Número de Jogos ---> ",jogadores[i,5], " Jogos") escreval("Número de Gols ----> ",jogadores[i,6], " Gols") escreval("Número de Passes Corretos ---> ",jogadores[i,7], " Passes") escreval("Número de Passes Errados ---> ",jogadores[i,8], " Passes") se cont=3 então cont:=0 escreval() escreval("Tecle Enter Para Continuar") leia(continuar) fimse fimpara //TOTAL escreval() escreval() escreval() escreval() escreval("===================================") escreval("Total DE Jogadores Digitados ------> ",quant) escreval("Média de Altura dos Jogadores -----> ",mediaAltura:1:2, " Metros") escreval("Média de Peso dos Jogadores -------> ",mediaPeso:2, " KG") escreval("Média de Idade dos Jogadores ------> ",mediaIdade:2, " Anos") escreval() escreval("Média de Gols por Jogo ------------> ",mediaGols:2:2, " Gols Por Jogo") escreval("Média de Jogos por Jogador --------> ",mediaJogos:2," Jogos Por Jogador") escreval("Média de Passes Corretos por Jogo -> ",mediaPassesCorretos:2, " Passes Por Jogo") escreval("Média de Passes Errados por Jogo --> ",mediaPassesErrados:2, " Passes Por Jogo") escreval() escreval() escreval("Nome DO JOGADOR MAIS GOLEADOR -----> ",Maisgoleador) escreval("===================================") fimalgoritmo adicionado 0 minutos depois @Simon Viegas Fiz as correções que me falou !! adicionado 14 minutos depois So que o fimpara*eu tive que por depois do "// Mais goleador .senão dava erro no Visualg2.0"

Vamos ver alex!

@devair1010 To com esse seguinte Algoritmo! Não sei se To fazendo ele Certo..Confere Pra mim Fazendo Favor! A média de jogos não está certo ! Algoritmo “Futebol” Criar um algoritmo para um time de futebol, que receba na tela: Receber na tela: Ø Nome do jogador Ø Altura Ø Peso Ø Idade Ø Número de jogos Ø Número de gols Ø Número de passes corretos Ø Número de passes errados Calcular: Ø Quantidade total de jogadores digitados. Ø Média de altura dos jogadores. Ø Média de peso dos jogadores. Ø Média de idade dos jogadores. Ø Média de gols por jogo. Ø Média de passes corretos por jogo. Ø Média de passes errados por jogo. Ø Nome do jogador mais goleador. Mostrar no final todos os resultados calculados! adicionado 3 minutos depois Algoritmo "futebol" // Função : Criar Algoritmo para Pessoas // Autor : João Emilio // Data : 18/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis nome :vetor[1..20,1..8] de caractere continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de vendas possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) maisgoleador :caractere //Exibe o Mais Goleador maior :real altura :real mediaaltura :real peso :real mediapeso :real idade :real mediaidade :real gols :real jogos :real mediagols :real passescorretos :real passeserrados :real mediapassescorretos :real mediapasseserrados :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-3 //CADASTRO DE PESSOAS continuar:="s" enquanto (continuar = "S") ou (continuar = "s") faca //APRESENTAÇÃO DO PROGRAMA escreval() escreval("================================") escreval(" FUTEBOL ") escreval("================================") escreval() quant:=quant+1 escreva("Nome do Jogador................: ") leia(nome[quant,1]) escreva("Altura do Jogador..............: ") leia(nome[quant,2]) escreva("Peso do Jogador................: ") leia(nome[quant,3]) escreva("Idade do Jogador...............: ") leia(nome[quant,4]) escreva("Número de Jogos................: ") leia(nome[quant,5]) escreva("Número de Gols.................: ") leia(nome[quant,6]) escreva("Número de Passes Corretos......: ") leia(nome[quant,7]) escreva("Número de Passes Errados.......: ") leia(nome[quant,8]) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Jogador ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Jogadores... Tecle Enter") leia(continuar) continuar:="n" fimse limpatela fimenquanto //EXIBIÇÃO DE RESULTADOS maior <- 0 para i de 1 ate quant faca //Média de Altura altura <-(caracpnum(nome[i,2])+ altura) mediaaltura <- altura/quant //Média de Peso peso <- (caracpnum(nome[i,3]) + peso) mediapeso <- peso/quant //Média de Idade idade <- (caracpnum(nome[i,4]) + idade) mediaidade <- idade/quant //Média de Gols Por jogo gols <- (caracpnum(nome[i,6]) + gols) jogos <- (caracpnum(nome[i,5]) + jogos) mediagols <- gols/jogos //Média de Passes Corretos passescorretos <- (caracpnum(nome[i,7]) + passescorretos) mediapassescorretos <- passescorretos/quant //Média de Passes Errados passeserrados <- (caracpnum(nome[i,8]) + passeserrados) mediapasseserrados <- passeserrados/quant //Mais Goleador se (caracpnum(nome[i,6]) > maior ) então maisgoleador <-(nome[i,1]) maior <- (caracpnum(nome[i,6])) fimse fimpara //Exibição dos resultados limpatela cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("Nome da Pessoa ----> ",nome[i,1]) escreval("Altura ------------> ",nome[i,2], " Metros") escreval("Peso --------------> ",nome[i,3], " KG") escreval("Idade -------------> ",nome[i,4], " Anos") escreval("Número de Jogos ---> ",nome[i,5], " Jogos") escreval("Número de Gols ----> ",nome[i,6], " Gols") escreval("Número de Passes Corretos ---> ",nome[i,7], " Passes") escreval("Número de Passes Errados ---> ",nome[i,8], " Passes") se cont=3 então cont:=0 escreval() escreval("Tecle Enter Para Continuar") leia(continuar) fimse fimpara //TOTAL escreval() escreval() escreval() escreval() escreval("===================================") escreval("Total DE Jogadores Digitados ------> ",quant) escreval("Média de ALTURA dos Jogadores -----> ",mediaaltura:1:2, " Metros") escreval("Média de PESO dos Jogadores -------> ",mediapeso:2, " KG") escreval("Média de IDADE dos Jogadores ------> ",mediaidade:2, " Anos") escreval() escreval("Média de Gols por Jogo ------------> ",mediagols:2:2, " Gols Por Jogo") escreval("Média de Passes Corretos por Jogo -> ",mediapassescorretos:2, " Passes Por Jogo") escreval("Média de Passes Errados por Jogo --> ",mediapasseserrados:2, " Passes Por Jogo") escreval() escreval() escreval("NOME DO JOGADOR MAIS GOLEADOR -----> ",maisgoleador) escreval("===================================") fimalgoritmo

Obrigado pela explicacao cara

Algoritmo "Pessoas" // Função : Criar Algoritmo para Pessoas // Autor : João Emilio // Data : 12/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis nomesexo :vetor[1..100,1..2] de caractere alturapeso :vetor[1..100,1..3] de real continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de vendas possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) porchomens :real //POrcentagem de Homens no Algoritmo porcmulheres :real //Porcentagem de Mulheres no Algoritmo mais_alto :caractere //Exibe a Pessoa Mais Alta no Algoritmo maior :real totalhomens :inteiro //EXibe Total de Homens no Algoritmo totalmulheres :inteiro //EXibe Total de Mulheres no Algoritmo mediapesohomens :real mediapesomulheres :real mediaidadehomens : real mediaidademulheres : real alturahomens : real alturamulheres: real mediaalturahomens: real mediaalturamulheres: real mediapesohomens2 : real mediapesomulheres2: real mediaidadehomens2 : real mediaidademulheres2 : real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-5 //APRESENTAÇÃO DO PROGRAMA escreval() escreval("_________________________________") escreval("ETEC Prof.Alcídio de Souza Prado") escreval(" Pessoas ") escreval() //CADASTRO DE VENDA continuar:="s" enquanto continuar <> "n" faca quant:=quant+1 escreva("Nome da Pessoa....: ") leia(nomesexo[quant,1]) escreva("Altura da Pessoa..: ") leia(alturapeso[quant,1]) escreva("Peso da Pessoa....: ") leia(alturapeso[quant,2]) escreva("Idade da Pessoa...: ") leia(alturapeso[quant,3]) escreva("Sexo da Pessoa..< M/F >..: ") leia(nomesexo[quant,2]) escreval() escreval() escreva("Quer Cadastrar Mais Uma Pessoa ? < S/N > ") leia(continuar) se quant+1 > maximo então escreval("Só Pode Cadastrar Até",maximo," Pessoas... Tecle Enter") leia(continuar) continuar:="n" fimse fimenquanto //EXIBIÇÃO DE RESULTADOS limpatela porchomens <- 0 //Porcentgens de Homens No algoritmo porcmulheres <- 0 //Porcentgens de Mulheres No algoritmo totalmulheres <- 0 //Total de Mulheres no Algoritmo totalhomens <- 0 //Total de Homens no Algoritmo maior <- 0 mediapesohomens <- 0 //Variavel que da Media de peso EM homens mediapesomulheres <- 0 //Variaavel que da Media de peso EM Mulheres mediaidadehomens <- 0 mediaidademulheres <-0 cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("Nome da Pessoa ----> ",nomesexo[i,1]) escreval("Altura ------------> ",alturapeso[i,1], " Metros") escreval("Peso --------------> ",alturapeso[i,2], " Quilos") escreval("Idade -------------> ",alturapeso[i,3], " Anos") escreval("Sexo da Pessoa ----> ",nomesexo[i,2]) //Total de Homens e Mulheres e Porcentagem se ((nomesexo[i,2]) = "M") então alturahomens := alturahomens+alturapeso[i,1] //Média de Altura homens totalhomens <- totalhomens + 1 //Continuidade no total de homens porchomens <- porchomens + 1 //Continuidade na porcentagem de homens mediapesohomens <- mediapesohomens + alturapeso[i,2] //Média de peso homens mediapesohomens2 <- ( mediapesohomens / totalhomens) //Média de peso homens mediaalturahomens:= alturahomens/totalhomens //Média de Altura homens mediaidadehomens <- mediaidadehomens + alturapeso[i,3] //Média de idade em Homens mediaidadehomens2 <- (mediaidadehomens / totalhomens) //Média de idade em Homens senao alturamulheres := alturamulheres+alturapeso[i,1] //Média de Altura mulheres totalmulheres <- totalmulheres + 1 //Continuidade no total de mulheres porcmulheres <- porcmulheres + 1 //Continuidade na porcentagem de mulheres mediapesomulheres <- mediapesomulheres + alturapeso[i,2] //Média de peso mulheres mediapesomulheres2 <- ( mediapesomulheres /totalmulheres) //Média de peso mulheres mediaalturamulheres:= alturamulheres/totalmulheres //Média de Altura mulheres mediaidademulheres <- mediaidademulheres + alturapeso[i,3] //Média de idade em Mulheres mediaidademulheres2 <- (mediaidademulheres/ totalmulheres) //Média de idade em Mulheres fimse //Maior ALtura se (maior < (alturapeso[i,1])) então mais_alto <-(nomesexo[i,1]) maior <-(alturapeso[i,1]) fimse //TOTAL fimpara escreval() escreval() escreval("Total DE Pessoas Digitadas -------> ",quant) escreval("Total DE Pessoas do SEXO MASCULINO ----------> ",totalhomens) escreval("Total DE Pessoas do SEXO FEMININO -----------> ",totalmulheres) escreval() escreval("Porcentagem Total De Pessoas do SEXO MASCULINO ----> ",(porchomens * 100) / quant:3, " %") escreval("Porcentagem Total De Pessoas do SEXO FEMININO -----> ",(porcmulheres * 100) /quant:3, " %") escreval() escreval("Média de Peso de Pessoas do SEXO MASCULINO -> ",mediapesohomens2:3:1, " Quilos") escreval("Média de Peso de Pessoas do SEXO FEMININO --> ",mediapesomulheres2:3:1, " Quilos") escreval() escreval("Média de Altura de Pessoas do Sexo Masculino---> ",mediaalturahomens:1:2, " Metros") escreval("Média de Altura de Pessoas do Sexo Feminino----> ",mediaalturamulheres:1:2, " Metros") escreval() escreval("Média de IDADE de Pessoas do SEXO MASCULINO -------> ",mediaidadehomens2:2, " Anos") escreval("Média de IDADE de Pessoas do SEXO FEMININO -------> ",mediaidademulheres2:2, " Anos") escreval() escreval("NOME DA PESSOA MAIS ALTA --------> ",mais_alto) fimalgoritmo adicionado 7 minutos depois @devair1010 Meu amigo se não for pedir demais ..eu queria saber ..eu dei uma mudada no código ..fiz media de idade tabém.. Eu queria saber porque tem códigos que quando a gente tenta executar no Visualg2.0 não aceita? Esse código acima vai numa boa no Visualg3.0 !!

Vou verificar aqui e ja te falo.obrigado meu brother!? ; )

@devair1010 mais pra calcular media você nao tem q pegar os pesos q foram digitados e dividirem pelo total de sexo ..masculino ou feminino?

Alguém POR FAVOR Poderia me ajudar nesse algoritmo ..não consigo de forma alguma fazer a MÉDIA DE PESO E ALTURA !! Algoritmo “Algo33_Pessoas” Criar um algoritmo que receba na tela: > Nome da pessoa > Altura > Peso > Idade > Sexo Calcular: > Quantidade total de pessoas digitadas. > Quantidade total de pessoas do sexo masculino. > Quantidade total de pessoas do sexo feminino. > Porcentagem total de pessoas do sexo masculino. > Porcentagem total de pessoas do sexo feminino. > Média de peso de pessoas do sexo masculino > Média de peso de pessoas do sexo feminino. > Média de idade de pessoas do sexo masculino > Média de idade de pessoas do sexo feminino. > Nome da pessoa mais alta. Mostrar no final todos os dados calculados. Algoritmo "Pessoas" // Função : Criar Algoritmo para Pessoas // Autor : João Emilio // Data : 12/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis nomesexo :vetor[1..100,1..2] de caractere alturapeso :vetor[1..100,1..2] de real idade :inteiro continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de vendas possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) porchomens :real //POrcentagem de Homens no Algoritmo porcmulheres :real //Porcentagem de Mulheres no Algoritmo mais_alto :caractere //Exibe a Pessoa Mais Alta no Algoritmo maior :real totalhomens :inteiro //EXibe Total de Homens no Algoritmo totalmulheres :inteiro //EXibe Total de Mulheres no Algoritmo mediapesohomens :real mediapesomulheres :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-5 //APRESENTAÇÃO DO PROGRAMA escreval() escreval("________________________________") escreval(" Pessoas ") escreval() //CADASTRO DE VENDA continuar:="s" enquanto continuar <> "n" faca quant:=quant+1 escreva("Nome da Pessoa....: ") leia(nomesexo[quant,1]) escreva("Altura da Pessoa..: ") leia(alturapeso[quant,1]) escreva("Peso da Pessoa....: ") leia(alturapeso[quant,2]) escreva("Idade da Pessoa...: ") leia(idade) escreva("Sexo da Pessoa....: ") leia(nomesexo[quant,2]) escreval() escreval() se quant+1 > maximo então escreval("Só Pode Cadastrar Até",maximo," Pessoas... Tecle Enter") leia(continuar) continuar:="n" senao escreva("Quer Cadastrar Mais Uma Pessoa ? < S/N > ") leia(continuar) fimse fimenquanto //EXIBIÇÃO DE RESULTADOS limpatela porchomens <- 0 //Porcentgens de Homens No algoritmo porcmulheres <- 0 //Porcentgens de Mulheres No algoritmo totalmulheres <-0 //Total de Mulheres no Algoritmo totalhomens <-0 //Total de Homens no Algoritmo maior <- 0 mediapesohomens <- 0 //Variaavel que da Media de peso EM homens mediapesomulheres <-0 //Variaavel que da Media de peso EM Mulheres cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("Nome da Pessoa ----> ",nomesexo[i,1]) escreval("Altura ------------> ",alturapeso[i,1]) escreval("Peso --------------> ",alturapeso[i,2]) escreval("Idade -------------> ",idade) escreval("Sexo da Pessoa ----> ",nomesexo[i,2]) //Total de Homens e Mulheres e Porcentagem se ((nomesexo[i,2]) = "M") então totalhomens <- totalhomens + 1 porchomens <- porchomens + 1 mediapesohomens <- mediapesohomens + 1 mediapesohomens <- (alturapeso[i,2])) mediapesohomens <- ( mediapesohomens / totalhomens) senao totalmulheres <- totalmulheres + 1 porcmulheres <- porcmulheres + 1 mediapesomulheres <- mediapesomulheres + 1 mediapesomulheres <- (alturapeso[i,2])) mediapesomulheres <-(mediapesomulheres /totalmulheres) fimse //Maior ALtura se (maior < (alturapeso[i,1])) então mais_alto <-(nomesexo[i,1]) maior <-(alturapeso[i,1]) fimse //TOTAL fimpara escreval() escreval() escreval("Total DE Pessoas Digitadas -------> ",quant) escreval("Total DE Pessoas do SEXO MASCULINO ----------> ",totalhomens) escreval("Total DE Pessoas do SEXO FEMININO -----------> ",totalmulheres) escreval("Porcentagem Total De Pessoas do SEXO MASCULINO ----> ",(porchomens * 100) / quant:3, "%") escreval("Porcentagem Total De Pessoas do SEXO FEMININO -----> ",(porcmulheres * 100) /quant:3, "%") escreval("Média de Peso de Pessoas do SEXO MASCULINO --> ",mediapesohomens:3) escreval("Média de Peso de Pessoas do SEXO FEMININO ---> ",mediapesomulheres:3) escreval("Média de IDADE de Pessoas do SEXO MASCULINO -------> ",) escreval("Média de IDADE de Pessoas do SEXO FEMININO --------> ",) escreval() escreval("NOME DA PESSOA MAIS ALTA --------> R$ ",mais_alto) fimalgoritmo

obg Devair fiz e deu tudo certim

Algoritmo “Algo30_Posto de combustível” Criar um algoritmo para um posto de combustível Receber na tela: > Nome do cliente > Tipo de combustível > Quantidade de litros abastecidos Mostrar preço do litro de acordo com o tipo de combustível, conforme abaixo: “gasolina” = R$2,50 “Álcool” = R$1,09 “Diesel” = R$2,20 Obs: Outros combustíveis, mostrar a mensagem “Combustível não Cadastrado” Calcular o preço total (QLA*PDL) > Mostrar preço total Calcular um desconto sobre o preço total, de: 2% para veículos que abasteceram com “gasolina” 3% para veículos que abasteceram com “álcool” 4% para veículos que abasteceram com “diesel” > Mostrar valor do desconto > Mostrar valor a pagar Mostrar no final > Quantidade Total de “gasolina” vendida pelo posto > Quantidade Total de “álcool” vendida pelo posto > Quantidade Total de “diesel” vendida pelo posto > Valor total (em dinheiro) concedido de desconto > Valor total (em dinheiro) recebido pelo posto Algoritmo "PostodeCombutivel" // Função : Criar Algoritmo para posto de combustível // Autor : João Emilio // Data : 06/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis QTgasolina,QTalcool,Qtdiesel,Qtoutros:inteiro //quantidade de Combustíveis posto :vetor[1..100,1..4] de caractere //1-nome, 2-tipo de combustivel 3-quant.litros abastecidos continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de vendas possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de vendas realizadas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) taxaDESCONTO:real //taxa de desconto receber :real pdl :real ptotal :real valorpagar :real desconto :real litros :real vdesconto :real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-3 //APRESENTAÇÃO DO PROGRAMA escreval(" PostoPiranga ") //CADASTRO DE VENDA continuar:="s" enquanto continuar <> "n" faca quant:=quant+1 escreva("Nome do Cliente............: ") leia(posto[quant,1]) escreval("(Gasolina) (Alcool) (Diesel)") escreva("Tipo de Combustível........: ") leia(posto[quant,2]) escreva("QT Litros Abastecidos......: ") leia(litros) escreval() escreval() se quant < MAXIMO então escreva("Quer Cadastrar Mais Um Cliente ? < S/N > ") leia(continuar) senao escreva("Só Pode Cadastrar Até",MAXIMO," Clientes... Tecle Enter") leia(continuar) continuar:="n" fimse fimenquanto //EXIBIÇÃO DE RESULTADOS limpatela cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("O Cliente -------------------> ",posto[i,1]) escreval("Abasteceu com ---------------> ",litros," litros de ",posto[i,2]) //Comando SE Para Dar a Porcentagem nos Combutíveis se (posto[i,2]="GASOLINA") ou (posto[i,2]="gasolina") então pdl<- 2.50 Escreval("Preço da Gasolina -----------> R$ 2,50") QTgasolina:=QTgasolina+1 taxaDESCONTO<-0.02 senao se (posto[i,2]="ALCOOL") ou (posto[i,2]="alcool") então pdl<- 1.09 Escreval("Preço do Alcool -------------> R$ 1,09") QTalcool:=QTalcool+1 taxaDESCONTO<-0.03 senao se (posto[i,2]="DIESEL") ou (posto[i,2]="diesel") então pdl<- 2.20 Escreval("Preço do Diesel -------------> R$ 2,20") QTdiesel:=QTdiesel+1 taxaDESCONTO<-0.04 senao Escreval(" Combustível não Cadastrado ") QToutros<-QToutros+1 taxaDESCONTO<-0 fimse fimse fimse //Variável Para dar o Preço Total ptotal<-(litros*pdl) Escreval("O Preço Total foi de --------> R$ ",ptotal:1:2) //Calculo do Desconto e do Valor a Pagar desconto<-(ptotal*taxaDESCONTO) valorpagar<-(ptotal-taxaDESCONTO*ptotal) receber<-(receber+valorpagar)//Atualiza o valor total a receber pelo Posto vdesconto<-vdesconto+desconto //Váriavel pra dar Valor a Pagar Escreval("O Valor do Desconto foi de --> R$ ",desconto:1:2) Escreval("O valor a Pagar é de -------> R$ ",valorpagar:1:2) //TOTAL DE COMBUSTÍVEL VENDIDA PELO POSTO se cont=3 então cont:=0 escreval() escreval("Tecle Enter Para Continuar") leia(continuar) fimse fimpara escreval() escreval("O Total DE Combustível Gasolina Vendido É -----> ",QTgasolina) escreval("O Total DE Combustível Alcool Vendido É -------> ",QTalcool) escreval("O Total DE Combustível Diesel Vendido É -------> ",QTdiesel) escreval("O Total DE Outros Combustíveis Vendido É ------> ",QToutros) escreval() escreval("O Valor Total Concedido de Desconto É ---------> R$ ",vdesconto:1:2) escreval("O Valor Total recebido pelo Posto É -----------> R$ ",receber:1:2) fimalgoritmo Por favor mais uma vez peço ajuda a vocês ..Porque esse algorittmo repete o total de litros abastecidos?