home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / mathe / ratest.pas < prev   
Pascal/Delphi Source File  |  1994-10-04  |  1KB  |  31 lines
  1. Program RATEST;
  2.  
  3. {$n-}         {désactive le coprocesseur}
  4. Function Racfct(Radicande:LongInt):Integer;external;
  5. {$l c:\edition\prog\fr\asm\racine}
  6. {reporter ici le chemin d'accès au module assembleur racine.obj!}
  7.  
  8. var i:word; {compteur d'itérations}
  9.     n:Integer;                  {résultat du calcul entier }
  10.     r:Real;                     {résultat du calcul real }
  11. Procedure racine_nouvo;           {calcule la racine par approximations entières }
  12. Begin
  13.   For i:=1 to 10000 do          {10000 fois  }
  14.     n:=Racfct(87654321);       {pour pouvoir comparer la vitesse }
  15. End;
  16. Procedure racine_real;          {calcule la racine par fonction Pascal }
  17. Begin
  18.   For i:=1 to 10000 do          {10000 fois}
  19.     r:=Sqrt(87654321);          {pour pouvoir comparer la vitesse }
  20. End;
  21.  
  22. Begin
  23.   writeLn;
  24.   WriteLn('Extraction de racine par fonction Pascal:');
  25.   Racine_Real;
  26.   WriteLn('Résultat: ',r:0:0);
  27.   WriteLn('Extraction de racine carrée par méthode d''approximations entières:');
  28.   racine_nouvo;
  29.   WriteLn('Racine: ',n);
  30. End.
  31.