Algoritmos
01-40
Aluno: Renan D. Costa
Turma: TDS112a
algoritmo "Exercício1"
// Função : 1. Faça um algoritmo que receba dois números e exiba o resultado da sua soma.
// Autor : Renan D. Costa
// Seção de Declarações
var
s,n1,n2:inteiro
inicio
// Seção de Comandos
escreval("Digite Primeiro Numero:")
leia(n1)
escreval("Digite Segundo Numero:")
leia(n2)
s<-n1+n2
escreval("Resultado da SOMA ",s)
fimalgoritmo
algoritmo "Exercício2"
// Função : 2. Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.
// Autor : Renan D. Costa
// Seção de Declarações
var
n1,n2:real
inicio
// Seção de Comandos
escreval("Digite Primeiro Numero: ")
leia(n1)
escreval("Digite Segundo Numero: ")
leia(n2)
escreval("A soma e ",n1+n2)
escreval("A subtracao e ",n1-n2)
escreval("A multiplicacao e ",n1*n2)
se(n2=0.0)entao
escreva("Divisao: Infinito")
senao
escreval("A divisao é ",n1/n2)
fimalgoritmo
algoritmo "exercício3"
// Função : 3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo
//automóvel e o total de combustível gasto.
// Autor : Renan D. Costa
// Seção de Declarações
var
dis,cm,cg:real
//dis=distância, cg=combustível gasto, cm=consumo médio
inicio
// Seção de Comandos
escreval("Informe a distancia percorrida: ")
leia(dis)
escreval("informe o total de combustivel gasto em litros: ")
leia(cg)
escreval("O automóvel faz em media ",dis/cg," km/l")
fimalgoritmo
algoritmo "Exercício4"
// Função : 4. Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o
//total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 15%
//de comissão sobre suas vendas efetuadas, informar o seu nome, o salário fixo e salário no final do mês.
// Autor : Renan D. Costa
// Seção de Declarações
var
nome: literal
salfixo,totalvendas,salfinal:real
inicio
// Seção de Comandos
escreval("Digite o nome do funcionario: ")
leia(nome)
escreval("Informe o seu salario fixo: ")
leia(salfixo)
escreval("Informe o total de vendas em R$: ")
leia(totalvendas)
salfinal <- (0.15 * totalvendas) + salfixo
// Resultados
escreva("Funcionario: ",nome)
escreval("o salario fixo e: ",salfinal)
escreval("o salario com comissao e: ",salfinal)
fimalgoritmo
algoritmo "Exercício5"
// Função : 5. Escrever um algoritmo que leia o nome de um aluno e as
//notas das três provas que ele obteve no semestre. No final informar o nome do aluno e a sua média (aritmética).
// Autor : Renan D. Costa
// Seção de Declarações
var
media,nota:real
x:inteiro
nome:literal
//Define
nota<-0
inicio
// Seção de Comandos
escreval("Informe o nome do aluno: ")
leia(nome)
para x de 1 até 3
escreval("Informe suas notas: ")
media=nota+nota
x=x+1
fimpara
escreva("Aluno: ",nome)
escreva("Media: "media/3),
fimalgoritmo
algoritmo "Exercício6"
// Função : 6. Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável
// A passe a possuir o valor da variável
// B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados.
// Autor : Renan D. Costa
// Seção de Declarações
var
a,b,c:inteiro
inicio
// Seção de Comandos
escreval("Informe o valor de a: ")
leia(a)
escreval("Informe o valor de b: ")
leia(b)
c<-a
a<-b
b<-c
escreval("O novo valor de a e: ",a)
escreval("O novo valor de b e: ",b)
fimalgoritmo
algoritmo "Exercício7"
// Função :7. Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula de conversão é:
//F=(9*C+160) / 5, sendo F a temperatura em Fahrenheit e C a temperatura em Celsius.
// Autor : Renan D. Costa
// Seção de Declarações
var
c,f:real
inicio
// Seção de Comandos
escreval("informe a temperatura em graus C:")
leia(c)
f<-(9*c+160)/5
escreval("Temperatura em graus F: ",f)
fimalgoritmo
algoritmo "exercicio8"
// Função : 8. Elaborar um algoritmo que efetue a apresentação do valor da conversão em real (R$) de um valor lido em dólar (US$).
// O algoritmo deverá solicitar o valor da cotação do dólar e também a quantidade de dólares disponíveis com o usuário.
// Autor : Renan D. Costa
// Seção de Declarações
var
vld,vlr,cot:real
inicio
// Seção de Comandos
escreval("Informe um valor em U$: ")
leia(vld)
escreval("Informe a cotacao do dolar: ")
leia(cot)
vlr<- (vld*cot)
escreva("Valor em U$: ",vld)
escreva(Valor em R$: ",vlr)
fimalgoritmo
algoritmo "Exercício9"
// Função : 9. Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês.
// Considere fixo o juro da poupança em 0,70% a. m.
// Autor : Renan D. Costa
// Seção de Declarações
var
dep,rend:real
inicio
// Seção de Comandos
escreval("Informe o valor do deposito em R$: ")
leia(dep)
rend <- (dep * (0.7 /100))
escreval("O valor com rendimento eh de ",dep+rend)
fimalgoritmo
algoritmo "exercício10"
// Função : 10. A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco) prestações sem juros.
// Faça um algoritmo que receba um valor de uma compra e mostre o valor das prestações.
// Autor : Renan D. Costa
// Seção de Declarações
var
compra,prestacao:real
inicio
// Seção de Comandos
escreva("Informe o valor da compra em R$: ")
leia(compra)
escreval("O valor das prestacoes e de: R$ ", compra/5)
fimalgoritmo
algoritmo "Exercício11"
// Função : 11. Faça um algoritmo que receba o preço de custo de um produto e mostre o valor de venda.
// Sabe-se que o preço de custo receberá um acréscimo de acordo com um percentual informado pelo usuário.
// Autor : Renan D. Costa
// Seção de Declarações
var
pc,ac:real
//pc = preco de custo, ac=acrescimo
inicio
// Seção de Comandos
escreval("Informe o preco de custo do produto em R$: ")
leia(pc)
escreval("Informe o percentual de acrescimo: ")
leia(ac)
ac<-(ac /100) *pc
escreva("Valor de acrescimo:",ac"%")
escreva("Valor total: ",ac+pc)
fimalgoritmo
algoritmo "exercício12"
// Função : 12. O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos
// (aplicados, primeiro os impostos sobre o custo de fábrica, e depois a percentagem do distribuidor sobre o resultado).
// Supondo que a percentagem do distribuidor seja de 28% e os impostos 45%.
// Escrever um algoritmo que leia o custo de fábrica de um carro e informe o custo ao consumidor do mesmo.
// Autor : Renan D. Costa
// Seção de Declarações
var
custoFabrica, custoFinal: real
inicio
// Seção de Comandos
escreva("Informe o custo de fábrica do veículo: ")
leia(custoFabrica)
custoFinal <- custoFabrica + (0.28 * custoFabrica) + (0.45 * custoFabrica)
custoFinal <- custoFinal + (0.45 * custoFinal)
escreval("O custo para o consumidor final é de: ",custoFinal)
fimalgoritimo
fimalgoritmo
algoritmo "Exercicio13"
// Função : 13. Faça um algoritmo que receba um número e mostre uma mensagem caso este número seja maior que 10.
// Autor : Renan D. Costa
// Seção de Declarações
var
num: inteiro
inicio
// Seção de Comandos
escreval("Informe um numero: ")
leia(num)
se num > 10 entao
escreval("Voce digitou numero maior que 10")
senao
escreval("O numero digitado nao e maior que 10!")
fimse
fimalgoritmo
algoritmo "Exercício14"
// Função : 14. Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior.
// Autor : Renan D. Costa
// Seção de Declarações
var
n1,n2:inteiro
inicio
// Seção de Comandos
escreva("Informe dois numeros inteiros distintos !")
escreval("Informe o primeiro numero: ")
leia(n1)
escreval("Informe o segundo numero:")
leia(n2)
se n1=n2 entao
escreva("Numero digitado nao e distinto !")
senao
se n1>n2 entao
escreval(n1," eh maior que ",n2)
senao
escreval(n2," eh maior que ",n1)
fimse
fimse
fimalgoritmo
algoritmo "Exercício15"
// Função : 15. Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.
// Autor : Renan D. Costa
// Seção de Declarações
var
n:inteiro
inicio
// Seção de Comandos
escreval("informe um numero:")
leia(n)
se (n >=100) e (n<=200) entao
escreval("O numero está entre 100 e 200")
senao
escreval("O Numero esta fora do intervalo de 100 a 200")
fimse
fimalgoritmo
algoritmo "Exercício16"
// Função : 16. Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno
// durante o semestre. Calcular a sua média (aritmética), informar o nome e sua menção aprovado (media >= 7),
// Reprovado (media <= 5) e Recuperação (media entre 5.1 a 6.9).
// Autor : Renan D. Costa
// Seção de Declarações
var
n1,n2,n3,media:real
nome:literal
inicio
// Seção de Comandos
escreval("Informe o nome do Aluno: ")
leia(nome)
escreval("Informe a primeira media:")
leia(n1)
escreval("Informe a segunda media:")
leia(n2)
escreval("Informe a terceira media:")
leia(n3)
media<-(n1+n2+n3)/3
se (media <=7) entao
escreval("O aluno ",nome," esta aprovado")
senao
se media <=5 entao
escreval("O aluno ",nome," reprovado")
senao
escreval("O aluno ",nome," em recuperacao")
fimse
fimse
fimalgoritmo
algoritmo "Exercício17"
// Função : 17. Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).
// Autor : Renan D. Costa
// Seção de Declarações
var
x,i,soma:inteiro
inicio
// Seção de Comandos
soma<-0
para i de 1 ate 80 faca
escreval("Informe o valor do numero ",i)
leia(x)
se ((x >=10) ou (x <=150)) entao
soma<-soma+1
fimse
fimpara
escreval("Foram encontrados ",soma," numeros entre 10 e 150")
fimalgoritmo
algoritmo "Exercício18"
// Função : 18. Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando "maior de idade" e "menor de idade"
// para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.
// Autor : Renan D. Costa
// Seção de Declarações
var
i,idade:inteiro
inicio
// Seção de Comandos
para i de 1 ate 75 faca
escreval("Informe a idade ",i)
leia(idade)
se idade >=18 entao
escreval("Maior de idade")
senao
escreval("menor de idade")
fimse
fimpara
fimalgoritmo
algoritmo "Exercício19"
// Função :19. Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher.
// No final informe total de homens e de mulheres.
// Autor : Renan D. Costa
// Seção de Declarações
var
nome,sexo:literal
h,m,i,sexovalido:inteiro
//h= total de homens, m= total de mulheres
inicio
// Seção de Comandos
para i de 1 ate 6 faca
sexovalido <- 0
escreval("Informe o nome da pessoa ",i)
leia(nome)
enquanto sexovalido = 0 faca
escreval("Escolha o sexo: ")
escreval("F - Feminino")
escreval("M - Masculino")
leia(sexo)
escolha(sexo)
caso "F"
sexovalido<-1
caso "M"
sexovalido<-1
outrocaso
sexovalido<-0
escreval("Opção Invalida, tente novamente!")
fimescolha
fimenquanto
se sexo = "F" entao
m<-m+1
escreval(nome," eh mulher!")
senao
h<-h+1
escreval(nome," eh homem!")
fimse
fimpara
escreval("Foram informados ",h," homens e ",m," mulheres")
fimalgoritmo
algoritmo "Exercício20"
// Função : 20. A concessionária de veículos "CARANGO VELHO" está vendendo os seus veículos com desconto.
// Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros.
// O desconto deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%.
// O sistema deverá perguntar se deseja continuar calculando desconto até que a resposta seja: "(N) Não" .
// Informar total de carros com ano até 2000 e total geral.
// Autor : Renan D. Costa
// Seção de Declarações
var
desc,vc,vv:real
ano,car2000,total:inteiro
continua,opc:caractere
inicio
// Seção de Comandos
car2000<-0
total<-0
enquanto continua <> "N" faca
limpatela
escreval("Informe 0 valor do Veiculo em R$ :")
leia(vv)
escreval("Informe o ano do veiculo: ")
leia(ano)
se ano > 2000 entao
desc<-0.07 *(vv)
senao
desc<-0.12 *(vv)
car2000 <- car2000 +1
fimse
vc<- vv-desc
escreval("O valor final para o cliente eh de R$ ",vc)
opc<-"P"
//Opcao recebe P (perguntar)
enquanto opc = "P" faca
escreval("Deseja calcular outro veiculo?")
escreval("S - SIM")
escreval("N - NAO")
leia(opc)
se (opc = "S") ou (opc = "N" ) entao
continua <- opc
senao
limpatela
escreval("Opcao invalida. tente novamente!")
opc<-"P"
fimse
fimenquanto
total<-total+1
limpatela
fimenquanto
escreval("Foram informados ",total," carros, entre eles ",car2000," são ate o ano 2000")
fimalgoritmo
algoritmo "Exercício21"
// Função : Escrever um algoritmo que leia os dados de N pessoas (nome, sexo, idade e saúde) e informe se está apta ou não para cumprir o serviço militar obrigatório. Informe os totais.
// Autor : Renan D. Costa
// Seção de Declarações
var
programa, idade, apto: inteiro
nome, sexo, saude, opc: caractere
totApto, total: inteiro
inicio
// Seção de Comandos
programa <- 1
enquanto programa = 1 faca
limpatela
apto <- 1
saude <- "B"
total <- total + 1
escreva("Digite o nome: ")
leia(nome)
escreva("Digite o sexo (M/F): ")
leia(sexo)
escreva("Digite a idade: ")
leia(idade)
se idade < 18 entao
apto <- 0
fimse
escreval("Digite o estado de saúde: ")
escreva("(B) Bom - (R) - Ruim - ")
leia(saude)
se saude = "R" entao
apto <- 0
senao
se saude <> "B" entao
apto <- 0
fimse
fimse
se apto = 1 entao
totApto <- totApto + 1
fimse
escreval("Deseja continuar filtrando (S/N)? ")
leia(opc)
se opc = "N" entao
programa <- 0
fimse
fimenquanto
limpatela
escreval("Resumo geral: ")
escreval("Foram filtrados: ",total," pessoas")
escreval("Aptos: ",totApto)
escreval("")
fimalgoritmo
algoritmo "Exercício22"
// Função : 22. Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos.
// Mostre como resultado se houve lucro, prejuízo ou empate para cada produto.
// Informe media de preço de custo e do preço de venda.
// Autor : Renan D. Costa
// Seção de Declarações
var
custo,venda,totalcusto,totalvenda,diferenca:real
i:inteiro
inicio
// Seção de Comandos
totalcusto<-0
totalvenda<-0
para i de 1 ate 40 faca
escreval("Informe o valor de custo do produto ",i,":")
leia(custo)
escreval("Informe o valor de venda:")
leia(venda)
diferenca<-venda-custo
se diferenca = 0 entao
escreval("Houve empate")
senao
se diferenca > 0 entao
escreval("Houve lucro")
senao
escreval("Houve prejuizo")
fimse
fimse
totalcusto<-totalcusto+custo
totalvenda<-totalvenda+venda
fimpara
escreval("A media de custo foi: ",totalcusto/40)
escreval("A media de venda foi: ",totalvenda/40)
fimalgoritmo
algoritmo "Exercicio23"
// Função :23. Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor que 25 ou igual a 40.
// Autor : Renan D. Costa
// Seção de Declarações
var
numero:inteiro
inicio
// Seção de Comandos
escreval("Informe um numero")
leia(numero)
se numero > 80 entao
escreval("O numero e maior que 80")
senao
se numero < 25 entao
escreval("O numero e menor que 25!")
senao
se numero = 40 entao
escreval("O numero e ogual a 40")
senao
escreval("Numero Invalido")
fimse
fimse
fimse
fimalgoritmo
algoritmo "exercicio24"
// Função : 24. Faça um algoritmo que receba "N" números e mostre positivo, negativo ou zero para cada número.
// Autor : Renan D. Costa
// Seção de Declarações
var
numero:inteiro
continue,opc: caractere
inicio
// Seção de Comandos
continue <-"S"
enquanto continue <> "N" faca
escreval("Informe um Numero:")
leia(numero)
se numero = 0 entao
escreval("Numero zero")
senao
se numero >0 entao
escreval("Numero positivo")
senao
escreval("Numero negativo")
fimse
fimse
escreva("[S] SIm ou [N] Nao")
escreval("Deseja continuar informando numeros?")
leia(opc)
escolha(opc)
caso 'S' caso 's'
continue <-"S"
caso 'N' caso 'n'
continue <-"N"
outrocaso
escreva("Opc Invalida")
continue <-"N"
fimescolha
fimenquanto
fimalgoritmo
algoritmo "Exercício25"
// Função :25. Faça um algoritmo que leia dois números e identifique se são iguais ou diferentes.
// Caso eles sejam iguais imprima uma mensagem dizendo que eles são iguais. Caso sejam diferentes,
// informe qual número é o maior, e uma mensagem que são diferentes.
// Autor : Renan D. Costa
// Seção de Declarações
var
x,y:inteiro
inicio
// Seção de Comandos
escreval("Informe o primeiro numero:")
leia(x)
escreval("Informe o segundo numero")
leia(y)
se x=y entao
escreval("Numeros iguais")
senao
se x>y entao
escreval(x," e maior que ",y)
senao
escreval(y," e maior que ",x)
fimse
fimse
fimalgoritmo
algoritmo "Exercício26"
// Função : 26. Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso.
// Caso o usuário digite um número que não esteja neste intervalo, exibir mensagem: número inválido.
// Autor : Renan D. Costa
// Seção de Declarações
var
numero:inteiro
inicio
// Seção de Comandos
escreval("Informe um numero de 1 a 5")
leia(numero)
escolha numero
caso 1
escreval("Um")
caso 2
escreval("Dois")
caso 3
escreval("Tres")
caso 4
escreval("Quatro")
caso 5
escreval("Cinco")
outrocaso
escreval("Numero Invalido")
fimescolha
fimalgoritmo
algoritmo "exercício27"
// Função : 27. A concessionária de veículos "CARANGO" está vendendo os seus veículos com desconto.
// Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente.
// O desconto deverá ser calculado sobre o valor do veículo de acordo com o combustível (álcool - 25%, gasolina - 21% ou diesel -14%).
// Com valor do veículo zero encerra entrada de dados. Informe total de desconto e total pago pelos clientes.
// Autor : Renan D. Costa
// Seção de Declarações
var
vf,des,vv,td,tp:real
combustivel:caractere
//vf = Valor, final des=desconto, vv=valor veiculo, td=total desconto, tp=total pago
inicio
// Seção de Comandos
td<-0
tp<-0
escreval("informe o valor do veículo. (Valor 0 encerra o programa)")
leia(vv)
enquanto vv > 0 faca
repita
escreval("Informe o tipo de combustivel")
escreval("A - Alcool")
escreval("G - Gasolina")
escreval("D - Diesel")
leia(combustivel)
ate ((combustivel ="A") ou (combustivel ="G") ou (combustivel ="D"))
escolha(combustivel)
caso "A"
des<-(0.25)*vv
caso "G"
des<-(0.21)*vv
caso "D"
des<-(0.14)*vv
fimescolha
vf<-vv-des
td<-td+des
tp<-tp+vf
escreval("o valor do Veiculo com desconto de R$ ",des," e de R$ ",vf)
escreval("informe o valor do veículo. (Valor 0 encerra o programa)")
leia(vv)
fimenquanto
escreval("Valor total de descontos: R$", td)
escreval("Valor total pago pelos clientes: R$", tp)
fimalgoritmo
algoritmo "Exercício28"
// Função :28. Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os seguintes critérios:
// a) 50% para aqueles que ganham menos do que três salários mínimos;
// b) 20% para aqueles que ganham entre três até dez salários mínimos;
// c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
// d) 10% para os demais funcionários.
// Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.
// Autor : Renan D. Costa
// Seção de Declarações
var
reajuste,salario,sminimo,aumento:real
nome:literal
i,fim:inteiro
inicio
// Seção de Comandos
escreval("Informe o valor do salario minimo")
leia(sminimo)
fim<-10
para i de 1 ate fim faca
escreval("Informe o nome do ",i," funcionario:")
leia(nome)
escreval("Informe o salario em R$:")
leia(salario)
se (salario/sminimo) < 3 entao
reajuste<-(0.5)*salario
senao
se ((salario/sminimo) >= 3 ) e ((salario/sminimo)<=10) entao
reajuste<-(0.2)*salario
senao
se ((salario/sminimo) > 10 ) e ((salario/sminimo)<=20) entao
reajuste<-(0.15)*salario
senao
reajuste<-(0.10)*salario
fimse
fimse
fimse
escreval(nome, " recebeu reajuste de ",reajuste)
escreval("O novo salario passou de R$ ",salario," para R$ ",salario+reajuste)
aumento<-aumento+reajuste
fimpara
escreval("O aumento na folha foi de R$ ",aumento)
fimalgoritmo
algoritmo "Exercício29"
// Função : 29. Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido.
// Autor : Renan D. Costa
// Seção de Declarações
var
mes:inteiro
inicio
// Seção de Comandos
escreval("Entre com o numero do mes:")
leia(mes)
escolha(mes)
caso 1
escreval("Janeiro")
caso 2
escreval("Fevereiro")
caso 3
escreval("Marco")
caso 4
escreval("Abril")
caso 5
escreval("Maio")
caso 6
escreval("Junho")
caso 7
escreval("Julho")
caso 8
escreval("Agosto")
caso 9
escreval("Setembro")
caso 10
escreval("Outubro")
caso 11
escreval("Novembro")
caso 12
escreval("Dezembro")
outrocaso
escreval("Mes invalido")
fimescolha
fimalgoritmo
algoritmo "Exercício30"
// Função :
// 30. Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:
// Autor :Renan D. Costa
// Seção de Declarações
var
idade:inteiro
nome:literal
sexo:caractere
sf,sl:real
inicio
// Seção de Comandos
escreval("Informe o nome do funcionario:")
leia(nome)
escreval("Informe o salario fixo em R$:")
leia(sf)
escreval("Informe a idade")
leia(idade)
sexo<-""
repita
escreval("Informe o sexo: F ou M ")
leia(sexo)
ate (sexo="M") ou (sexo="F")
escolha(sexo)
caso "F"
se idade >=30 entao
sl<-sf+200
senao
sl<-sf+80
fimse
caso "M"
se idade >=30 entao
sl<-sf+100
senao
sl<-sf+50
fimse
fimescolha
escreval("O salario liquido de ",nome," eh R$",sl)
fimalgoritmo
algoritmo "exercício31"
// Função :31. Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente.
// Autor : Renan D. Costa
var
x,j,i:inteiro
num:vetor[0..2] de inteiro
inicio
// Seção de Comandos
para i de 0 ate 2 faca
escreval("Informe o numero ",i+1)
leia(num[i])
//v[i]<-i
fimpara
para i de 0 ate 2 faca
para j de (0) ate 2 faca
se num[i]<num[j] entao
x<-num[i];
num[i]<-num[j]
num[j]<-x
fimse
fimpara
fimpara
escreval("ordem crescente!")
para i de 0 ate 2 faca
escreval(num[i])
fimpara
//Ordem decrescente
//escreval("ordem decrescente!")
//para i de 2 ate 0 passo -1 faca
//escreval(num[i])
//fimpara
Fimalgoritmo
algoritmo "exercício32"
// Função : 32. Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o
// resultado da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser
// impressa uma mensagem de operador não definido. Tratar erro de divisão por zero.
// Autor : Renan D. Costa
var
a,b:real
c:caractere
inicio
// Seção de Comandos
escreval("informe um valor para A")
leia(a)
escreval("Informe um valor para B")
leia(b)
escreval("Informe um operador para a operação")
escreval("Adicao: +")
escreval("Subtracao: -")
escreval("Divisao: /")
escreval("Multiplicacao: *")
leia(c)
escolha(c)
caso "/"
se (b<>0) entao
escreval("o resultado da divisao eh ",(a/b))
senao
escreval("Operacao nao realizada: Divisao por zero")
fimse
caso "*"
escreval("o resultado da multiplicacao eh ",(a*b))
caso "-"
escreval("o resultado da subtracao eh ",(a-b))
caso "+"
escreval("o resultado da adicao eh ",(a+b))
outrocaso
escreval("Operador invalido")
fimescolha
fimalgoritmo
algoritmo "Exercício33"
// Função :33. Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo.
// Se forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno.
// Propriedade: o comprimento de cada lado de um triângulo é menor do que a soma dos comprimentos dos outrosdois lados.
// Triângulo Equilátero: aquele que tem os comprimentos dos três lados iguais;
// Triângulo Isóscele: aquele que tem os comprimentos de dois lados iguais. Portanto, todo triângulo equilátero é também isóscele;
// Triângulo Escaleno: aquele que tem os comprimentos de seus três lados diferentes.
// Autor : Renan D. Costa
var
a,b,c:inteiro
tipo:literal
inicio
// Seção de Comandos
escreval("informe ovalor de a")
leia(a)
escreval("Informe o valor de b")
leia(b)
escreval("Informe o valor de c")
leia(c)
se (a<(b+c)) e (b<(c+a)) e (c<(b+a)) entao
se (a=b) e (b=c) entao
tipo<-"Equilátero e Isóscele"
senao
se (a<>b) e (b<>c) e (c<>a) entao
tipo<-"escaleno"
senao
tipo<-"isoscele"
fimse
fimse
escreval("Os valores informados correspondem a um triangulo ",tipo)
senao
escreval("Os valores informados nao correspondem a um triangulo")
fimse
fimalgoritmo
algoritmo "Exercício34"
// Função : 34. A escola "APRENDER" faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o salário de
// um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
// Professor Nível 1 R$12,00 por hora/aula
// Professor Nível 2 R$17,00 por hora/aula
// Professor Nível 3 R$25,00 por hora/aula
// Autor : Renan D. Costa
// Seção de Declarações
var
ha,nivel:inteiro
nome:literal
inicio
// Seção de Comandos
escreval("Informe o nome do professor")
leia(nome)
escreval("informe o total de horas/aula")
leia(ha)
escreval("Informe o nivel do professor")
leia(nivel)
escolha(nivel)
caso 1
escreval("O salario de ",nome," eh ",(ha*12))
caso 2
escreval("O salario de ",nome," eh ",(ha*17))
caso 3
escreval("O salario de ",nome," eh ",(ha*25))
outrocaso
escreva("Nivel invalido")
fimescolha
fimalgoritmo
algoritmo "Exercício35"
// Função :35. Elabore um algoritmo que, dada a idade de um nadador. Classifique-o em uma das seguintes categorias:
//Infantil A = 5 - 7 anos
//Infantil B = 8 - 10 anos
//juvenil A = 11- 13 anos
//juvenil B = 14 - 17 anos
//Sênior = 18 - 25 anos
//Apresentar mensagem "idade fora da faixa etária" quando for outro ano não contemplado.
// Autor : Renan D. Costa
// Seção de Declarações
var
idade:inteiro
inicio
// Seção de Comandos
escreval("Informe a idade do nadador")
leia(idade)
se (idade >=5) e (idade<=7) entao
escreval("Infantil A")
senao
se (idade>7) e (idade<=10) entao
escreval("Infantil B")
senao
se (idade>10) e (idade<=13) entao
escreval("Juvenil A")
senao
se (idade>13) e (idade <=17) entao
escreval("Juvenil B")
senao
se (idade>17) e (idade<=25) entao
escreval("Senior")
senao
escreval("Idade fora da faixa etaria")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
algoritmo "exercicio36"
// Função :36. Faça um algoritmo que calcule o valor da conta de luz de uma pessoa. Sabe-se que o cálculo da conta de luz segue a tabela abaixo:
//Tipo de Cliente Valor do KW/h
//1 (Residência) 0,60
//2 (Comércio) 0,48
//3 (Indústria) 1,29
// Autor : Renan D. Costa
// Seção de Declarações
var
consumo:real
tipo:inteiro
inicio
// Seção de Comandos
escreval("Informe o consumo em kw/h")
leia(consumo)
escreval("Informe o tipo de cliente")
escreval("1-Residencia, 2-Comercio, 3-Industria")
leia(tipo)
escolha(tipo)
caso 1
escreval("O valor da conta eh ",(consumo)*(0.6))
caso 2
escreval("O valor da conta eh ",(consumo)*(0.48))
caso 3
escreval("O valor da conta eh ",(consumo)*(1.29))
outrocaso
escreval("Tipo de cliente invalido")
fimescolha
fimalgoritmo
algoritmo "exercício37"
// Função : 37. Faça um algoritmo que leia o nome, o sexo, a altura e a idade de uma pessoa.
//Calcule e mostre nome e o seu peso ideal de acordo com as seguintes características da pessoa:
var
nome,sexo:literal
altura,pesoideal:real
idade:inteiro
inicio
// Seção de Comandos
escreval("Informe o nome")
leia(nome)
escreval("Informe o sexo: M ou F")
leia(sexo)
escreval("informe a altura")
leia(altura)
escreval("informe a idade")
leia(idade)
escolha(sexo)
caso "M"
se altura > (1.7) entao
se idade <=20 entao
pesoideal<-((72.7)*altura)-58
senao
se (idade >20) e (idade <=39) entao
pesoideal<-((72.7)*altura)-53
senao
pesoideal<-((72.7)*altura)-45
fimse
fimse
senao
se idade <=40 entao
pesoideal<-((72.7)*altura)-50
senao
pesoideal<-((72.7)*altura)-58
fimse
fimse
caso "F"
se altura > 1.5 entao
pesoideal<-((62.1)*altura)-44.7
senao
se idade >=35 entao
pesoideal<-((62.1)*altura)-45
senao
pesoideal<-((62.1)*altura)-49
fimse
fimse
outrocaso
escreval("sexo invalido")
fimescolha
escreval("O peso ideal de ",nome," eh ",pesoideal)
fimalgoritmo
algoritmo "Exercício38"
// Função : 38. Em um curso de Ciência da Computação a nota do estudante é calculada a partir de três notas atribuídas,
// respectivamente, a um trabalho de laboratório, a uma avaliação semestral e a um exame final. As notas variam, de 0 a 10 e
// a nota final é a média ponderada das três notas mencionadas. A tabela abaixo fornece os pesos: (faltou a tabela)
// Autor : Renan D. Costa
// Seção de Declarações
var
n1,n2,n3:real
p1,p2,p3:real
mp:real
inicio
// Seção de Comandos
escreval("Informe a nota do trabalho de laboratório:")
leia(n1)
escreval("Informe o peso")
leia(p1)
escreval("Informe a nota da avaliação semestral:")
leia(n2)
escreval("Informe o peso")
leia(p2)
escreval("Informe a nota do exame final:")
leia(n3)
escreval("Informe o peso")
leia(p3)
mp<-((n1*p1) + (n2*p2)+(n3*p3))/(p1+p2+p3)
escreval("A media ponderada eh ",mp)
fimalgoritmo
algoritmo "Exercício39"
// Função :39. Dado o nome de um estudante, com o respectivo número de matrícula e as três notas acima mencionadas, desenvolva um algoritmo para calcular a nota final e a classificação de cada estudante. A classificação é dada conforme a tabela abaixo:
//Nota Final Classificação
//[8,10] A
//[7,8] B
//[6,7] C
//[5,6] D
//[0,5] R
//Imprima o nome do estudante, com o seu número, nota final e classificação.
// Autor : Renan D. Costa
// Seção de Declarações
var
mat:inteiro
nome,class:literal
n1,n2,n3:real
p1,p2,p3:real
mp:real
inicio
// Seção de Comandos
p1<-1
p2<-2
p3<-3
//como faltou a tabela de pesos, declarei as variáveis e atribuí valores fictícios pra ela.
escreval("Informe o nome do aluno:")
leia(nome)
escreval("Informe o numero da matricula:")
leia(mat)
escreval("Informe a nota do trabalho de laboratorio:")
leia(n1)
escreval("Informe o peso")
leia(p1)
escreval("Informe a nota da avaliacao semestral:")
leia(n2)
escreval("Informe o peso")
leia(p2)
escreval("Informe a nota do exame final:")
leia(n3)
escreval("Informe o peso")
leia(p3)
mp<-((n1*p1) + (n2*p2)+(n3*p3))/(p1+p2+p3)
se (mp > 8) entao
class<-"A"
senao
se (mp>=7) e (mp<8) entao
class<-"B"
senao
se (mp>=6) e (mp<7) entao
class<-"C"
senao
se (mp>=5) e (mp<6) entao
class<-"D"
senao
class<-"R"
fimse
fimse
fimse
fimse
escreval("Aluno: ",nome)
escreval("Matricula: ",mat)
escreval("Media: ",mp)
escreval("Classificacao:", class)
fimalgoritmo