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

Essayer maintenant !
  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. STDOUT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:" 
  28. STDOUT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "+STR$(FNCalculDecilitresWhisky(FNLivre2Kilogramme(150),"H")) 
  29. STDOUT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "+STR$(FNCalculDecilitresVin(FNLivre2Kilogramme(150),"H")) 
  30. STDOUT "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é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 23 janvier 2016