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