PROGRAM 19


'  FILENAME:  PROG19.BAS
'  THIS PROGRAM CALCULATES AND PRINTS THE SQUARE, CUBE, AND SQUARE ROOT OF
'  NUMBERS RANGING FROM 1 TO 10.
CLS
GOSUB PRINT.HEADING
GOSUB PRINT.TABLE
END
PRINT.HEADING:
        PRINT " X        X^2         X^3         SQROOT(X)"
        PRINT
RETURN
PRINT.TABLE:
        FOR X = 1 TO 10
                LET X2 = X ^ 2
                LET X3 = X ^ 3
                LET X4 = SQR(X)
                PRINT USING "##        ###        ####         #.###"; X; X2; X3; X4
        NEXT X
RETURN

'  FILENAME:  PROG19.OUT

 X        X^2         X^3         SQROOT(X)

 1          1           1         1.000
 2          4           8         1.414
 3          9          27         1.732
 4         16          64         2.000
 5         25         125         2.236
 6         36         216         2.449
 7         49         343         2.646
 8         64         512         2.828
 9         81         729         3.000
10        100        1000         3.162




BACK TO CIS133 PAGE.