19 lines
481 B
QBasic
19 lines
481 B
QBasic
|
1 REM :: THIS PROGRAM COMPUTES HOW MANY TIMES YOU HAVE TO FOLD
|
||
|
|
2 REM :: A PIECE OF PAPER SO THAT IT IS TALLER THAN THE
|
||
|
|
3 REM :: SEARS TOWER.
|
||
|
|
4 REM :: S = HEIGHT OF TOWER (METERS)
|
||
|
|
5 REM :: T = THICKNESS OF PAPER (MILLIMETERS)
|
||
|
|
10 LET S = 442
|
||
|
|
20 LET T = 0.1
|
||
|
|
30 REM CONVERT T TO METERS
|
||
|
|
40 LET T = T * .001
|
||
|
|
50 LET F = 1
|
||
|
|
60 LET H = T
|
||
|
|
100 IF H > S THEN 200
|
||
|
|
120 LET H = 2 * H
|
||
|
|
125 LET F = F + 1
|
||
|
|
130 GOTO 100
|
||
|
|
200 PRINT "NUMBER OF FOLDS ="F
|
||
|
|
220 PRINT "FINAL HEIGHT ="H
|
||
|
|
999 END
|