Portugol para iniciantes

Prévia do material em texto

Bruno Ferreira Dias de Lima - Algoritmos
01. Faça um algoritmo que leia o Nome e a Idade de uma criança. De acordo com a idade informar qual sala de aula a criança deve estar, de acordo com a tabela abaixo. 
	Idade
	Sala
	0 a 2 anos
	Sala 1
	3 a 5 anos
	Sala 2
	6 a 8 anos
	Sala 3
	9 a 10 anos
	Sala 4
algoritmo "sala"
var
 x1,x3:inteiro
 x2:caractere
inicio
 escreval ("Digite o Nome")
 leia (x2)
 escreval ("Digite a Idade")
 leia (x1)
 se (x1<=2) entao
 escreval (x2," - Sala 1")
 senao
 se (x1>=3) e (x1<=5) entao
 escreval (x2," - Sala 2")
 senao
 se (x1>=6) e (x1<=8) entao
 escreval (x2," - Sala 3")
 senao
 se (x1=9) ou (x1=10) entao
 escreval (x2," - Sala 4")
 fimse
 fimse
 fimse
 fimse
fimalgoritmo
02.Faça um algoritmo que verifique e mostre os números entre 1000 e 2000(inclusive) que, quando divididos por 11, produzam resto igual a 5. 
algoritmo "verificação"
var
x1,x2,x3:inteiro
inicio
para x1 de 1000 ate 2000 passo 1 faca
se (x1 mod 11) = 5 entao
escreval (x1)
x3<-x3+1
fimse
fimpara
escreval ("---------------------------------------")
escreval("foram encontrados ",x3," com o resto 5.")
fimalgoritmo
03.Uma loja tem 15 clientes cadastrados e deseja enviar uma correspondência a cada um deles anunciando um bônus especial. Faça um algoritmo que leia o nome do cliente e o valor de suas compras no ano passado. Calcule e mostre um bônus de 10% se o valor das compras for menor que R$ 1000,00 e de 15%, caso contrário.
algoritmo "cadastro"
var
 x1,x3:real
 x2:caractere
inicio
 escreval (" Cadastrados ")
 escreval ("----------------------------------")
 escreval ("1 - Bruno 8 - Júnior")
 escreval ("2 - Carlos 9 - Pedro")
 escreval ("3 - Juliana 10 - Lara")
 escreval ("4 - Gabriella 11 - Júlia")
 escreval ("5 - Júlia 12 - Yana")
 escreval ("6 - Yanka 13 - Mário")
 escreval ("7 - Mário 14 - André")
 escreval ("----------------------------------")
 escreval ("Digite seu nome")
 leia(x2)
 escreval ("Digite o valor gasto em R$")
 leia(x1)
 se (x1<=1000) entao
 x3<-x1*0.15
 escreval ("-----------------------")
 escreval ("o bônus é R$",x3)
 senao
 se (x1>=1001) entao
 x3<-x1*0.15
 escreval ("-----------------------")
 escreval ("o bônus é R$",x3)
 fimse
 fimse
fimalgoritmo
04.Cada espectador de um cinema respondeu a um questionário no qual constava sua idade e a 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 15 expectadores e que calcule e mostre: 
a média das idades das pessoas que responderam ótimo; 
a quantidade de pessoas que respondeu regular; 
a percentagem de pessoas que respondeu bom entre todos os espectadores analisados. 
algoritmo "otimo,bom ou regular?"
var
 x1,id,op,conti,contb,reg:inteiro
 somax1 : real
inicio
 somax1<-0
 contb<-0
 conti<-0
 para x1 de 1 ate 15 faca
 escreval("Entre com a idade do ",x1,"entrevistado: ")
 leia(id)
 escreval("Qual a opinião sobre o filme (3 - excelente; 2 - bom; 1 - regular): ")
 leia(op)
 se(op=3) entao
 somax1<- somax1 + id
 conti<-conti + 1
 fimse
 se(op=1) entao
 regu<-regu+1
 fimse
 se(op=2) entao
 contb<-contb + 1
 fimse
 fimpara
 escreval("A média de quem respondeu excelente: ",somax1/conti)
 escreval("A quantidade de pessoas que responderam regular: ",regu)
 escreval("porcentagem de pessoas que responderam bom: ",contb*100/20,"%")
fimalgoritmo
05.Faça um algoritmo que leia uma variável de 100 elementos numéricos e verifique se existe elementos igual a 30. Se existirem, escrever as posições em que estão armazenados.
algoritmo "trintao"
var
 i,x1,x2,cont:inteiro
inicio
 escreval ("Digite um número qualquer")
 leia (x1)
 cont <- 0
 x2 <- x1+100
 para i de x1 ate x2 passo 1 faca
 cont <- cont + 1
 se i=30 entao
 escreval ("a posição é", cont)
 fimse
 fimpara
fimalgoritmo