home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STRNUM.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  569 b   |  26 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STRNUM */
  4.  
  5.         main()
  6.  
  7.        {
  8.         float r;
  9.         int i,*fp;
  10.  
  11.         *fp=fopen("PRN:","w");                /* open the printer */
  12.         fprintf(*fp,"Test Results from STRNUM\n\n");
  13.         printf("Test Results from STRNUM\n\n");
  14.  
  15.         r = .21289;
  16.  
  17.         for (i = 1; i <= 10; i++)
  18.        {
  19.         strnum(&r);
  20.  
  21.         fprintf(*fp,"RANDOM NUMBER R=  %15.7f\n",r);
  22.          printf("RANDOM NUMBER R=  %15.7f\n",r);
  23.        }
  24.       }
  25.  
  26.