Exercícios resolvidos

Prévia do material em texto

32	algoritmo "Aumento de Salário"
// Função : aumneto de 30% no salário caso ele seja menor que R$500,00
// Autor : Uriel Felipe 
// Data : 26/9/2012
// Seção de Declarações 
var
salario, novosalario:real
inicio
 escreva("Digite o salário: ")
 leia (salario)
 se (salario <500) entao
 novosalario <-(salario*1.30)
 escreva("o novo salario é de R$",novosalario:1:2)
 senao
 escreva("Sem direito ao aumento")
 fimse
 
// Seção de Comandos 
fimalgoritmo
33	algoritmo "Aumento de Salário"
// Função : aumento de 35% no salário caso ele seja até R$300,00 e 15% acima de R$300
// Autor : Uriel Felipe 
// Data : 26/9/2012
// Seção de Declarações 
var
salario, novosalario:real
inicio
 escreva("Digite o salário: ")
 leia (salario)
 se (salário <=300) entao
 novosalario <-(salario*1.35)
 escreva("o novo salário é de R$",novosalario:1:2)
 senao
 novosalario<-(sal*1.15)
 escreva("novo salário é de R$",novosalario:1:2)
 fimse
 
// Seção de Comandos 
fimalgoritmo
34	algoritmo "Crédito especial"
// Função : Calcular crédito especial de acordo com o saldo médio
// Autor : Uriel Felipe 
// Data : 26/9/2012
// Seção de Declarações 
var
saldom, valorcr: real
inicio
 escreva("Digite o valor do saldo médio do ultimo Ano: ")
 leia (saldom)
 se saldom <= 200 entao
 valorcr <-(saldom*10)/100
 escreva("O valor do crédito disponivel é de R$",valorcr:1:2)
 senao
 se (saldom >= 200.01) e (saldom <= 300) entao
 valorcr<-(saldom*20)/100
 escreva("O valor do crédito disponivel é de R$",valorcr:1:2)
 senao
 se (saldom >= 300.01) e (saldom <= 400) entao
 valorcr<-(saldom*25)/100
 escreva("O valor do crédito disponivel é de R$",valorcr:1:2)
 senao
 se (saldom > 400.01) entao
 valorcr<-(saldom*30)/100
 escreva("O valor do crédito disponivel é de R$",valorcr:1:2)
 fimse
 fimse
 fimse
 
// Seção de Comandos
fimalgoritmo
35	algoritmo "Preço para consumidor"
// Função : Calcular preço final de um automovel, com impostos e %do distribuidor dependendo do valor de custo de fabrica do carro
// Autor : Uriel Felipe
// Data : 26/09/2012
// Seção de Declarações
var
prCusto, prFinal: real
inicio
escreval ("Digite o preço de custo do automóvel : ")
leia(prCusto)
se prCusto <= 12000 entao
 prFinal<- prCusto*1.05
 limpatela
 escreval("O valor do Automovel para consumidor final é: R$ ",prFinal:1:2)
senao
 se prCusto < 25000 entao
 prFinal<- prCusto*1.10
 limpatela
 escreval("O valor do Automovel para consumidor final é: R$ ",prFinal:1:2)
 senao
 prFinal<- prCusto*1.15
 limpatela
 escreval("O valor do Automovel para consumidor final é: R$ ",prFinal:1:2)
 fimse
fimse
// Seção de Comandos
fimalgoritmo
36	algoritmo "Aumento de Salário"
// Função : calcular aumento de salário de acordo com a faixa salarial
// Autor : Uriel Felipe
// Data : 26/9/2012
// Seção de Declarações 
var
salario, novosalario,valoraum: real
inicio
 escreva("Digite o salário: ")
 leia (salario)
 se salario <= 300 entao
 valoraum<-(sal*15)/100
 novosalario <- valoraum + salario
 escreva("O valor do aumento disponivel é de R$",valoraum:1:2)
 escreva("O novo salario é de R$",novosalrio:1:2)
 senao
 se (salario >= 300.01) e (salario <= 600) entao
 valoraum <-(sal*10)/100
 novosalario <-valoraum + salario
 escreva("O valor do aumento disponivel é de R$",valoraum:1:2)
 escreva("O novo sálario é de R$",novosalario:1:2)
 senao
 se (salario >= 600.01) e (salario <= 900) entao
 valoraum <-(sal*5)/100
 novosalario <-valoraum + salario
 escreva("O valor do aumento disponivel é de R$",valoraum:1:2)
 escreva("O novo sálario é de R$",novosalario:1:2)
 senao
 escreva("Sálario sem aumento!!")
 fimse
 fimse
 fimse
 
// Seção de Comandos
fimalgoritmo
47	 algoritmo "Procedência"
// Função : Mostrar a procedência de um produto de acrodo com seu código
// Autor : Uriel Felipe
// Data : 26/09/2012
// Seção de Declarações 
var
codigo:inteiro
preco:real
inicio
escreva("digite o preço do produto: ")
leia (preco)
escreva("digite o código de origem do produto: ")
leia (codigo)
 se (código > 30) entao
 escreva("Código inexistente!!!")
 senao
 escolha (codigo)
 caso 1
 escreva ("ORIGEM SUL")
 caso 2
 escreva ("ORIGEM NORTE")
 caso 3
 escreva ("ORIGEM LESTE")
 caso 4
 escreva ("ORIGEM OESTE")
 caso 5,6
 escreva ("ORIGEM NOROESTE")
 caso 7,8,9
 escreva ("ORIGEM SUDESTE")
 caso >10 , <20
 escreva ("ORIGEM CENTRO-OESTE")
 outrocaso
 escreva ("ORIGEM NORDESTE")
 fimescolha
 fimse
// Seção de Comandos 
fimalgoritmo
48	algoritmo "classificação de risco"
// Função : Calcular a classificação de uma pessoa de acordo com a idade e peso
// Autor : Uriel Felipe
// Data : 26/9/2012
// Seção de Declarações 
var
idade, peso: real
inicio
escreva("Digite sua idade:")
leia (idade)
escreva("Digite o seu peso:")
leia (peso)
se (idade <=20) entao
 se (peso <=60) entao
 escreva("Grupo de risco 9")
 senao
 se (peso>60) e (peso<=90) entao
 escreva("Grupo de risco 8")
 senao
 se (peso>90) entao
 escreva("Grupo de risco 7")
 fimse
 fimse
 fimse
fimse
se (idade> 20) e (idade <=50) entao
 se (peso <=60) entao
 escreva("Grupo de risco 6")
 senao
 se (peso> 60) e (peso<=90) entao
 escreva("Grupo de risco 5")
 senao
 se (peso> 90) entao
 escreva("Grupo de risco 4")
 fimse
 fimse
 fimse
fimse
se (idade> 50) entao
 se (peso <=60) entao
 escreva("Grupo de risco 3")
 senao
 se (peso> 60) e (peso <=90) entao
 escreva("Grupo de risco 2")
 senao
 se (peso> 90) entao
 escreva("Grupo de risco 1")
 fimse
 fimse
 fimse
fimse
// Seção de Comandos 
fimalgoritmo
49	algoritmo "Codigo e quantidade"
// Função : calcular e mostrar preço unitário,preço total, valor de desconto e preço final
// Autor : Uriel Felipe
// Data : 26/9/2012
// Seção de Declarações 
var
 codigo, qtd: inteiro
 valoruni, totalnt,valordesc,valorfinal: real
inicio
 escreva("Digite o código do produto: ")
 leia(codigo)
 escreva("Digite a quantidade do produto: ")
 leia (qtd)
 
 se (codigo <=10) entao
 valoruni <-10
 totalnt <- qtd * valoruni
 se (totant <=250) entao
 valordesc <-(totalnt * 5)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal :1:2)
 senao
 se (totalnt>250) e (totalnt <=500) entao
 valordesc <-(totalnt *10)/100
 valorfinal <- totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt> 500) entao
 valordesc <-(totalnt*15)/100
 vl_fina <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 fimse
 fimse
 fimse
 fimse
 
 se (codigo>=11) e (codigo<=20) entao
 valoruni<-15
 totalnt <- qtd * valoruni
 se (totalnt <=250) entao
 valordesc <-(totalnt*5)/100
 valorfinal <- totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt>250) e (totalnt <=500) entao
 valordesc <-(totalnt * 10)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt>500) entao
 valordesc<-(totalnt*15)/100
 valorfinal<-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 fimse
 fimse
 fimse
 fimse
 
 se (código >= 21) e (código <= 30) entao
 valoruni <-20
 totalnt <- qtd * valoruni
 se (totalnt <=250) entao
 valordesc <-(totalnt*5)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt >250) e (totalnt <=500) entao
 valordesc <-(totalnt*10)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt>500) entao
 valordesc <-(totalnt * 15)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 fimse
 fimse
 fimse
 fimse
 
 se (código >= 31) e (código <= 40) entao
 valoruni <-30
 totalnt <- qtd * valoruni
 se (totalnt <= 250) entao
 valordesc <-(totalnt * 5)/100
 valorfinal <- totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt>250) e (totalnt<=500) entao
 valordesc <-(totalnt*10)/100
 valorfinal <- totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 senao
 se (totalnt>500) entao
 valordesc <-(totalnt*15)/100
 valorfinal <-totalnt - valordesc
 escreva("Valor Unitário: R$",valoruni:1:2)
 escreva("Valor Total da Nota: R$",totalnt:1:2)
 escreva("Valor Desconto: R$",valordesc:1:2)
 escreva("Valor Final com Desconto: R$",valorfinal:1:2)
 fimse
 fimse
 fimse
 fimse
 se código >=41 entao
 escreva("Código do produto inexistente")
 fimse
 
// Seção de Comandos 
fimalgoritmo
50	algoritmo "Preço, Categoria e Situação"
// Função : Calculo de novo preço, de acordo com categoria e situação
// Autor : Uriel Felipe
// Data : 26/9/2012
// Seção de Declarações 
var
valorprod, valoraum, nivelprod, valorimp:real
categoria, situa: caracter
inicio
 escreva("Digite o valor do produto:")
 leia(valorprod)
 escreva("Digite um valor para categoria:")
 escreva("Digite 1- Limpeza")
 escreva("Digite 2- Alimentação")
 escreva("Digite 3- Vestuário")
 leia(categoria)
 escreva("Digite um R ou N para a situação:")
 escreval("Digite R- Produtos que necessitam de refrigeração")
 escreval("Digite N- Produtos que não necessitam de refrigeração")
 leia(situa)
 se (valorprod <=25) e (categoria ="1") entao
 valoraum <- (valorprod * 5)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 senao
 se (valorprod <=25) e (categoria ="2") entao
 valoraum <- (valorprod * 8)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 senao
 se (valorprod <=25) e (categoria ="3") entao
 valoraum <- (valorprod * 10)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 fimse
 fimse
 fimse
 
 se (valorprod > 25) e (categoria ="1") entao
 valoraum <- (valorprod * 12)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 senao
 se (valorprod > 25) e (categoria ="2") entao
 valoraum <- (valorprod * 15)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 senao
 se (valorprod > 25) e (categoria ="3") entao
 valoraum <- (valorprod * 18)/100
 escreva("O produto tera um aumento de R$",valoraum:1:2)
 fimse
 fimse
 fimse
 se (categoria="2") ou (situa="r") entao
 valorimp <-((valorprod + valoraum)*5)/100
 escreva("Será cobrado um imposto de 5% do valor do produto")
 escreva("O valor do imposto é de R$",valorimp:1:2)
 senao
 valorimp<-((valorprod + valoraum)*8)/100
 escreva("Será cobrado um imposto de 8% do valor do produto")
 escreva("O valor do imposto é de R$",valorimp:1:2)
 fimse
 nivelprod<-(valorprod + valoraum - valorimp)
 
 se (nivelprod <=50) entao
 escreva("O novo valor do produto é R$ ",nivelprod:1:2)
 escreva("Classificação: Barato")
 senao
 se (nivelprod >50.01) e (nivelprod <120) entao
 escreva("O novo valor do produto é R$ ",nivelprod:1:2)
 escreva("Classificação: Normal")
 senao
 se (nivelprod >=120.01) entao
 escreva("O novo valor do produto é R$ ",nivelprod:1:2)
 escreva("Classificação: Caro")
 fimse
 fimse
 fimse
// Seção de Comandos 
fimalgoritmo