Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - C# (C Sharp) - Biochimie - Calcul le taux d'alcoolémie Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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 :

  1. using System;
  2.  
  3. namespace Alcool
  4. {
  5.      class Program
  6.      {
  7.           static double Livre2Kilogramme(double livre) 
  8.           {
  9.                return livre * 0.4536;
  10.           }
  11.  
  12.           static double FormuleAlcool(double pd,char sexe) 
  13.           {
  14.                double sx;
  15.                switch(sexe) 
  16.                {
  17.                     case 'H':sx=0.7;break;
  18.                     case 'F':sx=0.6;break;
  19.                     default:sx=0.0;break;          
  20.                }
  21.                return 100 * (0.5 * pd * sx);
  22.           }
  23.  
  24.           static double CalculDecilitresWhisky(double pd,char sexe) 
  25.           {
  26.                return Math.Round(FormuleAlcool(pd, sexe)/320) / 10;
  27.           }
  28.  
  29.           static double CalculDecilitresVin(double pd,char sexe) 
  30.           {
  31.                return Math.Round(FormuleAlcool(pd, sexe)/80) / 10;
  32.           }
  33.  
  34.           static double CalculDecilitresBiere(double pd,char sexe) 
  35.           {
  36.                return Math.Round(FormuleAlcool(pd, sexe)/35)/ 10;
  37.           }
  38.  
  39.           static void Main(string[] args)
  40.           {
  41.                Console.WriteLine("Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:");
  42.                Console.WriteLine("Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "+CalculDecilitresWhisky(Livre2Kilogramme(150),'H'));
  43.                Console.WriteLine("Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "+CalculDecilitresVin(Livre2Kilogramme(150),'H'));
  44.                Console.WriteLine("Nombre de verre (décilitres) de Bière pour un homme de 150 livres: "+CalculDecilitresBiere(Livre2Kilogramme(150),'H'));
  45.           }
  46.      }
  47. }

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 25 mai 2012