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