home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib9 / v_11_07 / 1107094b < prev    next >
Encoding:
Text File  |  1995-11-01  |  369 b   |  26 lines
  1. /* REAL_L3.C, Listing 3 */
  2.  
  3. #include <math.h>
  4. #include <real_t.h>
  5.  
  6. void main( void )
  7.    {
  8.  
  9.    int i;
  10.    real_t x, error;
  11.  
  12.    x = RC( 1.0 );
  13.    error = RC( 0.0 );
  14.    for ( i = 0; i < 30000; i++ )
  15.       {
  16.       error += fabs( x - sqrt( x ) * sqrt( x ) );
  17.       x++;
  18.       }
  19.    error = error;
  20.  
  21.    }   /* function main */
  22.  
  23. /* End of REAL_L3.C */
  24.  
  25.  
  26.