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

  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include "math.h"
  4.  
  5. double round(double value) {
  6.      return floor(value + 0.5);
  7. }
  8.  
  9. double Livre2Kilogramme(double livre) {
  10.    return livre * 0.4536;
  11. }
  12.  
  13. double FormuleAlcool(double pd,char sexe) {
  14.      double sx;
  15.     switch(sexe) {
  16.           case 'H':sx=0.7;break;
  17.           case 'F':sx=0.6;break;
  18.           default:sx=0.0;break;
  19.      }
  20.      return 100 * (0.5 * pd * sx);
  21. }
  22.  
  23. double CalculDecilitresWhisky(double pd,char sexe) {
  24.     return round(FormuleAlcool(pd, sexe)/320) / 10;
  25. }
  26.  
  27. double CalculDecilitresVin(double pd,char sexe) {
  28.      return round(FormuleAlcool(pd, sexe)/80) / 10;
  29. }
  30.  
  31. double CalculDecilitresBiere(double pd,char sexe) {
  32.      return round(FormuleAlcool(pd, sexe)/35)/ 10;
  33. }
  34.  
  35. int main()
  36. {
  37.     printf("Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:\n");
  38.     printf("Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: %f\n",CalculDecilitresWhisky(Livre2Kilogramme(150),'H'));
  39.     printf("Nombre de verre (décilitres) de Vin pour un homme de 150 livres: %f\n",CalculDecilitresVin(Livre2Kilogramme(150),'H'));
  40.     printf("Nombre de verre (décilitres) de Bière pour un homme de 150 livres: %f\n",CalculDecilitresBiere(Livre2Kilogramme(150),'H'));
  41.     return 0;
  42. }

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 : Dimanche, le 26 juillet 2015