14) Calcule o peso de uma pessoa, utilizando IMC.

IMC = 25

IMC=peso/h*h

algoritmo “calcula o peso”
var
 h, p: real
inicio
  escreva (“Digite sua altura:”)
  leia (h)
  p<-25*(h*h)
  escreva (“Seu peso é”, p:5:2)
fimalgoritmo

13) Faça um fluxograma que receba a altura e o sexo de uma pessoa e que calcule e mostre o peso ideal.

Para homens: (72,7*h)-58

Para mulheres: (62,1*h)-44,7

algoritmo “Calcula o peso”
  var
    h,peso:real
    s, masculino, feminino:literal
  inicio
    escreva(“Digite sua altura:”)
    leia(h)
    escreva(“Digite seu sexo:”)
    leia(s)
    se (s=masculino) entao
       peso<-((72.7*h)- 58)
       escreva (“Seu peso é”, peso:5:2)
     senao
        peso<-((62.1*h)- 44.7)
        escreva (“Seu peso é”, peso:5:2)
    fimse
 fimalgoritmo

12) Elabore um algoritmo que dada a idade de um nadador classifica-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

adulto = maiores de 18 anos

Algoritmo “Classifica em categorias”
var
idade:inteiro

inicio
 escreva(“Digite a idade:”)
 leia(idade)
 se (idade >=5) entao
   se (idade <=7) entao
     escreva (“Infantil A”)
   senao
     se (idade<=10)entao
       escreva (“Infantil B”)
     senao
       se (idade<=13) entao
         escreva (“Juvenil A”)
       senao
         se (idade<=17) entao
           escreva (“Juvenil B”)
         senao
           escreva (“Adulto”)
         fimse
       fimse
     fimse
   fimse
 senao
   escreva (“É muito criança para nadar”)
 fimse
fimalgoritmo

11) Elaborar um algoritmo que lê 2 valores a e b e os escreve com a mensagem: “São múltiplos” ou “Não são múltiplos”.

algoritmo “Múltiplos”
var
a, b:inteiro
inicio
 escreva(“Digite o valor de a:”)
 leia(a)
 escreva(“Digite o valor de b:”)
 leia(b)
 se (a>b) entao
   se (a mod b = 0) entao
     escreva (“São Múltiplos”)
   senao
     escreva (“Não são múltiplos”)
   fimse
 senao
   se (b mod a = 0) entao
     escreva (“São múltiplos”)
   senao
     escreva (“Não são múltiplos”)
   fimse
 fimse
fimalgoritmo

10) Elaborar um algoritmo que lê 3 valores a,b,c e os escreve. A seguir, encontre o maior dos 3 valores e o escreva com a mensagem : “É o maior “.

algoritmo “Número maior”
   var
    a,b,c:real
  inicio
    escreva(“Digite o valor de a:”)
    leia(a)
    escreva(“Digite o valor de b”)
    leia(b)
    escreva(“Digite o valor de c:”)
    leia(c)
    se (a>b) entao
      se (a>c) entao
        escreva (“A é o maior”)
      senao
        escreva (“C é o maior”)
      fimse
    senao
      se (b>c) entao
        escreva (“B é o maior”)
      senao
        escreva (“C é o maior”)
      fimse
   fimse
 fimalgoritmo

9) Calcule a média aritmética das 3 notas de um aluno e mostre, além do valor da média, uma mensagem de “Aprovado”, caso a média seja igual ou superior a 6, ou a mensagem “reprovado”, caso contrário.

algoritmo “Calcula a média”
   var
      x, y, z,m:real
  inicio
     escreva(“Digite a primeira nota:”)
    leia(x)
    escreva(“Digite a segunda nota:”)
    leia(y)
    escreva(“Digite a terceira nota:”)
    leia(z)
    m<-(x+y+z)/3
    se (m>=6) entao
       escreva(“Aprovado”)
    senao
      escreva(“Reprovado”)
   fimse
 fimalgoritmo

8. Um sistema de equações lineares do tipo:

Escreva um algoritmo que lê os coeficientes a,b,c,d,e e f e calcula e mostra os valores de x e y:
algoritmo “Calcula o valor de x e y”
  var
    a, b, c, d, f, g, x, y :real
  inicio
     escreva(“Digite o valor de a:”)
     leia(a)
     escreva(“Digite o valor de b:”)
     leia(b)
     escreva(“Digite o valor de c:”)
     leia(c)
     escreva(“Digite o valor de d:”)
     leia(d)
     escreva(“Digite o valor de f:”)
     leia(f)
     escreva(“Digite o valor de g:”)
     leia(g)
     x<-((c*e)-(b*f))/((a*e)-(b*d))
     y<-((a*f)-(c*d))/((a*e)-(b*d))
     escreva(” O valor de x é”,x:5:2 , “e y é” ,y:5:2)
  fimalgoritmo

7. O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos (aplicados ao custo de fábrica). Supondo que a percentagem do distribuidor seja de 28% e os impostos de 45%, escrever um algoritmo que leia o custo de fábrica de um carro e escreva o custo ao consumidor.

algoritmo “Calcula o custo do carro”
  var
   custo, preco, venda, total: real
 inicio
    escreva (“Digite o custo do carro:”)
    leia (custo)
    preco <-(custo+(custo*0.45))
    venda <-(preco+(preco*0.28))
    escreva (“O custo ao consumidor é de”, venda:10:2)
 fimalgoritmo

6. Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo “Calcula a duração do tempo em horas, minutos e segundos”
  var
   horas, minutos, segundos, seg : inteiro
 inicio
    escreva(“Digite a duração do evento em segundos:”)
    leia(segundos)
    horas<-(segundos div 3600)
    minutos<-((segundos mod 3600) div 60)
    seg<-((segundos mod 3600) mod 60)
    escreva(“A duração do evento foi de”, horas,” horas”, minutos ,” minutos e”, seg ,” segundos”)
  fimalgoritmo

5. Faça um algoritmo que leia as 3 notas de um aluno e calcule a média final deste aluno. Considerar que a média é ponderada e que o peso das notas é: 2,3 e 5, respectivamente.

algoritmo “Calcula a média ponderada”
  var
   nota1, nota2, nota3, media:real
 inicio
    escreva (“Digite a nota 1:”)
    leia (nota1)
    escreva (“Digite a nota 2:”)
    leia (nota2)
    escreva (“Digite a nota 3:”)
    leia (nota3)
    media<-((nota1*2)+(nota2*3)+(nota3*5))/10
    escreva (“A média ponderada é”, media:5:2)
 fimalgoritmo

4. Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias.

 algoritmo “Calcula a idade em anos, meses e dias”
  var
    ano, mes, dia, dias: inteiro
 inicio
    escreva (“Digite a idade em dias:”)
    leia(dias)
    ano<-(dias div 365)
    mes<-(dias mod 365)div 30
    dia<-(dias mod 365)mod 30
    escreva (“A idade em anos, meses e dias é”, ano, mes, dia)
 fimalgoritmo

3. Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias.

 algoritmo “Calcula a idade em dias”
  var
   ano, mes, dia, dias: inteiro
 inicio
    escreva (“Digite a idade em anos:”)
    leia(ano)
    escreva (“Digite a idade em meses:”)
    leia(mes)
    escreva (“Digite a idade em dias:”)
    leia(dia)
    dias<-((ano*365)+(mes*30)+dia)
    escreva (“A idade em anos, meses e dias é”, dias)
 fimalgoritmo

2. Escreva um algoritmo que leia três números inteiros e positivos (A, B, C) e calcule a seguinte expressão:

RESPOSTA:
algoritmo “Calcula a expressão”
  var
   a, b, c: inteiro
   numero: real
 inicio
    escreva (“Digite a:”)
    leia(a)
    escreva (“Digite b:”)
    leia(b)
    escreva (“Digite c:”)
    leia(c)
    numero<-(((a+b)^2)+((b+c)^2))/2
    escreva (“O resultado da expressão é”, numero:6:2)
 fimalgoritmo

1. Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano, P(x1,y1) e P(x2,y2), escreva a distância entre eles. A fórmula que efetua tal cálculo é:

algoritmo “Calcula a distância”
  var
    x1, x2, y1, y2, distancia: real
 inicio
    escreva (“Digite x1:”)
    leia(x1)
    escreva (“Digite x2:”)
    leia(x2)
    escreva (“Digite y1:”)
    leia(y1)
    escreva (“Digite y2:”)
    leia(y2)
    distancia<-raizq(((x2-x1)^2)+((y2-y1)^2)))
    escreva (“A distância é de”, distancia:6:2)
 fimalgoritmo