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

  1. DECLARE FUNCTION Livre2Kilogramme! (livre!)
  2. DECLARE FUNCTION FormuleAlcool! (pd!, sexe$)
  3. DECLARE FUNCTION CalculDecilitresWhisky! (pd!, sexe$)
  4. DECLARE FUNCTION CalculDecilitresVin! (pd!, sexe$)
  5. DECLARE FUNCTION CalculDecilitresBiere! (pd!, sexe$)
  6.  
  7. PRINT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:"
  8. PRINT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "; CalculDecilitresWhisky(Livre2Kilogramme(150!), "H")
  9. PRINT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "; CalculDecilitresVin(Livre2Kilogramme(150!), "H")
  10. PRINT "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: "; CalculDecilitresBiere(Livre2Kilogramme(150!), "H")
  11.  
  12. FUNCTION CalculDecilitresBiere (pd, sexe$)
  13.  CalculDecilitresBiere = CINT(FormuleAlcool(pd, sexe$) / 35!) / 10!
  14. END FUNCTION
  15.  
  16. FUNCTION CalculDecilitresVin (pd, sexe$)
  17.  CalculDecilitresVin = CINT(FormuleAlcool(pd, sexe$) / 80!) / 10!
  18. END FUNCTION
  19.  
  20. FUNCTION CalculDecilitresWhisky (pd, sexe$)
  21.  CalculDecilitresWhisky = CINT(FormuleAlcool(pd, sexe$) / 320!) / 10!
  22. END FUNCTION
  23.  
  24. FUNCTION FormuleAlcool (pd, sexe$)
  25.  DIM sx AS DOUBLE
  26.  SELECT CASE sexe$
  27.   CASE "H": sx = .7
  28.   CASE "F": sx = .6
  29.   CASE ELSE: sx = 0!
  30.  END SELECT
  31.  FormuleAlcool = 100 * (.5 * pd * sx)
  32. END FUNCTION
  33.  
  34. FUNCTION Livre2Kilogramme (livre)
  35.  Livre2Kilogramme = livre * .4536
  36. END FUNCTION

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 : Mercredi, le 14 septembre 2016