Aula 10 – 18.05.2011 Logica e Algoritmos

Aula 10 – 18.05.2011 Logica e Algoritmos

Começamos a aula sem o professor Jossandro, pois ele teria ido fazer uma viajem e se atrasou, mas mandou alguns exercícios para a turma ir fazendo até a sua chegada.
A turma estava com muitas duvidas e ele chegou logo.
Segue abaixo os exercícios:

Exercicios:

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

algoritmo "exec_01_aula10"

var

n_notas,x:inteiro

nota,media,nota_soma:real

inicio

n_notas<-10

para x de 1 ate n_notas faca

   escreva("Escreva a nota",X,".")

leia(nota)

nota_soma<-nota_soma+nota

fimpara

media<-nota_soma/n_notas

escreva("A soma das notas é",nota_soma," e, sua média é",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 "Exec_02_aula10"

var

x,num:inteiro

resposta,media:real

inicio

resposta<-0

escreval("Digite até que numero você quer que o programa conte...")

leia(num)

para x de 1 ate num faca

   resposta<-resposta+x

   media<-resposta/x

fimpara

escreva("A média é",media,".")

fimalgoritmo

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

algoritmo "exec_03_aula10"

var

o_numero,num,num_a:inteiro

inicio

o_numero<-1000

escreval("O programa continuara pedindo para você acrecentar um numero até que a soma deles seja 1000 ou mais.")

escreva("Digite um numero: ")

leia(num)

se (num >= 1000) entao

   escreva("Este numero já é maior que",o_numero,".")

fimalgoritmo

fimse

repita

  escreval("Digite um número: ")

  leia(num_a)

  num<-num+num_a

ate (num >= o_numero)

escreva("O Total é de",num,".")

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 "exec_04_aula10"

var

num,m,num_1,media:real

inicio

escreva("Escreva Algum número: ")

leia(num)

m<-1

enquanto (num <> 0) faca

num_1<-num_1+num

escreva("Acresente outro número: ")

leia(num)

m<-m+1

fimenquanto

media<-num_1/m

escreva("A soma dos números foi:",num_1," e sua média é:",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 "exec_05_aula10"

var

opcao:inteiro

n1,n2,r,media:real

inicio

escreval("Este programa fica somando 2 notas até que escolha a opção 0 (Não)")

repita

escreval("Digite 2 notas:")

escreva("Primeira nota: ")

leia(n1)

escreva("Segunda nota: ")

leia(n2)

r<-n1+n2

media<-r/2

escreval("A média das notas é: ",media,".")

escreval("Continuar?")

escreval("ESCOLHA A OPÇÃO 0 (não) OU 1 (sim)")

repita

 leia(opcao)

ate (opcao = 0) ou (opcao = 1)

se (opcao = 1) entao

   limpatela

fimse

ate (opcao=0)

fimalgoritmo

Essa aula foi muito complicada, pois o professor mandou alguns exercícios muito complexos e difíceis.
Só foi possível terminá-los quando ele chegou, mas mesmo Assis não consegui fazê-los bem.