home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mathaids / misc / decimal.asc < prev    next >
Text File  |  1996-06-30  |  951b  |  27 lines
  1. 100 PRINT" **************************************"
  2. 110 PRINT" *    CONVERT- DECIMAL TO FRACTION    *"
  3. 120 PRINT" *    SEE SANDBERG, BYTE, MAY 1985    *"
  4. 130 PRINT" *      MODIFIED BY R.P.HAVILAND      *"
  5. 140 PRINT" **************************************"
  6. 150 DEF FNP(X)=INT(10000*X+.5)/10000
  7. 200 K$="":L$=""
  8. 210 INPUT"ENTER DECIMAL VALUE OF FRACTION";H:A=H:GOSUB 1000
  9. 220 K$="* SQR 2":A=H/SQR(2):GOSUB 1000
  10. 230 K$="* SQR 3":A=H/SQR(3):GOSUB 1000
  11. 240 K$="* SQR 5":A=H/SQR(5):GOSUB 1000
  12. 250 PI= 3.141592653589793#
  13. 260 K$="* PI":A=H/PI:GOSUB 1000
  14. 270 K$="* PI*PI":A=H/PI/PI:GOSUB 1000
  15. 280 K$="":L$="PI":A=H*PI:GOSUB 1000
  16. 290 L$="PI*PI":A=H*PI*PI:GOSUB 1000
  17. 300 GOTO 1030
  18. 1000 C=ABS(A):B=1
  19. 1010 B=B/C:C=1/C-INT(1/C):IF B>10000 THEN RETURN
  20. 1020 IF C>.00001 GOTO 1010
  21. 1030 B=INT(B):IF SQR(B)=H/A THEN L$=K$:K$="":A=A*B:B=1
  22. 1040 B=INT(B):PRINT FNP(A*B);K$;"/";FNP(B);L$
  23. 2000 INPUT " PRESS RETURN = RERUN OR A KEY + RETURN = STOP";Q$
  24. 2010 IF Q$="" GOTO 210
  25.  
  26.  
  27.