aula 10

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

 algoritmo "numeros10"

var
 num,x,soma:inteiro
 smedia:real
inicio
 escreval("digite a quantia de numeros a serem lidos:")
 leia(num)
   para x de 1 ate num faca
   escreval("Numero",x,":")
   leia (x)
       soma <- soma+x
   fimpara
 smedia <- soma/num
 escreval("a media é: " ,smedia )
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 "numeros"

var
  x,soma,num:inteiro
  media:real
inicio
escreval("digite a quantia de numeros para o calculo do problema: ")
leia(num)
   para x de 1 ate num faca
     leia (num)
        soma<- num + soma
        escreval("Média no momento é : ",soma)
   fimpara
 media<-soma/num
 escreval("A média dos numeros digitados é: ", media)
fimalgoritmo

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

algoritmo "numeros_ate"
var
  x:inteiro
  soma:real
inicio
  escreval("Digite os numeros: ")
  soma<- 0
  enquanto (soma<1000) faca
     leia(x)
     soma<-soma+x
     escreva(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 "0 para"

var
 x,soma:inteiro
inicio
 escreval("Digite um um numero seguido de enter,seguidamente, quando desejar parar,pressione 0")

 x<-1
  enquanto x&gt;0 faca
  leia(x)
   soma<-x+soma
   escreval("+",x, "=",soma)
   escreval("Prescionando a tecla 0 você pode parar o programa.")
    se x=0 entao
     escreval("Tecla 0 pressionada:sessão encerrada pelo usuário")
    fimse
  fimenquanto
  
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 "medianotas05"
// Função :
// Autor :
// Data : 13/5/2011
// Seção de Declarações
var
x,z,y:inteiro
media:real
inicio

 repita

    escreval("Digite uma nota pressione enter e em seguida a segunda nota e pressione enter novamente para mostrar a media")
    leia(x,y)
    escreval("Digite 1 e pressione enter para obter a media das 2 notas ou 0 para sair")
    leia(z)
     se z<=1 entao
        media<-(x+y)/2
        escreval("A media das duas notas digitadas é: ",media)
        fimse
      enquanto   (z&gt;2)  ou (z<0)faca
        escreval("Opção não cadastrada!")
        escreval("Pressione 1  mostrar a média das notas ou")
        escreval("0 ver a media das notas e encerrar a sessão")
        leia(Z)
        se (z=1)  ou (z=0)  entao
        media<-(x+y)/2
        escreval("A media das duas notas digitadas é: ",media)
        fimse
      fimenquanto
  ate  z=0
  se z = 0 entao
  escreval( "Sessão terminada pelo usuário" )
  fimse
fimalgoritmo

Reflexão: Novos comandos de repetição que aprendemos durante a aula tem muitas funções as quais ainda não fixsei bem ainda, nescessitando de mais exercicios para melhor intendimento, principalmente na hora de fazer os exerciícios no papel,pois não tendo a opção de tentativa e erro pra o teste de mesa, pois fazer o teste de mesa através da analise do algoritmo é muito difícil, ao menos no meu caso, é notável a grande dificuldade na hora da análise.