{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 2, EXERCICE 1 }

program racine; {programme racine}
uses crt;   {d‚claration des unit‚s utilis‚es}
var X:integer; {les nombres accept‚s sont seulement entiers, sinon REAL}

BEGIN    {d‚but du programme principal}
clrscr; {efface l'‚cran}
repeat {d‚but de boucle}
write('Entrez au clavier le nombre dont on va extraire la racine carr‚e : ');
{affiche un message … l'‚cran}
readln(X); {lit les donn‚es entr‚es par l'utilisateur}
{bloc conditionnel "IF...THEN...ELSE" car on n'extrait pas
la racine d'un nombre n‚gatif}
if X>=0 then writeln('La racine carr‚e de ',X,' vaut ',sqrt(X):0:5)
             {extrait la racine carr‚e de X  et formate en 5 d‚cimales}
        else writeln('Vous devez imp‚rativement entrer un nombre positif !');
        {fin du bloc conditionnel}
until X>=0; {fin de boucle lorsque X convient}
readln; {pause du programme tant que <ENTREE> n'est pas press‚e}
END. {fin du programme principal}