AULA 10

sem o professor no inicio da aula não sei porque se estava atrasado ou não mas belesa tirei duvidas com meus colegas

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"

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

bom pessoal aqui a gente termino os exercicios propostos consegui terminar com muita pasiencia sem me estresar.