L4 - 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 nadador por idade"
var
    idade: inteiro
Inicio
Escreva("Informe a idade do nadador: ")
Leia(idade)
Escreval("A classificação é ")

    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(“E muito criança para nadar!”)
    fimse

Fimalgoritmo

L4 - 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 "multiplos"
Var
    a,b: inteiro
Inicio
    Leia(a,b)
    Se(a mod b = 0)entao
        Escreva("São multiplos!")
    Senao
        Se(b mod a = 0)entao
            Escreva("São multiplos!")
        Senao
            Escreva("Não são múltiplos!")
        Fimse
    Fimse
Fimalgoritmo

L4 - 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 "decimo"
Var
  a,b,c: inteiro
Inicio
  Leia(a,b,c)
  Se(a>b)entao
    Se(a>b)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

L4 - 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 "nono"
Var
  n1,n2,n3,m: numerico
Inicio
  Leia(n1,n2,n3)
  m <- (n1 + n2 + n3)/3
  Escreval("Media = ",m:5:2)
  Se(m>6)entao
    Escreva("APROVADO")
  Senao
    Escreva("REPROVADO")
  Fimse
Fimalgoritmo

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

a.x + b.y = c
d.x + e.y = f
x = (c.e - b.f)/(a.e - b.d)
y = (a.f - c.d)/(a.e - b.d)
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 "oitavo"
Var
  a,b,c,d,e,f,x,y: numerico
Inicio
  Leia(a,b,c,d,e,f)
  x <- ( (c*e) - (b*f) ) / ( (a*e) - (b*d) )
  y <- ( (a*f) - (c*d) ) / ( (a*e) - (b*d) )
  Escreva("X= ",x," e Y= ",y)
Fimalgoritmo

L4 - 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 "setimo"
Var
  Cf,Pd,Pim,Cc: numerico
Inicio
  Leia(Cf)
  Pd <- Cf * 0.28
  Pim <- Cf * 0.45
  Cc <- Cf + Pd + Pim
  Escreva(Cc)
Fimalgoritmo

L4 - 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 "sexto"
Var
  t,h,m,s: inteiro
Inicio
  Leia(t)
  h <- t DIV 3600
  m <- (t MOD 3600) DIV 60
  s <- (t MOD 3600) MOD 60
  Escreva(h," hora(s), ",m," minuto(s) e ",s," segundo(s).")
Fimalgoritmo

L4 - 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 "quinto"
Var
  n1,n2,n3,m: real
Inicio
  Leia(n1,n2,n3)
  m <- ( (n1 * 2) + (n2 * 3) + (n3 * 5) )/10
  Escreva(m)
Fimalgoritmo

L4 - 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 "quarto"
Var
  a, Id,m,d: inteiro
Inicio
  Leia(Id)
  a <- Id DIV 365
  Id <- Id - (a * 365)
  m <- Id DIV 30
  d <- Id - (m * 30)
  Escreva(a," anos, ",m," meses e ",d," dias.")
Fimalgoritmo

L4 - 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 "terceiro"
var
  a,m,d,Id: inteiro
Inicio
  Leia(a,m,d)
  Id<- d
  Id <- Id + (m * 30)
  Id <- Id + (a * 365)
  Escreva(Id)
Fimalgoritmo

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

Algoritmo "Segundo"
Var
  a,b,c,r,s,d: real
Inicio
  Leia(a,b,c)
  r <- (a+b)^2
  s <- (b+c)^2
  d <- (r+s)/2
  Escreva(d:5:1)
Fimalgoritmo

L4 - 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 "primeiro"
Var
  x1, y1, x2, y2, d: real
Inicio
  Leia(x1,y1,x2,y2)
  d <- raizq( ( ( x2 - x1)^2 ) + ( ( y2 - y1 )^2 ) ) )
  Escreva(d)
 Fimalgoritmo