Email is:
(none)
SUBJECT: PROGRAMMING
DATE: 12-19-02 3:46pm
Written by:
yochatwitme@yahoo.com
FRACTION PROGRAM
CLS DIM Fractions(9) AS STRING DIM Wholenum AS SINGLE DEF Fnst$(z) = MID$(STR$(z),2+(z<0) FOR Range = 1 TO 9 Fractions(Range) = "1/" + Fnst$(Range) NEXT FOR X = 1 TO 9 Wholenum = VAL(Fractions(X)) / X PRINT Fractions(X); "=";" Wholenum NEXT
Return to QBASIC MESSAGE BOARD
