Codigo en fortran para realizar calculos kineantropometricos

Solo disponible en BuenasTareas
  • Páginas : 3 (513 palabras )
  • Descarga(s) : 7
  • Publicado : 12 de abril de 2010
Leer documento completo
Vista previa del texto
Program Kine
implicit none
real:: x,triceps, subescapular, supraespinal
real:: Endomorfia, correcion, altura, mesomorfia
real:: E, K, A, C, Peso, Rip, Ectomorfia, pesoideala
real:: pesomagro,masamuscular, masavisceral, masaosea
real:: masagrasa, porcentajegrasa, ctea, cteb, logaritmo
real:: pantorrilla, cadera, brazoflex, brazorelax
real:: pantorrillamedial, muslofrontal, abdominal,crestailiaca
real:: biceps, cintura, untercio, division, dividendo
real:: pesoidealb, pesoidealtotal
integer:: sexo, n, opcion

n=0
Write(*,*)'Programa que realiza calculos Kineantropometricos'Write(*,*)'Version 1.1 19 de Mayo del 2008'

20 Write(*,*)'Es hombre o mujer?'
Write(*,*)'1.- Hombre'
write(*,*)'2.- Mujer'
read(*,*)Sexo
write(*,*)'Cual es el peso? [=] Kg'
read(*,*)pesowrite(*,*)'Cual es la estatura? [=] cm'
read(*,*)altura
write(*,*)'Cuanto mide los triceps? [=] mm'
read(*,*)triceps
write(*,*)'Cuanto mide la subescapular? [=] mm'
read(*,*)subescapularwrite(*,*)'Cuanto mide los biceps? [=] mm'
read(*,*)biceps
write(*,*)'Cuanto mide la cresta iliaca? [=] mm'
read(*,*)CrestaIliaca
write(*,*)'Cuanto mide la supraespinal? [=] mm'
read(*,*)supraespinalwrite(*,*)'Cuanto mide la abdominal? [=] mm'
read(*,*)abdominal
write(*,*)'Cuanto mide el muslo frontal? [=] mm'
read(*,*)MusloFrontal
write(*,*)'Cuanto mide la pantorrilla medial? [=] mm'read(*,*)PantorrillaMedial
write(*,*)'Cuanto mide el brazo relajado? [=] cm'
read(*,*)BrazoRelax
write(*,*)'Cuanto mide el brazo flexionado? [=] cm'
read(*,*)BrazoFlex
write(*,*)'Cuanto mide la cintura? [=]cm'
read(*,*)cintura
write(*,*)'Cuanto mide la cadera? [=] cm'
read(*,*)cadera
write(*,*)'Cuanto mide la pantorrilla? [=] cm'
read(*,*)pantorrilla
write(*,*)'Cuanto mide la humeral? [=] cm'read(*,*)E
write(*,*)'Cuanto mide el femoral? [=] cm'
read(*,*)K

x=triceps + subescapular + supraespinal
endomorfia=(0.1451*x)-0.00068*(x**2)+0.0000014*(x**3)-0.7182
correcion=170.18/altura...
tracking img