Aplicar Conceitos Adquiridos No Que Se Refere Aos Fundamentos Para Elaboração.

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.

Program Exercicio1 ;

var soma,a,m,d,s,s1:integer;

function idade_dias (a1,m1,d1:integer):integer;

begin

soma:= (a1*365) + (m1*30) + d1;

idade_dias :=soma;

end;

Begin

writeln('Digite quantos anos você tem:');

readln(a);

writeln('Digite quantos meses você tem:');

readln(m);

writeln('Digite quantos dias você tem:');

readln(d);

s:=0;

s:= idade_dias (a,m,d);

writeln('Sua idade expressa em dias é: ',s, '.');

readln;

End.

2) Elabore um algoritmo capaz de calcular a distância entre dois pontos em um espaço euclidiano. Para tanto, considere a seguinte fórmula: dist = raizquadrada( (x2 - x1)2 + (y2-y1)2).

algoritmo "algoritmo1"

var

distancia, x1, x2, y1, y2 : real

inicio

escreva("Digite o valor do x1: ")

leia(x1)

escreva("Digite o valor do x2: ")

leia(x2)

escreva("Digite o valor do y1: ")

leia(y1)

escreva("Digite o valor do y2: ")

leia(y2)

distancia <- raizq((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

escreval("O valor do distancia: ", distancia:0:6)

fim.

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

algoritmo exercicio3

var

x,y,z : inteiro

A,B : real

Inicio

escreva("Informe X:")

leia(x)

escreva("Informe Y")

leia(y)

escreva("Informe Z")