Aula 16 – 01.06.2011 Logica e Algoritmos

Aula 16 – 01.06.2011 Logica e Algoritmos

Hoje a aula foi muito boa, mas muito mesmo, mas antes de tudo queria parabeniza o nosso professor jossandro pela atitude de vir conversar conosco e propor alguma mudança depois de entregar a prova e ver que muitos alunos foram mal.

E tambem foi somente hoje que realmente entendi os comandos "para e enquanto", tornando assim bem melhor o meu entendimento para fazer os algoritmos.

1- Um supermercado deseja reajustar os preços de seus produtos usando o seguinte critério: o produto poderá ter seu preço aumentado ou diminuído. Para alterar o preço o produto deve preencher pelo menos um dos seguintes requisitos a seguir:

Venda média	Preço atual	% de aumento	% de diminuição
<500	< R$ 30,00	10	-
>= 500 e < 1.200	>= R$ 30,00 e < R$ 80,00	15	-
>= 1.200	>= R$ 80,00	-	20

Faça um programa que receba o preço atual e a venda mensal média do produto, calcule e mostre o novo preço.


algoritmo "aula16_01"
var
m,p,valor:real
inicio
escreva("Digite a média mensal de vendas: ")
leia(m)
escreva("Digite preço do produto: ")
leia(p)
se (m<500) ou (p<30) entao
valor<-(p+((p/100)*10))
senao
se ((m>=500) e (m<1200)) ou ((p>=30) e (p<80)) entao
valor<-(p+((p/100)*15))
senao
se (m>=1200) ou (p>=80) entao
valor<-(p-((p/100)*20))
fimse
fimse
fimse
escreva("O novo preço é de",valor,".")
fimalgoritmo

2-Faça um programa que apresente os 8 primeiros números de fibonacci.
0, 1, 1, 2, 3, 5, 8, 13, 21, 34...


algoritmo " aula16_02"
var
n1,n2,r,x:inteiro
inicio
n1<-0
n2<-1
escreva(n1)
escreva(n2)
para x de 1 ate 8 faca
r<-n1+n2
escreva(r )
n1<-n2
n2<-r
fimpara
fimalgoritmo