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 Visual Basic .NET suivant, vous trouverez la réponse que vous souhaitez :

  1. Imports System
  2.  
  3. Module Module1
  4.  
  5.     Function Livre2Kilogramme(ByVal livre As Double) As Double
  6.         Livre2Kilogramme = livre * 0.4536
  7.     End Function
  8.  
  9.     Function FormuleAlcool(ByVal pd As Double, ByVal sexe As String) As Double
  10.         Dim sx As Double
  11.         Select Case sexe
  12.             Case "H" : sx = 0.7
  13.             Case "F" : sx = 0.6
  14.             Case Else : sx = 0.0
  15.         End Select
  16.         FormuleAlcool = 100 * (0.5 * pd * sx)
  17.     End Function
  18.  
  19.     Function CalculDecilitresWhisky(ByVal pd As Double, ByVal sexe As String)
  20.         CalculDecilitresWhisky = Math.Round(FormuleAlcool(pd, sexe) / 320.0) / 10.0
  21.     End Function
  22.  
  23.     Function CalculDecilitresVin(ByVal pd As Double, ByVal sexe As String)
  24.         CalculDecilitresVin = Math.Round(FormuleAlcool(pd, sexe) / 80.0) / 10.0
  25.     End Function
  26.  
  27.     Function CalculDecilitresBiere(ByVal pd As Double, ByVal sexe As String)
  28.         CalculDecilitresBiere = Math.Round(FormuleAlcool(pd, sexe) / 35.0) / 10.0
  29.     End Function
  30.  
  31.     Sub Main()
  32.         Console.WriteLine("Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:")
  33.         Console.WriteLine("Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: " & CStr(CalculDecilitresWhisky(Livre2Kilogramme(150.0), "H")))
  34.         Console.WriteLine("Nombre de verre (décilitres) de Vin pour un homme de 150 livres: " & CStr(CalculDecilitresVin(Livre2Kilogramme(150.0), "H")))
  35.         Console.WriteLine("Nombre de verre (décilitres) de Bière pour un homme de 150 livres: " & CStr(CalculDecilitresBiere(Livre2Kilogramme(150.0), "H")))
  36.     End Sub
  37.  
  38. End Module

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 : Samedi, le 22 octobre 2016