Algoritmos

1) Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e apresente na tela tal idade apenas em dias. Considere que um mês possui trinta dias, e um ano possui trezentos e sessenta e cinco dias.

algoritmo "calcular_dias_vividos"

// Função recebe a data de nascimento e informa quantos dias vividos

var

dia, mes, ano, resultado : inteiro // variaveis para obter a data de nascimento do usuario

ano_atual,mes_atual,dia_atual: inteiro // vairaveis para calculo matematico

funcao calculo_idade (dia,mes, ano: inteiro):inteiro

var

meses, anos, dias, resultado: inteiro //vaiaveis para resultado dos calculos

inicio

anos <- (ano_atual - ano) * 365 // calculo feito para saber quanto anos tem de vida

meses <- (mes_atual - mes)*30 // calculo feito para saber quantos meses tem de vida

dias <- (dia_atual-dia) // calculo feito para saber quantos do ano tem de vida

resultado <-(anos+meses+dias) // calculo feito para saber quantos dias de vidas

retorne (resultado)

fimfuncao

inicio

escreva ("informe o ano que você nasceu: ") // informar o dia de nascimento do usuario

leia (ano)

escreva (" informe o mês que você nasceu [1,2,...,12] : ") // informar o mês de nascimento do usuario

leia (mes)

escreva ("informe o dia que você nasceu: ") // informar o dia de nascimento do usuario

leia (dia)

escreva ("informe o ano atual: ")// informar o ano atual para calculo

leia (ano_atual)

escreva ("informe o mês atual: ")// informar o mês atual para calculo

leia (mes_atual)

escreva ("informe o dia atual: ") // informar o dia atual para calculo

leia (dia_atual)

resultado <- calculo_idade ( dia,mes, ano)

escreva ("você viveu ",resultado, " dias") // exibir na tela quantos dias de vida o usuario tem

fimalgoritmo

2) Elabore um algoritmo capaz de calcular a distância entre dois pon¬tos em um espaço euclidiano. Para tanto, considere a seguinte fórmula:

dist = raizquadrada ((x2-x1)2+(y2-y1) 2.

algoritmo "Calcular_distancia"

// Função : algoritmo para calcular a distancia entre dois pontos

var

x1, x2, y1, y2: inteiro // variaveis para entrada de dados

resultado: real // variavel para o resultado final

funcao distancia ( x1, x2, y1, y2: inteiro): real

var

dist: real // variavel para calculo

inicio

dist <- raizq ((x2-x1)^2+(y2-y1)^2)) // calculo feito para chegar a distancia

retorne (dist)

fimfuncao

inicio

escreva ("informe o ponto X1: ") // entrada do ponto X1

leia(x1)

escreva ("informe o ponto Y1: ") // entrada do ponto Y1

leia (y1)

escreva ("informe o ponto X2: ") // entrada do ponto X2

leia (x2)

escreva ("informe o ponto Y2: ") // entrada do ponto Y2

leia (y2)

resultado <- distancia ( x1, x2, y1, y2) // chamada da função

escreva (" A distancia entre os pontos em um espaço euclidiano é: ",resultado){ resultado}

fimalgoritmo

3) Construa um algoritmo capaz de ler três números positivos (X, Y, Z) e calcule a se¬guinte expressão: E = (A + B) / 2, em que A = (X + Y)2 , e B = (Y + Z)2

algoritmo "expresão_numeros_positivos"

// algoritmo para calcular a expressão: E = (A + B) / 2, em que A = (X + Y)2 , e B = (Y + Z)2 .

var

numX,numY,numZ: inteiro //

...