Elabore um algoritmo que lê 3 valores a,b,c e os escreva. A seguir , encontre o maior dos 3 valores e escreva com a mensagem: "É o maior".

algoritmo "Encontre o maior valor"
var
  a,b,c:real
inicio
 escreval("Encontre o maior valor") 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) e (a>c) entao
  escreva(" a é o maior ")
 senao
 se (b>c) entao
   escreva(" b é o maior ")
 senao
 se (c>b) entao
   escreva(" c é o maior ")
 senao
 se (a=b)e(b=c)e(c=a) entao escreva(" Todos tem valores iguais ")
 fimse
 fimse
 fimse
 fimse
fimalgoritmo

Elabore um algoritmo que lê 2 valores a e b e os escreve com a mensagem: "São múltiplos" ou "Não múltiplos".

algoritmo "São multiplo ou não"
var
  a,b:inteiro
inicio
   escreval("São multiplo ou não multiplo")
   escreva("Digite o valor de a ")
   leia(a)
   escreva("Digite o valor de b ")
   leia(b)
  se ((a>b) e ((a mod b)=0)) entao   escreva("São multiplo")
  senao
       se ((b mod a)=0) entao
         escreva("São multiplo")
       senao
         escreva("Não multiplo")
       fimse
  fimse
fimalgoritmo

Elabore um algoritmo que dada a idade de um nadador classifique-o em uma das seguintes categorias:

infantil A = 5 a 7 anos
infantil B = 8 a 10 anos
Juvenil A = 11 a 13 anos
Juvenil B = 14 a 17 anos
Adulto = maiores de 18 anos

   algoritmo "Categoria de um nadador"
   var
     idade:real
   inicio
     escreval("Categoria do nadador")
     escreva(" Digite a idade do(a) nadador(a) - ")
       leia(idade)
   se ((idade>=5) e (idade<=7)) entao
     escreva(" Infantil A")
  senao
    se ((idade>7) e (idade<=10)) entao 
      escreva(" Infantil B")
     senao
       se ((idade>10) e (idade<=13)) entao
         escreva(" Juvenil A")
        senao
          se ((idade>13) e (idade<=17)) entao
            escreva( "Juvenil B")
           senao
             se (idade>=18) entao
               escreva(" Adulto")
              senao
                escreva(" Não compete")
             fimse
          fimse
       fimse
    fimse
 fimse
 fimalgoritmo

Construa um algoritmo para saber se a pessoa é maior ou não de idade.

algoritmo "Maior ou Menor de Idade"
var
  idade:real
inicio    escreval("Digite sua idade ")
    leia(idade)
    se ((idade >=18) e (idade<30)) entao
     escreval("Ele é jovem")
    senao
    se (idade>=18) entao
       escreval("Maior de idade")
    senao     escreval("Menor de idade")
  fimse
  fimse
     escreva("*** F I M ***")
fimalgoritmo

Faça um algoritmo que receba 2 notas, calcule a média e mostre uma das seguintes mensagens: "Aprovado" (média >=5) e "Reprovado" (média >5).

algoritmo "Cálculo da média"
   var
     n1,n2,media:real
   inicio
    escreval("Cálculo de média, se média maior que 5 cinco, aprovado senão reprovado.")
    escreva("Digite o valor da 1ª nota ")
     leia(n1)//Entrada de da dados
    escreva("Digite o valor da 2ª nota ")
     leia(n2)//Entrada de dados
   se media <- (n1+n2)/2 entao //Cálculo da média aritmética das entradas
   escreval("   Aprovado")//Saída de resultado
  senao
   escreval("   Reprovado")
  fimse
  fimalgoritmo

Faça um algoritmo que receba a idade. Se ela for igual ou superior a 18 anos, mostre a mensagem "é de maior"

algoritmo "Maior ou Menor de Idade"
var
  idade:real
inicio    escreval("Digite sua idade ")
    leia(idade)
    se ((idade >=18) e (idade<30)) entao     escreval("Ele é jovem")
    senao
    se (idade>=18) entao
       escreval("Maior de idade")
    senao     escreval("Menor de idade")
  fimse
  fimse     escreva("*** F I M ***")
fimalgoritmo

Exercício 2-1

1) Escreva as expressões abaixo na forma de sintaxe do Português Estruturado.

1) raizq(((2+x)*x+u)/(a+b+c))

2) x^2+(3*x^(x+1))/2+raizq(x+1)
3) h-((45/7*x)-4*h*(3+a))^3
4) (-b-(raizq((b^2-4)*a*c)))/(2*a)
5) -raizq((-6^x+2*y)/3^9)
6) raizq(6)+((x*y)/(2*x))+3^2-(x^2/3)

Exercício 2-2

Escreva as expressões abaixo na forma convencional:
1. (12 + 1)/ (4*a/45)^0.5
2. (a + x^(2 + w) -3*a)/2
3. 12*x/(36 – 9^y) 4. (17^0.5 + 4)/3

Exercício 2-3

Resolva a expressão aritmética abaixo montando todos os passos utilizados para a obtenção da solução: (20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3


algoritmo "Calculando a expressão aritmética"
var
total : real

inicio
escreval ("Cálculo de Expressão Aritmética")
total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)
escreva ("o valor da expressão e",total)

fimalgoritmo

Exercício 2-4

Classifique os valores das constantes abaixo, de acordo com seu tipo, assinalando com N os dados numéricos e com L os literais:
1. ( ) 0
2. ( ) “abc”
3. ( ) “João”
4. ( ) “FALSO”
5. ( ) 1012
6. ( ) “V”
7. ( ) -49
8. ( ) +342
9. ( ) 569
10. ( ) “Zé”
11. ( ) 5. 7
12. ( )0.00001
13. ( ) 3.1415
14. ( )-545
15. ( )”444”
16. ( ) “1+2”


1.(L) 0                2.(L)"abc"      3.(L)"joão"      4.(L) "FALSO"
5.(N)1012          6.(L) "V"        7.(N)-49         8.(N)+342
9(N)569            10(L)"Ze"       11.(N)5. 7      12.(N)0.00001
13.(N)3.1415    14.(N)-545    15.(L)"444"     16.(L) "1+2"

Exercício 2-5

Assinale com um X os nomes de variáveis válidos: 1. ( ) abc                  2. ( )3abc        3. ( )a            4. ( )123ª
5. ( )-a 6. ( )acd1     7. ( )-_ad         8. ( )A&a
9. ( ) prim-nom       10. ( ) A123     11. ( )Aa        12. ( ) prim_nom
13. ( ) ABC DE      14. ( ) etc.        15. ( ) E         16. ( )”nome”


1.(X)abc                  2.( )3abc         3.(X)a 4.( )123ª

5.( ) -a 6.(X)acd1    7.( )-_ad          8.( )A&a

9.(X) prim-nom      10.(X) A123    11.(X)Aa 12.(x) prim_nom

13.( ) ABC DE       14.( )etc.          15.(X) E 16.( )"nome"

Exercício 2-6

Assinale com um X os comandos de atribuição considerados inválidos:

var
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM: numérico


1. ( ) NOME <- 5                 2. ( ) SOMA <- NUM + 2*X
3. ( )TESTE <- SOMA         4. ( ) NUM <- SOMA
5. ( ) COR <- “PRETO”       6. ( ) X <- X + “1”
7. ( ) NUM <- “ABC”          8. ( ) DIA<- “seGUNDA”
9. ( ) SOMA + 2 <- NUM   10. ( ) X <- (NOME = COR)
11. ( ) “ABC” <- NOME     12. ( ) NOME <- DIA + COR


1.(X) NOME <-5                 2.(X) SOMA <- NUM + 2*X
3.( )TESTE <- SOMA          4.( ) NUM <- SOMA

5.( ) COR <- "PRETO"         6.(X) X <- X+"1"
7.(X) NUM <- "ABC"           8.( ) DIA <- "seGUNDA"

9.(X) SOMA +2 <- NUM    10.( ) X <-(NOME = COR)

11.(X)"ABC" <- NOME       12.(X) NOME <- DIA + COR

Exercício 2-7

Escreva um algoritmo que calcule o valor de base . O algoritmo deve ler o valor da base e do expoente. Após, ele deve escrever o valor de base.

algoritmo "Calculando o valor da base"
var
base, expoente, total:real

inicio
escreval("Capítulo 2 - Exercício 7")
escreval
escreva("Informe o valor da base: ")
leia(base)
escreva("Informe o valor do expoente: ")
leia(expoente)
total <- base^expoente
escreva("Resultado: ", base, " elevado a ", expoente, " é ", total)

fimalgoritmo

Exercício 2-8

No seguinte algoritmo existem erros de sintaxe? Em caso afirmativo, onde ?

01. altoritmo “Teste”

02. var

03. marca: literal

04. idade: numérico

05. letra: literal

06. marca : numérico

07. início

08. leia(idade)

09. escreva(idade)

10. idade = 678

11. leia(“letra”)

12. leia(ABC)

13. escreva (letra)

14. letra <- 4

15. fimalgoritmo

algoritmo "Teste"
var
marca: literal
idade: numérico //numerico é sem acento agudo na letra “e”
letra: literal
marca: numérico //Já existe uma variável com o nome 'marca'

início //Não tem acento na letra “i”
leia(idade)
escreva(idade)
idade = 678
leia(“letra”) //Não está atribuindo valor em nenhuma variável
leia(ABC) //Não existe a variável ABC
escreva (letra) //Letra não recebeu nada
letra <- 4 //Letra é do tipo literal, então não pode receber um valor inteiro

fimalgoritmo

Exercício 2-9

Um representante comercial realizará uma viagem de vários dias com um automóvel, e, após, deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que, a partir desses dados, informe a quilometragem média por litro de gasolina.

algoritmo "Capítulo 2 - Exercício 9"
var
kmInicial, kmFinal, totalGasolina, mediaDiaria:real

inicio
escreval("Calculando média de gasolina em viagem")
escreval
escreva("Informe o KM Inicial: ")
leia(kmInicial)
escreva("Informe o KM Final: ")
leia(kmFinal)
escreva("Informe quantos litros de gasolina foram usados durante a viagem: ")
leia(totalGasolina)
mediaDiaria <- (kmFinal - kmInicial) / totalGasolina
escreva("Média diária percorrida pelo carro por litro de gasolina: ", mediaDiaria:5:1, "Km")

fimalgoritmo

Exercício 2-10

Escreva um algoritmo que leia o nome de um piloto, uma distância percorrida em quilômetros e o
tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em
km/h, e exibir a seguinte frase:
A velocidade média do <nome do piloto> foi<velocidade média calculada> km/h

algoritmo "Calcular a velocidade em km/h"
var
nome:literal
media,distancia:real
tempo:inteiro

inicio
escreval("Calculando a velocidade média em Km/h")
escreval
escreva("Entre com o nome do piloto:")
escreval
leia(nome)
escreva("Entre com a distância percorrida em km:")
leia(distancia)
escreva("Entre com o tempo gasto em minutos:")
leia(tempo)
media <- distancia /(tempo/60)
escreva("A velocide media do piloto ",nome," foi de",media," km/h")
fimalgoritmo

Exercício 2-11

Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa, quanto cada uma deve pagar (não esqueça os 10% do garçom).


algoritmo "Calcular a conta da pizzaria"
var
pessoas, chopes, pizzas, coberturas:inteiro
subTotalConta, totalConta, Garcom, totalPorPessoa:real
inicio
escreval("Calculando o total da conta da Pizzaria")
escreval
escreva("Entre com o número de pessoas: ")
leia(pessoas)
escreva("Entre com a quantidade de chopes que foram pedidos: ")
leia(chopes)
escreva("Entre com a quantidade de pizzas que foram pedidas: ")
leia(pizzas)
escreva("Entre com a quantidade de coberturas que acompanharam as pizzas: ")
leia(coberturas)
subTotalConta <- (chopes * 2.80) + (pizzas * 20) + ( (coberturas * 1.50) * pizzas)
garcom <- (subTotalConta / 100) * 10

totalConta <- subTotalConta + garcom
totalPorPessoa <- totalConta / pessoas

escreval
escreval("Este é o Valor da Conta-------------: R$", subTotalConta:5:2)
escreval("10% do Garçom---------------------: R$", garcom:5:2)
escreval("Total da Conta + 10% Garçom------: R$", totalConta:5:2)
escreval("Total por pessoa---------------------: R$", totalPorPessoa:5:2)

fimalgoritmo

Exercício 2-12

Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

sn = ((a1 + an) / 2) * n

Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que: n = ((an – a1) / r) + 1

Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.


algoritmo "Progressão Aritmética"
var
a1, an, r, sn, n:real

inicio
escreval("Calculando uma Progressão Aritmética")
escreva("Entre com o valor de a1: ")
leia(a1)
escreva("Entre com o valor de an: ")
leia(an)
escreva("Entre com o valor de r: ")
leia(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor de Sn é: ", sn)

fimalgoritmo

Exercício 2-13

Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por: an = a1 * q^(n-1) onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos. Os valores de a1, q e n serão fornecidos pelo usuário.

algoritmo " Progressão Geométrica "
var

a1, an, q, n:real

inicio
escreval("Calculando uma Progressão Geométrica")
escreval
escreva("Entre com o valor de A1: ")
leia(a1)
escreva("Entre com o valor de Q: ")
leia(q)
escreva("Entre com o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termo An: ", an)

fimalgoritmo

Exercício 2-15

Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calcular área do círculo"

var
r, area:real
inicio
escreva("Entre com o valor do Raio do Círculo: ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)

fimalgoritmo

Exercício 2-16

Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base decimal. A conversão de binário para decimal é feita somando–se os produtos de cada dígito do número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem peso 2 (2¹), 4 (2²), 8 (2³), etc.
Por exemplo 110101 é 53 .(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Conversão de Binário para Decimal"

var
n1, n2, n3, n4, n5, n6, decimal:numerico

inicio
escreva("Entre com o 1ºBit (0 ou 1)")
escreval
leia(n1)
escreva("Entre com o 2ºBit (0 ou 1)")
escreval
leia(n2)
escreva("Entre com o 3ºBit (0 ou 1)")
escreval
leia(n3)
escreva("IEntre com o 4ºBit (0 ou 1)")
escreval
leia(n4)
escreva("Entre com o 5ºBit (0 ou 1)")
escreval
leia(n5)
escreva("Entre com o 6ºBit (0 ou 1)")
escreval
leia(n6)
decimal <- (n1*32 + n2*16 + n3*8 + n4*4 + n5*2 + n6*1)
escreva("Decimal: ",decimal)

fimalgoritmo

Exercício 2-18

Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.

algoritmo "Calcular sálario final de um vendedor"
var
nome:literal
salFixo,valorCarrosVendidos,comissaoPorCarro,salLiquido:real
qtdeCarrosVendidos:inteiro

inicio
escreval("Entre com o nome do Vendedor:")
leia(nome)
escreval("Entre com o salário fixo do Vendedor:")
leia(salFixo)
escreval("Entre com a comissão por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Entre com a quantidade de carros vendidos:")
leia(qtdeCarrosVendidos)
escreval("Entre com o total das suas vendas:")
leia(valorCarrosVendidos)
salLiquido<- salFixo+(comissaoPorCarro*qtdeCarrosVendidos)+(valorCarrosVendidos*0.04)
escreva("O salário líquido do vendedor ",nome," é de R$: ",salLiquido:5:2)

fimalgoritmo

Exercício 2-19

O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos, ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro, seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do carro.

algoritmo "Calculando valor final de um veículo para o consumidor"
var
nomeModelo:literal
custoFabri, percentualRevenda, impostos, valorFinal:real

inicio
escreva("Entre com o nome do Modelo do carro: ")
leia(nomeModelo)
escreva("Entre com o valor de fabrica do veículo: ")
leia(custoFabri)
escreva("Entre com o percentual da revenda: ")
leia(percentualRevenda)
escreva("Entre com o percentual dos impostos: ")
leia(impostos)
valorFinal <- custoFabri + (custoFabri * (percentualRevenda / 100)) + (custoFabri * (impostos / 100))
escreva("O Valor final do carro ", nomeModelo, " para o consumidor é de ", valorFinal:6:2)

fimalgoritmo

Exercício 2-20

Escreva um algoritmo que leia o nome, o valor da hora e o número de horas trabalhadas por um empregado. O algoritmo deve escrever o nome e o salário liquido do empregado calculado conforme as seguintes regras:
1. O salário bruto mensal é o produto das horas trabalhadas pelo valor das horas.
2. Sobre o salário bruto mensal é aplicado um desconto de 9% referente ao INSS e 8% de FGTS; 
3. O salário liquido é o salário bruto mensal menos os encargos.

algoritmo "Cálculo jornada de trabalho"

var
nome:literal
valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real

inicio
escreva("Entre com o nome do empregado: ")
leia(nome)
escreva("Entre com o valor da hora trabalhada: ")
leia(valorHora)
escreva("Entre com o total de horas trabalhadas: ")
leia(totalHoras)
salarioBruto <- totalHoras * valorHora
encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))
salarioLiquido <- salarioBruto - encargos
escreva("O empregado ", nome, " receberá o salário de: R$", salarioLiquido:5:2)

fimalgoritmo

Faça um algoritmo que calcule a área de um triângulo que recebe a base e a altura e retorna a área.

algoritmo "Calcular Área de um Triangulo"

var
h, b:real
inicio
escreval("Calculo da Área de um Triangulo")
escreva("Entre com o valor da base?")
leia(b)
escreva("Entre com o valor da altura?")
leia(h)
escreva("Área do Triângulo: ", (b*h)/2)

fimalgoritmo

Faça um algoritmo que receba apenas 1 lado do triângulo equilátero e retorne a área.

algoritmo "Calcular Área de um Triângulo Equilatero"

var
lado, h, area:real
inicio
escreval("Calcular Área de um Triângulo Equilatero")
escreva("Qual e o valor de um lado?")
leia(lado)
h<-(lado*raizq(3))/2
area<-(lado*h)/2
escreva("Area de triangulo: ", area:5:2)

fimalgoritmo

Faça um algoritmo que solicite o peso de gatos e o peso em Kg do pacote de ração, onde deverá se calcular as porções diárias e mostrar o quanto em gramas existe no pacote de ração após 5 dias.

algoritmo "Calcular Porções de Ração Diária de Gatos"

var
racao,g1,g2,gramasg1,gramasg2,pdiaria,p5dias,soma:real

inicio
escreval("Calcular Porções de Ração Diária de Gatos")
escreval
escreva("Qual é o peso do Gato 1? ")
leia(g1)
escreva("Qual é o peso do Gato 2? ")
leia(g2)
escreva("Qual é o peso do Pacote de Ração? ")
leia(racao)
gramasg1 <- g1 * 50
gramasg2 <- g2 * 50
pdiaria <- gramasg1 + gramasg2
p5dias <- (racao * 1000) - (pdiaria * 5)
escreva("Total de ração após 5 dias: ", p5dias, " gramas")

fimalgoritmo

Faça 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.

algoritmo "Distância entre dois pontos"

var
x1,x2,y1,y2,d:real

inicio
escreval("Calcular distância entre pontos")
escreval
escreva("Entre com o valor de X1? ")
leia(x1)
escreva("Entre com o valor de X2? ")
leia(x2)
escreva("Entre com o valor de Y1? ")
leia(y1)
escreva("Entre com o valor de Y2? ")
leia(y2)
d <- raizq( ((x2-x1)^2) + ((y2-y1)^2) )
escreva("Distância entre os pontos: ", d:5:2)

fimalgoritmo

Faça um algoritmo que leia 3 números inteiros e positivos (A,B e C) e Calcule a seguinte expressão: D=R+S/2, onde R=(A+B)² e S=(B+C)²

algoritmo "Cálculo de Expressão"

var
a,b,c,r,s,d:real
inicio
escreval("Cálculando Expressões de Números Inteiros")
escreval
escreval("Entre com o Valor de A: ")
leia(a)
escreval("Entre com o Valor de B: ")
leia(b)
escreval("Entre com o Valor de C: ")
leia(c)
r<-(a+b)^2
s<-(b+c)^2
d<-(r+s)/2
escreva("O valor de D é: ", d)

fimalgoritmo

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

algoritmo "Idade de uma pessoa"

var
dias, meses, anos, total:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa em dias")
escreval
escreval("Entre com o dia em que a pessoa nasceu: ")
leia(dias)
escreval("Entre com o mês do nascimento da pessoa: ")
leia(meses)
escreval("Entre com o ano do nascimento da pessoa: ")
leia(anos)
total<-(anos*365)+(meses*30)+dias
escreva("O total de dias é: ", total)

fimalgoritmo

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

algoritmo "Idade de uma pessoa"

var
dias, meses, anos, total, sobra:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa")
escreval
escreval("Entre com a Idade em dias: ")
leia(total)
anos<-total-(anos*365)
meses<-sobra div 30
dias<-sobra-(meses*30)
escreva("IDADE:",anos," ano(s) e",meses," mês(s) e",dias," dia(s)")
fimalgoritmo

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

algoritmo "Média Final do Aluno"

var
n1, n2, n3, soma:real

inicio
escreval("Cálculo de Média Final do Aluno")
escreval
escreval("Entre com a 1º Nota: ")
leia(n1)
escreval("Entre com a 2º Nota: ")
leia(n2)
escreval("Entre com a 3º Nota: ")
leia(n3)
soma<-(n1+n2+n3)/3
escreva("Média Final: ", soma:5:2)

fimalgoritmo

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 "Tempo de Duração de um Evento em uma Fábrica"

var
   seg, min, horas:inteiro

inicio
escreval("Tempo de Duração de um Evento em uma Fábrica")
escreval
escreval("Entre com o Tempo em segundos: ")
leia(seg)
horas<-seg div 3600
min<-(seg-(horas*3600)) div 60
seg<-(seg-(horas*3600)-(min*60))
escreva(horas," Horas,",min," Minutos e",seg, " Segundos")

fimalgoritmo

Faça um algoritmo que receba a altura de uma pessoa e informe o seu peso ideal - IMC

algoritmo "Cálculo de Peso Ideal - IMC"
var
   altura:inteiro
   pesoIdeal:real

inicio
   escreval("Cálculo de Peso Ideal - IMC")
   escreval
   escreva("Entre com sua altura sem ponto e sem vírgula: ")
   leia(altura)

   pesoIdeal<-(25*(altura^2))/10000
  
   escreva("O seu Peso Ideal é: ", pesoIdeal:5:2)

fimalgoritmo