Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement