- Em 2 dias as respostas serão acrescentadas a esta postagem e novos exercícios serão postados.
- Quaisquer dúvidas devem ser especificadas através de comentários a esta postagem, não sendo respondido nenhum questionamento via e-mail.
- O usuário deve informar a quantidade de números da série.
- Se a quantidade for zero ou negativa o algoritmo não deve aceita-la.
- O usuário deve informar um por um todos os números da série.
- O algoritmo deve mostrar como resultado a media aritmética simples calculada através da formula:
MEDIA = ( X + X1 + X2 + ... XN ) / N
var
...soma, n, v, qtde: inteiro
...media: real
inicio
...n <- 0
...soma <- 0
...leia qtde
...se qtde > 0 entao
......enquanto n < qtde
.........leia( v )
.........soma <- soma + v
.........n <- n + 1
......fimenquanto
......media <- soma / n
......escreva "Média = ", media
...senao
......escreva "Quantidade Inválida"
...fimse
fimalgoritmo
2º - Dado um vetor de 10 posições do tipo inteiro, que deverá ser preenchido pelo usuário, faça um algoritmo capaz de percorrer todo o vetor dobrando todos os numero que forem ímpares e dividindo pela metade todos os numero que forem pares colocando o resultado das operações nas mesmas posições dentro do vetor.
var
...i: inteiro
...declare t, vet[ 10 ]: inteiro
inicio
...para i de 1 ate 10 faca
......leia vet[ i ]
...fimpara
...para i de 1 ate 10 faca
......t <- vet[ i ]
......se t mod 2 = 0 entao
.........vet[ i ] <- vet[ i ] / 2
......senao
.........vet[ i ] <- vet[ i ] * 2
......fimse
...fimpara
fimalgoritmo
var
...soma, n, v, qtde: inteiro
...media: real
inicio
...n <- 0
...soma <- 0
...leia qtde
...se qtde > 0 entao
......enquanto n < qtde
.........leia( v )
.........soma <- soma + v
.........n <- n + 1
......fimenquanto
......media <- soma / n
......escreva "Média = ", media
...senao
......escreva "Quantidade Inválida"
...fimse
fimalgoritmo
2º - Dado um vetor de 10 posições do tipo inteiro, que deverá ser preenchido pelo usuário, faça um algoritmo capaz de percorrer todo o vetor dobrando todos os numero que forem ímpares e dividindo pela metade todos os numero que forem pares colocando o resultado das operações nas mesmas posições dentro do vetor.
var
...i: inteiro
...declare t, vet[ 10 ]: inteiro
inicio
...para i de 1 ate 10 faca
......leia vet[ i ]
...fimpara
...para i de 1 ate 10 faca
......t <- vet[ i ]
......se t mod 2 = 0 entao
.........vet[ i ] <- vet[ i ] / 2
......senao
.........vet[ i ] <- vet[ i ] * 2
......fimse
...fimpara
fimalgoritmo
Querido professor Cássio, eu ja fiz o algoritmo da média, queria que o senhor desse uma olhada pra ver se ta tudo certo. Vou enviar o algoritmo pro seu email. Me da uma resposta em breve.
ResponderExcluirabc João Paulo BSI2010
Caro João Paulo. Qual foi a parte do "Em 2 dias as respostas serão acrescentadas a esta postagem" que você não entendeu?
ResponderExcluirHummmm, é mesmo?! Não tinha prestado atenção, foi mal professor. abc João Paulo BSI2010
ResponderExcluirMas pensando bem vai que o meu algoritmo esteja diferente e execute do mesmo jeito?! João Paulo BSI2010
ResponderExcluirprofº Cassio a resposta do algoritmo 2 (vetor de 10 posições) apresenta algumas inconcistências quanto ao comando da questão.Ex.:
ResponderExcluiro vetor deveria ser do tipo inteiro-na resposta foi declarado como real;os nºs pares deveriam ser divididos por 2-na resposta está sendo multiplicados por 2;e os impares deveriam,agora, ser multiplicados por 2-na resposta estão sendo divididos por 2;
Grato.
Valeu a observação Rubens. Você tem toda razão. Assim que eu tiver um tempinho irei modificar o algoritmo.
ResponderExcluirPfro cassio, porque que toda vez q eu lhe mando um email xega uma notificação q o email não pode ser entregue aos destinatarios? joao paulo bsi 2010
ResponderExcluirPara o Rubens - Alterações feitas. Bastava mudar o tipo das variáveis e inverter a multiplicação com a divisão.
ResponderExcluirPara o João Paulo - Testei meus e-mais da UFPA, IG e G-Mail; e nenhum apresentou problema.