algoritimo 5

Prévia do material em texto

1)Algoritmo "questao1"
Var
numX : real
numZ : real
operacao : caractere
resultado : real
inicio
escreva ("Digite o primeiro número:")
leia(numX)
escreva ("digite a operação: ")
leia (operacao)
escreva ("digite o segundo número: ")
leia (numZ)
escolha operacao
caso "+"
resultado := numX + numZ
caso "-"
resultado := numX - numZ
caso "*"
resultado := numX * numZ
caso "/"
resultado := numX / numZ
fimescolha
escreva (" resultados: ", resultado)
Fimalgoritmo
_____________________
2) Algoritmo "Questao2"
var
codigo,valortotal,valorproduto:numerico
inicio
escreval("Digite o valor do produto")
leia(valorproduto)
escreval
escreval("Formas de pagamento: ")
escreval
escreval("1 - A vista 10% desconto")
escreval("2 - 30 dias 5% desconto")
escreval("3 - para 60 dias mesmo preço")
escreval("4 - 90 dias acrescimo 5%")
escreval("5 - Cartao debito 8% de desconto")
escreval("6 - Cartao credito 7% desconto")
escreval
escreval("Digite a forma de pagamento: ")
leia(codigo)
escreval
se codigo=1 entao
valortotal <- valorproduto*0.9
escreval("Valor total: ", valortotal)
senao
	se codigo=2 entao
	valortotal<-valorproduto*0.95
	escreval("Valor total: ", valortotal," reais")
senao
	se codigo=3 entao
	valortotal <- valorproduto/2
	escreval("Valor total em 2x: ", valortotal," reais")
senao
	se codigo=4 entao
	valortotal<-valorproduto*1.05/3
	escreval("Valor total em 3x: ", valortotal," reais")
senao
	se codigo=5 entao
	valortotal <- valorproduto*1.08
	escreval("Valor total: ", valortotal," reais")
senao
	se codigo=6 entao
	valortotal<-valorproduto*1.07
	escreval("Valor total: ", valortotal," reais")
senao
	se codigo>6 entao
	escreval("Forma invalida")
	fimse
	fimse
	fimse
	fimse	
	fimse
	fimse	
Fimalgoritmo	
____________________
3) Algoritmo "Questao3"
Var
dia,mes,ano: real
Inicio
Escreval ("Estações do Ano")
Escreval
Escreval ("Digite o dia: ")
leia (dia)
Escreval ("Digite o mês: ")
Leia (mes)
Escreval ("Digite o ano: ")
leia (ano)
Escreval
Escreval ("A data digitada foi: " ,dia,"/",mes,"/",ano)
Escreval
 Escolha (mes)
 caso 1,2,3
 Escreval ("A estação do ano ao mês" ,mes, " é Verão")
 caso 4,5,6
 Escreval ("A estação do ano ao mês" ,mes, " é Outono")
 caso 7,8,9
 Escreval ("A estação do ano ao mês" ,mes, " é Inverno")
 caso 10,11,12
 Escreval ("A estação do ano ao mês" ,mes, " é Primavera")
 Outrocaso
 Escreval ("Estação não encontrada")
 Fimescolha
Fimalgoritmo