double carre( double nbre )
{
    double resultat ; /* définition de la variable de bloc */
    resultat = nbre * nbre ;
    return resultat ;
}