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 BASICA/GWBASIC suivant, vous trouverez la réponse que vous souhaitez:

10 DEF FNCALCULCALCIUMCORRIGE(CALCIUMTOTAL, ALBUMINE)=CALCIUMTOTAL + .8 * (40 - ALBUMINE)  20 PRINT "Si Albumine=40g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut "; 30 PRINT STR$(FNCALCULCALCIUMCORRIGE(2.28, 40)) + "mg/L" 40 PRINT "Si Albumine=38g/L et Calcium Total=2,28mg/L alors le Calcium corrigé vaut "; 50 PRINT STR$(FNCALCULCALCIUMCORRIGE(2.28, 38)) + "mg/L"

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