Gladir.com - RemObjects Chrome - Biochimie - Calcul du calcium corrigé (analyse sanguine)


Lorsqu'on effectue des analyses de sang, il y a dans le «Diagnostique médicale», l'expression «Calcium corrigé», désignant l'estimation de la concentration total si la concentration d'Albumine est normal, soit la formule suivante: Calcium corrigé = Calcium total + 0,8 x (40 - Albumine) selon le livre «Tietz Textbook of clinical chemistry, 3ème édition, 1999». Enfin, supposons les données suivantes:
Albumine Calcium
40g/L 2,28mg/L
38g/L 2,28mg/L
A l'aide du code source RemObjects Chrome suivant, vous trouverez la réponse que vous souhaitez:
NameSpace calculcalciumcorrige;

INTERFACE

Uses 
 System,System.Text;

type
  Prog = class
    class method CalculCalciumcorrige(CalciumTotal,Albumine:Double):Double; 
    class method Main(Args: array of String);
  end;

IMPLEMENTATION

class method Prog.Main(Args: array of String);
begin
  Console.Write('Si Albumine=40g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut '); 
  Console.WriteLine(Convert.ToString(CalculCalciumcorrige(2.28, 40.0)) + 'mg/L');
  Console.Write('Si Albumine=38g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut '); 
  Console.WriteLine(Convert.ToString(CalculCalciumcorrige(2.28, 38)) + 'mg/L');
end;

class method Prog.CalculCalciumcorrige(CalciumTotal,Albumine:Double):Double;Begin
  Result:=CalciumTotal + 0.8 * (40 - Albumine); 
End;

END.
on obtiendra le résultat suivant:
Si Albumine=40g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut 2.28mg/L
Si Albumine=38g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut 3.88mg/L


Voir également

Science - Biochimie

Dernière mise à jour: Vendredi, le 12 janvier 2007