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

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

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 : Samedi, le 13 février 2016