Trabajo de MAT204

Algoritmo.-

1. leer datos (w, v, d, h, e)
2. calcular alturas (w, v, d, h, e, a, y)
3. calcular donde cae (a, y)

Subalgoritmos.-

Leer datos (w, v, d, h, e)

1. leer la distanciade la persona al edificio d
2. leer la altura del edificio de donde cae el ladrillo h
3. leer la velocidad del ladrillo w
4. leer la altura de la persona e
5. leer la velocidad a lacual camina la persona v

Calcular alturas (w, v, d, h, e, a, y)

1. calcular la diferencia de altura (a) entre el edificio (h) y la altura de la persona (e) mediante a = h-e
2.calcular (y) mediante la formula de caída libre y = [(w*d)/v] + [1/2*g*(d2 / v2)]

Calcular donde cae (a, y)

1. y = a ? si; muestre le cae en la cabeza.
No entonces.
2. y > a ? si;muestre le cae delante.
No muestre le cae detrás.

Diagrama de flujo.- Principal
































Diagramas de flujo.- SubalgoritmosCodigo en pascal.-

program accidente;
uses
wincrt;
const
g=9.81;
var
w,v,d,h,e,a,y:real;
procedure leer_datos(var w,v,d,h,e:real);
begin
write('introducirdistancia de la persona al edificio d= ');
readln(d);
write('introducir altura del edificio del cual cae el ladrillo h= ');
readln(h);
write('Introducir velocidad del ladrillo w= ');readln(w);
write('introducir altura de la persona e= ');
readln(e);
write('introducir velocidad de la persona v= ');
readln(v);
end;
procedure calc_de_alturas(w,v,d,h,e:real;vara,y:real);
begin
a:=h-e;
y:=((w*d)/v)+(0.5*g*(sqr(d)/sqr(v)));
end;
procedure donde_cae(a,y:real);
begin
if y=a then
writeln('le cae en la cabeza a la persona')
else
if y>a thenwriteln('cae delante de la persona')
else
writeln('cae detrás de la persona');
end;
begin
leer_datos(w,v,d,h,e);
calc_de_alturas(w,v,d,h,e,a,y);
donde_cae(a,y);
readkey;
end.