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 Ada suivant, vous trouverez la réponse que vous souhaitez :
- WITH TEXT_IO;
- PROCEDURE CalciumCorrige IS
- USE TEXT_IO;
- FUNCTION CalculCalciumcorrige(CalciumTotal,Albumine:IN Float) RETURN Float IS BEGIN
- RETURN CalciumTotal+0.8*(40.0-Albumine);
- END CalculCalciumcorrige;
- BEGIN
- PUT_LINE("Si Albumine=40g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut "&
- FLOAT'IMAGE(CalculCalciumcorrige(2.28,40.0)) & "mg/L");
- PUT_LINE("Si Albumine=38g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut: "&
- FLOAT'IMAGE(CalculCalciumcorrige(2.28,38.0)) & "mg/L");
- END CalciumCorrige;
on obtiendra le résultat suivant :
Si Albumine=40g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut 2.28mg/LSi Albumine=38g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut 3.88mg/L
Voir également
Dernière mise à jour : Samedi, le 25 août 2012