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 DarkBASIC suivant, vous trouverez la réponse que vous souhaitez :
PRINT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:"
PRINT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ";CalculDecilitresWhisky(Livre2Kilogramme(150.0),"H")
PRINT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ";CalculDecilitresVin(Livre2Kilogramme(150.0),"H")
PRINT "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ";CalculDecilitresBiere(Livre2Kilogramme(150.0),"H")
WAIT KEY
FUNCTION Livre2Kilogramme(livre#)
ReturnValue#=livre# * 0.4536
ENDFUNCTION ReturnValue#
FUNCTION FormuleAlcool(pd#,sexe$)
LOCAL sx#
SELECT sexe$
CASE "H":sx#=0.7:ENDCASE
CASE "F":sx#=0.6:ENDCASE
CASE DEFAULT: sx#=0.0:ENDCASE
ENDSELECT
ReturnValue# = 100 * (0.5 * pd# * sx#)
ENDFUNCTION ReturnValue#
FUNCTION CalculDecilitresWhisky(pd#,sexe$)
ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/320.0) / 10.0
ENDFUNCTION ReturnValue#
FUNCTION CalculDecilitresVin(pd#,sexe$)
ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/80.0) / 10.0
ENDFUNCTION ReturnValue#
FUNCTION CalculDecilitresBiere(pd#,sexe$)
ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/35.0)/ 10.0
ENDFUNCTION ReturnValue#
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
Dernière mise à jour : Samedi, le 4 octobre 2008