Section courante

A propos

Section administrative du site

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 Delphi suivant, vous trouverez la réponse que vous souhaitez :

  1. Program TauxAlcool;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Function Livre2Kilogramme(livre:Real):Real;Begin
  8.  Livre2Kilogramme := livre * 0.4536;
  9. End;
  10.      
  11. Function FormuleAlcool(pd:Real;sexe:Char):Real;
  12. Var
  13.  sx:Real;
  14. Begin
  15.  Case sexe of
  16.  'H': sx := 0.7;
  17.  'F': sx := 0.6;
  18.   Else sx := 0.0;
  19.  End;
  20.  FormuleAlcool := 100 * (0.5 * pd * sx);
  21. End;
  22.      
  23. Function CalculDecilitresWhisky(pd:Real;sexe:Char):Real;Begin
  24.  CalculDecilitresWhisky := Trunc(FormuleAlcool(pd, sexe) / 320) / 10;
  25. End;
  26.      
  27. Function CalculDecilitresVin(pd:Real;sexe:Char):Real;Begin
  28.  CalculDecilitresVin := Trunc(FormuleAlcool(pd, sexe) / 80 + 0.5) / 10;
  29. End;
  30.      
  31. Function CalculDecilitresBiere(pd:Real;sexe:Char):Real;Begin
  32.  CalculDecilitresBiere := Trunc(FormuleAlcool(pd, sexe) / 35 + 0.5)/ 10;
  33. End;
  34.      
  35. BEGIN
  36.  WriteLn('Taux d''alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:');
  37.  Write('Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ');
  38.  WriteLn(CalculDecilitresWhisky(Livre2Kilogramme(150),'H'):0:1);
  39.  Write('Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ');
  40.  WriteLn(CalculDecilitresVin(Livre2Kilogramme(150),'H'):1:0);
  41.  Write('Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ');
  42.  WriteLn(CalculDecilitresBiere(Livre2Kilogramme(150),'H'):0:1);
  43. END.

on obtiendra le résultat suivant :

Taux d'alcoolémie pour 0,5g/l théoriquement 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 : Dimanche, le 17 août 2014