|
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:
A l'aide du code source Pascal suivant, vous trouverez la réponse que vous souhaitez:
Program TauxAlcool;
Function Livre2Kilogramme(livre:Real):Real;Begin
Livre2Kilogramme := livre * 0.4536;
End;
Function FormuleAlcool(pd:Real;sexe:Char):Real;
Var
sx:Real;
Begin
Case sexe of
'H': sx := 0.7;
'F': sx := 0.6;
Otherwise sx := 0.0;
End;
FormuleAlcool := 100 * (0.5 * pd * sx);
End;
Function CalculDecilitresWhisky(pd:Real;sexe:Char):Real;Begin
CalculDecilitresWhisky := Trunc(FormuleAlcool(pd, sexe) / 320) / 10;
End;
Function CalculDecilitresVin(pd:Real;sexe:Char):Real;Begin
CalculDecilitresVin := Trunc(FormuleAlcool(pd, sexe) / 80 + 0.5) / 10;
End;
Function CalculDecilitresBiere(pd:Real;sexe:Char):Real;Begin
CalculDecilitresBiere := Trunc(FormuleAlcool(pd, sexe) / 35 + 0.5)/ 10;
End;
BEGIN
WriteLn('Taux d''alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:');
WriteLn('Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ',CalculDecilitresWhisky(Livre2Kilogramme(150),'H'):0:1);
WriteLn('Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ',CalculDecilitresVin(Livre2Kilogramme(150),'H'):1:0);
WriteLn('Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ',CalculDecilitresBiere(Livre2Kilogramme(150),'H'):0:1);
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: Vendredi, le 12 janvier 2007 |
