Langage de programmation - Ada - Médicale - Calcul de la hauteur utérine (Fournié en 1987)

Pour connaitre la vitesse de croissance moyenne de la hauteur utérine lors de la grossesse d'une femme enceinte, on utilise souvent la formule empirique de Fournié (1987). En somme, on se retrouve avec le tableau suivants :

SA (Semaines d'Aménorrhée)	Mois d'Aménorrhée	Hauteur utérine	Intervalle
16 à 32	3 1/2 à 7	Croissance de 1 cm par jour	Entre -4 et 1 cm proportionnel à SA
33 à 40	7 à 9	Croissance de 1/2 cm par jour	Entre -4 et 1 cm

A noter que la SA est l'abréviation de «Semaines d'Aménorrhée», soit le nombre de semaine depuis la fécondation de l'ovule (du commencement de la grossesse). A l'aide du code source Ada suivant, vous trouverez la réponse que vous souhaitez :


			

WITH TEXT_IO; 

 
PROCEDURE CalculHauteurUterine IS 

   USE TEXT_IO; 

      

   FUNCTION CalculHauteurUterineInf(SA:IN Integer) RETURN Float IS BEGIN      

      CASE SA IS         

         WHEN 0..15 => RETURN Float(SA);         

         WHEN 16..32 => RETURN Float(SA-4);         

         WHEN 33..40 => RETURN ((Float(SA)-32.0)/2.0)+28.0;

         WHEN OTHERS => RETURN -1.0;

      END CASE;       

   END CalculHauteurUterineInf;

   

   FUNCTION CalculHauteurUterineSup(SA:IN Integer) RETURN Float IS BEGIN      

      CASE SA IS                  

         WHEN 0..15 => RETURN Float(SA);

         WHEN 16..32 => RETURN Float(SA+1);

         WHEN 33..40 => RETURN ((Float(SA)-32.0)/2.0)+33.0;

         WHEN OTHERS => RETURN -1.0;         

      END CASE;      

   END CalculHauteurUterineSup;

   

BEGIN 

   FOR I IN 16..40 LOOP      

      PUT_LINE("A la " & INTEGER'IMAGE(I) & " semaine(s), la valeur moyenne est de " &

         FLOAT'IMAGE(CalculHauteurUterineInf(I)) & " à " &            

         FLOAT'IMAGE(CalculHauteurUterineSup(I)) & "Cm");         

   END LOOP;   

END CalculHauteurUterine;

on obtiendra le résultat suivant :

A la 16 semaine(s), la valeur moyenne est de 12.0 à 17.0cm A la 17 semaine(s), la valeur moyenne est de 13.0 à 18.0cm A la 18 semaine(s), la valeur moyenne est de 14.0 à 19.0cm A la 19 semaine(s), la valeur moyenne est de 15.0 à 20.0cm A la 20 semaine(s), la valeur moyenne est de 16.0 à 21.0cm A la 21 semaine(s), la valeur moyenne est de 17.0 à 22.0cm A la 22 semaine(s), la valeur moyenne est de 18.0 à 23.0cm A la 23 semaine(s), la valeur moyenne est de 19.0 à 24.0cm A la 24 semaine(s), la valeur moyenne est de 20.0 à 25.0cm A la 25 semaine(s), la valeur moyenne est de 21.0 à 26.0cm A la 26 semaine(s), la valeur moyenne est de 22.0 à 27.0cm A la 27 semaine(s), la valeur moyenne est de 23.0 à 28.0cm A la 28 semaine(s), la valeur moyenne est de 24.0 à 29.0cm A la 29 semaine(s), la valeur moyenne est de 25.0 à 30.0cm A la 30 semaine(s), la valeur moyenne est de 26.0 à 31.0cm A la 31 semaine(s), la valeur moyenne est de 27.0 à 32.0cm A la 32 semaine(s), la valeur moyenne est de 28.0 à 33.0cm A la 33 semaine(s), la valeur moyenne est de 28.5 à 33.5cm A la 34 semaine(s), la valeur moyenne est de 29.0 à 34.0cm A la 35 semaine(s), la valeur moyenne est de 29.5 à 34.5cm A la 36 semaine(s), la valeur moyenne est de 30.0 à 35.0cm A la 37 semaine(s), la valeur moyenne est de 30.5 à 35.5cm A la 38 semaine(s), la valeur moyenne est de 31.0 à 36.0cm A la 39 semaine(s), la valeur moyenne est de 31.5 à 36.5cm A la 40 semaine(s), la valeur moyenne est de 32.0 à 37.0cm

N.B.: Il est a noter que cette formule fonctionne assez bien au XX^ième et XXI^ième siècles en Europe et en Occident mais qu'il n'est pas certain qu'elle soit applicable pour nos ancêtres (utilisant des calculs avec deux doigts) ou notre lointaine descendance. De plus, il va de soit qu'on aurait des résultats forts différents pour une souris ou un éléphant et qu'en somme, elle ne s'applique que pour l'humain.

Voir également

Science - Médecine

Dernière mise à jour : Samedi, le 25 août 2012

Section courante

A propos

Section administrative du site

Voir également