home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / int2asc.c < prev    next >
Text File  |  1989-02-08  |  640b  |  25 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*             INT2ASC(X,X)        */
  4. /*                    */
  5. /* Puts an integer given in the    first   */
  6. /* argument into a character array given*/
  7. /* in the second argument.        */
  8. /*                    */
  9. /*--------------------------------------*/
  10. void int2asc(a,r,num)
  11. char r[];
  12. int a,num;
  13. {
  14.     int e,j;
  15.     double pow(),dd,P,ten;
  16.     P=a;
  17.     ten=10.0;
  18.     for (j=0;j<num;j++){
  19.              dd=num-j-1;
  20.              dd=pow(ten,dd);
  21.              e=a/dd;
  22.              r[j]=e+48;
  23.              a-=dd*e;
  24.     }
  25. }