home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug064.arc / FLOATSQ.C < prev    next >
Text File  |  1979-12-31  |  768b  |  33 lines
  1. float z;   /* This is a global variable */
  2.  
  3. main()
  4. {
  5. int index;
  6. float x,y,sqr(),glsqr();
  7.  
  8.    for (index = 0;index <= 7;index++){
  9.       x = index;  /* convert int to float */
  10.       y = sqr(x); /* square x to a floating point variable */
  11.       printf("The square of %d is %10.4f\n",index,y);
  12.    }
  13.  
  14.    for (index = 0; index <= 7;index++) {
  15.       z = index;
  16.       y = glsqr();
  17.       printf("The square of %d is %10.4f\n",index,y);
  18.    }
  19. }
  20.  
  21. float sqr(inval)  /* square a float, return a float */
  22. float inval;
  23. {
  24. float square;
  25.  
  26.    square = inval * inval;
  27.    return(square);
  28. }
  29.  
  30. float glsqr()    /* square a float, return a float */
  31. {
  32.    return(z*z);
  33. }