Aula 12 – 18.05.2011 Logica e Algoritmos
Autor: ericknascimento | Publicado: 2011-07-17T13:08:00-07:00

  
Aula 12 – 18.05.2011 Logica e Algoritmos  
Hoje a aula foi somente com exercícios para a primeira prova, o professor passou como exercícios a prova da turma do ano anterior.

1)Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
a) o número digitado ao quadrado;
b) o número digitado ao cubo;
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.

algoritmo "aula12_01"
var
num:inteiro
quad,cubo,r_quad,r_cubo:real
inicio
escreva("Digite um número: ")
leia(num)
quad&lt;-(num^2)
cubo&lt;-(num^3)
r_quad&lt;-(num^(1/2))
r_cubo&lt;-(num^(1/3))
&nbsp; escreval("O número",num," elevado ao quadrado é",quad,".")
&nbsp; escreval("O número",num," elevado ao cubo é",cubo,".")
&nbsp; escreval("A raiz quadrada do",num," é",r_quad,".")
&nbsp; escreval("A raiz cubica do",num," é",r_cubo,".")
fimalgoritmo


2)Faça um programa para verificar se um inteiro positivo lido é par ou ímpar (mostre por escrito se é par ou ímpar). Se o número for ímpar, multiplique por 2 e mostre o resultado, caso contrário multiplique por ½ e mostre o resultado.
(OBS: Par: x mod 2 = 0)

algoritmo " aula12_02"
var
num:inteiro
x_par,x_impar:real
inicio
escreva("Digite um número: ")
leia(num)
se (num mod 2 = 0) entao
&nbsp; escreval("O número é Par!")
x_par&lt;-(num*(1/2))
&nbsp; escreval("O resultado de",num," multiplicado por 1/2 é",x_par,".")
senao
&nbsp; escreval("O número é Impar!")
x_impar&lt;-(num*2)
escreval(num," multiplicado por 2 é",x_impar,".")
fimse
fimalgoritmo


3) Faça um programa que receba o custo total de um espetáculo teatral e o preço do convite desse espetáculo. Esse programa deverá calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetáculo seja alcançado.

algoritmo " aula12_03"
var
custo,valor,total:real
inicio
escreval("Digite qual foi o custo total da peça: ")
leia(custo)
escreva("Digite o valor do ingresso: ")
leia(valor)
total&lt;-custo/valor
escreval("Para pagar o custo da peça você deve vender no minimo",total," ingressos.")
fimalgoritmo


4) Faça um programa que receba três números e mostre-os em ordem decrescente.

algoritmo "aula12_04"
var
n1,n2,n3:inteiro
inicio
escreval("Digite 3 números diferentes")
leia(n1)
leia(n2)
leia(n3)
se (n1&gt;n2) e (n2&gt;n3) entao
&nbsp; escreva("A ordem decrecente é:",n1,",",n2,",",n3,".")
senao
se (n1&gt;n3) e (n3&gt;n2) entao
&nbsp; escreva("A ordem decrecente é:",n1,",",n3,",",n2,".")
senao
se (n2&gt;n1) e (n1&gt;n3) entao
&nbsp; escreva("A ordem decrecente é:",n2,",",n1,",",n3,".")
senao
se (n2&gt;n3) e (n3&gt;n1) entao
&nbsp; escreva("A ordem decrecente é:",n2,",",n3,",",n1,".")
senao
se (n3&gt;n1) e (n1&gt;n2) entao
&nbsp; escreva("A ordem decrecente é:",n3,",",n1,",",n2,".")
senao
se (n3&gt;n2) e (n2&gt;n1) entao
&nbsp; escreva("A ordem decrecente é:",n3,",",n2,",",n1,".")
senao
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo


5)Faça um programa que receba a hora do início de um jogo e a hora final (cada hora é composta por duas variáveis inteiras: hora e minuto). Calcule e mostre a duração do jogo (horas e minutos), sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.


6)Faça um programa que receba cem números, calcule e mostre a soma dos números pares e a média dos números primos.
Outra, alem de não saber como resolve la nem ao menos sabia o que erra números primos.  

 algoritmo "semnome"
var
num, cont, soma, soma2, X, y, prim, parcial:inteiro
media: real
inicio
cont := 0
parcial := 0
soma := 0
Para X := 01 ate 10 faca
escreval (" Informe um número")
leia (num)
Se (num mod 2 = 0) entao
escreval ("O número que você digitou é par")
soma := soma + num
fimse
prim := 0
para y := 01 ate num faca
se (num mod y = 0) entao
prim := prim + 1
fimse
fimpara
se (prim &lt;= 2) entao
escreval ("O número que você digitou é primo")
parcial := parcial + num
cont := cont + 1
fimse
fimpara
media := parcial/cont
escreval ("A média dos números primos digitados é ", media)
escreval ("A soma dos numeros pares é ", soma)
fimalgoritmo  

  

 
7)Faça um programa que receba a idade e o peso de 75 pessoas, e que calcule e mostre as médias dos pesos das pessoas da mesma faixa etária. As faixas etárias são: de 1 a 10 anos, de 11 a 20 anões de 21 a 30 anos e de 31 anos para cima.

algoritmo "aula12_07"
var
x,idade,peso:inteiro
contador1,contador2,contador3,contador4,pesso1,pesso2,pesso3,pesso4,media1,media2,media3,media4:real
inicio
contador1&lt;-0
contador2&lt;-0
contador3&lt;-0
contador4&lt;-0
pesso1&lt;-0
pesso2&lt;-0
pesso3&lt;-0
pesso4&lt;-0
para x de 1 ate 75 faca
escreval("Digite a idade e o peso!")
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o Peso: ")
leia(peso)
se(idade&gt;=1) e (idade&lt;=10) entao
contador1&lt;-contador1+1
pesso1&lt;-peso+peso1
senao
se(idade&gt;=11) e (idade&lt;=20) entao
contador2&lt;-contador2+1
pesso2&lt;-peso+peso2
senao
se(idade&gt;=21) e (idade&lt;=30) entao
contador3&lt;-contador3+1
pesso3&lt;-peso+peso3
senao
se(idade&gt;=31) entao
contador4&lt;-contador4+1
pesso4&lt;-peso+peso4
senao
fimse
fimse
fimse
fimse
fimpara
media1&lt;-pesso1/contador1
media2&lt;-pesso2/contador2
media3&lt;-pesso3/contador3
media4&lt;-pesso4/contador4
escreval("A média de peso da idade 1 até 10 anos é",media1,".")
escreval("A média de peso da idade 11 até 20 anos é",media2,".")
escreval("A média de peso da idade 21 até 30 anos é",media3,".")
escreval("A média de peso da idade 31 ou mais é",media4,".")
fimalgoritmo


8) ada espectador de um cinema respondeu a um questionário no qual constava sua idade e sua opinião em relação ao filme: ótimo – 3, bom – 2, regular – 1. Faça um programa que receba a idade e a opinião de 75
espectadores, calcule e mostre:
a)a média das idades das pessoas que responderam ótimo;
b) a quantidade de pessoas que responderam regular;
c) a percentagem de pessoas que responderam bom, entre todos os espectadores analisados.

algoritmo "aula12_08"
var
x,idade,opcao:inteiro
contador1,contador2,contador3,idade_o,media_o,media_b:real
inicio
para x de 1 ate 75 faca
escreval("Digite sua idade e opção do filme.")
escreva("Digite sua idade: ")
leia(idade)
escreval("Para Ótimo digite 3, para Bom digite 2 e para Regular digite 1.")
repita
escreva("Digite a opcao desejada: ")
leia(opcao)
se (opcao&lt;&gt;1) ou (opcao&lt;&gt;2) ou (opcao&lt;&gt;3) entao
escreva("Digitou opção errada, redigite sua opção!")
fimse
ate(opcao=1)ou(opcao=2)ou(opcao=3)
se (opcao = 1) entao
contador1&lt;-contador1+1
fimse
se (opcao = 3) entao
contador3&lt;-contador3+1
idade_o&lt;-idade+idade_o
fimse
se (opcao = 2) entao
contador2&lt;-contador2+1
fimse
fimpara
media_o&lt;-idade_o/contador3
escreval("A média das pessoas que acharam ótimo foi de",media_o,".")
escreval(contador1," pessoas responderam Regular.")
media_b&lt;-75/contador2
escreval(media_b,"% das pessoas responderam Bom.")
fimalgoritmo

Os exercícios estavam muito complicados.
Hoje a aula foi somente para exercitar mesmo, pois terá a prova na quarta, teremos três aulas essa semana.