Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - 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 Perl suivant, vous trouverez la réponse que vous souhaitez :

  1. #!/usr/bin/perl
  2.  
  3. use Switch;
  4.  
  5. sub Livre2Kilogramme() {
  6.  my($livre) = @_;
  7.  return $livre * 0.4536;
  8. }
  9.  
  10. sub FormuleAlcool() {
  11.  my($pd,$sexe) = @_;
  12.  my($sx);
  13.  switch($sexe) {
  14.   case ['H'] {
  15.    $sx = 0.7;
  16.   }
  17.   case ['F'] {
  18.    $sx = 0.6;
  19.   }
  20.   else {
  21.    $sx = 0.0;
  22.   }
  23.  }
  24.  return 100 * (0.5 * $pd * $sx);
  25. }
  26.  
  27. sub CalculDecilitresWhisky() {
  28.  my($pd,$sexe) = @_;
  29.  return int(&FormuleAlcool($pd, $sexe) / 320 + 0.5) / 10;
  30. }
  31.  
  32. sub CalculDecilitresVin() {
  33.  my($pd,$sexe) = @_;
  34.  return int(&FormuleAlcool($pd, $sexe) / 80 + 0.5) / 10;
  35. }
  36.  
  37. sub CalculDecilitresBiere() {
  38.  my($pd,$sexe) = @_;
  39.  return int(&FormuleAlcool($pd, $sexe) / 35 + 0.5)/ 10;
  40. }
  41.  
  42. print "Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:\n";
  43. print "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: " . &CalculDecilitresWhisky(&Livre2Kilogramme(150),'H') . "\n";
  44. print "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: " . &CalculDecilitresVin(&Livre2Kilogramme(150),'H') . "\n";
  45. print "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: " . &CalculDecilitresBiere(&Livre2Kilogramme(150),'H') . "\n";

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 23 décembre 2011