Gladir.com - C# (C Sharp) - Biochimie - Calcul le taux d'alcoolémie


Même si, à première vue, il semble impossible de calculer le taux d'alcoolémie réel à cause de tous les facteurs (médication, humeur, fatigue, allergie,...), on peut malgré tout effectuer le calcul théorie de celui-ci selon la formule suivante:
Formule (F) = (l0 g x Nombre de verres) / Poids en kilogrammes x Coefficient
Enfin, supposons que le coefficient est le suivant en fonction des sexes:
Homme Femme
0,70 0,60
A l'aide du code source C# (C Sharp) suivant, vous trouverez la réponse que vous souhaitez:
using System;

namespace Alcool
{
     class Program
     {
          static double Livre2Kilogramme(double livre) 
          {
               return livre * 0.4536;
          }

          static double FormuleAlcool(double pd,char sexe) 
          {
               double sx;
               switch(sexe) 
               {
                    case 'H':sx=0.7;break;
                    case 'F':sx=0.6;break;
                    default:sx=0.0;break;          
               }
               return 100 * (0.5 * pd * sx);
          }

          static double CalculDecilitresWhisky(double pd,char sexe) 
          {
               return Math.Round(FormuleAlcool(pd, sexe)/320) / 10;
          }

          static double CalculDecilitresVin(double pd,char sexe) 
          {
               return Math.Round(FormuleAlcool(pd, sexe)/80) / 10;
          }

          static double CalculDecilitresBiere(double pd,char sexe) 
          {
               return Math.Round(FormuleAlcool(pd, sexe)/35)/ 10;
          }

          static void Main(string[] args)
          {
               Console.WriteLine("Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:");
               Console.WriteLine("Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "+CalculDecilitresWhisky(Livre2Kilogramme(150),'H'));
               Console.WriteLine("Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "+CalculDecilitresVin(Livre2Kilogramme(150),'H'));
               Console.WriteLine("Nombre de verre (décilitres) de Bière pour un homme de 150 livres: "+CalculDecilitresBiere(Livre2Kilogramme(150),'H'));
          }
     }
}
on obtiendra le résultat suivant:
Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:
Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: 0.7
Nombre de verre (décilitres) de Vin pour un homme de 150 livres: 3
Nombre de verre (décilitres) de Bière pour un homme de 150 livres: 6.8


Voir également

Science - Biochimie

Dernière mise à jour: Vendredi, le 12 janvier 2007