Aula 10 - 12/05/11

1. Faça um programa que leia 10 números, e no final calcula e mostre a média.


algoritmo "Exercicio 1"

var
soma, x :inteiro
media : real
inicio
soma <- 0
Escreval ("Digite 10 numeros")
Para x de 1 ate 10 faca
   Escreva ("Digite o", x, " numero: ")
   Leia (x)
   soma <- soma + x
Fimpara
media <- soma / 10
escreval ("A media é: ",media)
fimalgoritmo

2. Faça um programa em que o usuário informe a quantidade de números a serem lidos, e no final, calcule e mostre a média dos números lidos.



algoritmo "Exercicio 2"

var
soma,quantidade , x :inteiro
media : real
inicio
soma <- 0
escreval ("Digite a quantidade de numeros a serem lidos: ")
leia (quantidade)
se (quantidade <> 0) entao
   Para x de 1 ate quantidade faca
      Escreva ("Digite o", x, " numero: ")
      Leia (x)
      soma <- soma + x
   Fimpara
fimse
media <- soma / quantidade
escreval ("A media é: ",media)
fimalgoritmo


3. Faça um programa que fique lendo e somando números enquanto que o produto deles seja inferior a mil.


algoritmo "Exercicio 3"

var
soma, x :real
inicio
soma <- 0
enquanto (soma < 1000) faca
   escreval ("Digite um número: ")
   leia (x)
   soma <- soma + x
   limpatela
   escreval ("A soma dos numeros digitados ate agora é: ", soma)
fimenquanto

fimalgoritmo

4. Faça um programa que leia e some números, enquanto o número lido seja diferente de zero. Ao final mostre a média dos números lidos. Cuidado com divisão por zero!


algoritmo "Exercicio 4"

var
soma, media, x :real
quantidade :inteiro
inicio
soma <- 0
quantidade <- 0
x <- 1
enquanto (x <> 0) faca
   escreval ("Digite um número: ")
   leia (x)
   soma <- soma + x
   quantidade <- quantidade + 1
fimenquanto
media <- soma / quantidade
escreval ("A media é: ", media)
fimalgoritmo

5. Faça um programa que fique lendo 2 notas, calcule e mostra a média, enquanto o usuário quiser. Dica, leia “0” (Não) ou “1” (Sim) para fazer o teste.


algoritmo "Exercicio 5"

var
soma, media, x, y :real
quantidade, teste :inteiro
inicio
soma <- 0
quantidade <- 0
x <- 0
escreval ("Digite 2 números.")
teste <- 1
enquanto (teste = 1) faca
   escreval ("Digite um número: ")
   leia (x)
   escreval ("Digite um número: ")
   leia (y)
   soma <- soma + x + y
   quantidade <- quantidade + 2
   escreval ("Quer Continuar? '0' para 'NÃO' ou '1' para 'SIM'.")
   leia (teste)
fimenquanto
media <- soma / quantidade
escreval ("A media é: ", media)
fimalgoritmo


Deu pra treinar bem com esses 5 exercícios onde foram usados comandos de repetição, estou ainda com um poucos de dificuldade nesse comando "PARA" mais com o tempo tenho certeza que vou melhorar.