Accueil de Gladir.com Notes légal de Gladir.com Flux RSS des nouvelles du site Gladir.com - C++ - Biochimie - Calcul le taux d'alcoolémie Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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

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

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: Lundi, le 19 juillet 2010