CALCULAR IDADE:
var
anoAtual,anoNascimento,idade:real
inicio
// Seção de Comandos
escreval("O valor do Ano Atual é:")
leia(anoAtual)
escreval("O valor do Ano de Nascimento é:")
leia(anoNascimento)
idade <- (anoAtual-anoNascimento)
escreval("O valor de sua Idade é:",idade)
fimalgoritmo
OPERAÇÕES BÁSICAS DA MATEMÁTICA:
var
n1,n2,sub,divi,multi,soma:real
inicio
// Seção de Comandos
escreval("Informe o valor do Primeiro número:")
leia(n1)
escreval("Informe o valor do Segundo número:")
leia(n2)
sub <- (n1-n2)
escreval("O valor da Subtração é:",sub)
divi <- (n1/n2)
escreval("O valor da Divisão é:",divi)
multi <- (n1*n2)
escreval("O valor da Multiplicação é:",multi)
soma <- (n1+n2)
escreval("O valor da Soma é:",soma)
fimalgoritmo
CONVERSÃO DE REAL PARA DÓLAR:
var
R,D: real
resultado: real
inicio
// Seção de Comandos
escreva("Digite o valor em Real (R$): ")
Leia(R)
escreva("Escreva a taxa de câmbio: ")
Leia(D)
resultado <- R*D
escreva("A conversão para Dolar (US) é: ",resultado)
fimalgoritmo
DETERMINAR MÉDIA ARITMÉTICA:
var
nota1,nota2,nota3,nota4,media:real
inicio
// Seção de Comando
escreval("Digite a Primeira nota:")
leia(nota1)
escreval("Digite a Segunda nota:")
Leia(nota2)
escreval("Digite a Terceira nota:")
Leia(nota3)
escreval("Digite a Quarta nota:")
Leia(nota4)
media <- (nota1+nota2+nota3+nota4)/4
escreval("A sua Media é:",media)
fimalgoritmo
