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

  1. DEF FNLivre2Kilogramme(livre)
  2.    FNLivre2Kilogramme=livre * 0.4536
  3. END DEF
  4.  
  5. DEF FNFormuleAlcool(pd,sexe$)
  6.     LOCAL sx
  7.     SELECT CASE sexe$
  8.        CASE "H":sx=0.7
  9.        CASE "F":sx=0.6
  10.        CASE ELSE: sx=0.0
  11.     END SELECT
  12.     FNFormuleAlcool = 100 * (0.5 * pd * sx)
  13. END DEF
  14.  
  15. DEF FNCalculDecilitresWhisky(pd,sexe$)
  16.     FNCalculDecilitresWhisky=INT(FNFormuleAlcool(pd, sexe$)/320) / 10
  17. END DEF
  18.  
  19. DEF FNCalculDecilitresVin(pd,sexe$)
  20.      FNCalculDecilitresVin=INT(FNFormuleAlcool(pd, sexe$)/80) / 10
  21. END DEF
  22.  
  23. DEF FNCalculDecilitresBiere(pd,sexe$)
  24.      FNCalculDecilitresBiere=INT(FNFormuleAlcool(pd, sexe$)/35)/ 10
  25. END DEF
  26.  
  27. PRINT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:"
  28. PRINT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "+STR$(FNCalculDecilitresWhisky(FNLivre2Kilogramme(150),"H"))
  29. PRINT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "+STR$(FNCalculDecilitresVin(FNLivre2Kilogramme(150),"H"))
  30. PRINT "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: "+STR$(FNCalculDecilitresBiere(FNLivre2Kilogramme(150),"H"))

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 : Mardi, le 28 juillet 2015