home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / carre.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  622 b   |  22 lines
  1. program au_carre;   { triangle rectangle?  3 4 5    6 8 10}
  2.  
  3. var
  4.     cote1, cote2,cote3    : integer;
  5.  
  6. begin
  7.     writeln('Pour arreter, taper 0');
  8.     write ('Entrer 3 entiers: ');
  9.     readln(cote1, cote2,cote3);
  10.     writeln ('************* ',cote1,' ', cote2,' ',cote3);
  11.     while cote1 <> 0 do
  12.     begin
  13.         if sqr(cote3) = sqr(cote1)+sqr(cote2) then
  14.                 writeln(' C''est un triangle rectangle')
  15.             else
  16.                 writeln(' Ce n''est pas un triangle rectangle');
  17.         write(': ');
  18.     readln(cote1, cote2,cote3);
  19.     writeln ('************* ',cote1,' ', cote2,' ',cote3);
  20.     end;
  21.  
  22. end.