14479Sbinkertn@umich.edu1 REM :: THIS PROGRAM COMPUTES HOW MANY TIMES YOU HAVE TO FOLD 24479Sbinkertn@umich.edu2 REM :: A PIECE OF PAPER SO THAT IT IS TALLER THAN THE 34479Sbinkertn@umich.edu3 REM :: SEARS TOWER. 44479Sbinkertn@umich.edu4 REM :: S = HEIGHT OF TOWER (METERS) 54479Sbinkertn@umich.edu5 REM :: T = THICKNESS OF PAPER (MILLIMETERS) 64479Sbinkertn@umich.edu10 LET S = 442 74479Sbinkertn@umich.edu20 LET T = 0.1 84479Sbinkertn@umich.edu30 REM CONVERT T TO METERS 94479Sbinkertn@umich.edu40 LET T = T * .001 104479Sbinkertn@umich.edu50 LET F = 1 114479Sbinkertn@umich.edu60 LET H = T 124479Sbinkertn@umich.edu100 IF H > S THEN 200 134479Sbinkertn@umich.edu120 LET H = 2 * H 144479Sbinkertn@umich.edu125 LET F = F + 1 154479Sbinkertn@umich.edu130 GOTO 100 164479Sbinkertn@umich.edu200 PRINT "NUMBER OF FOLDS ="F 174479Sbinkertn@umich.edu220 PRINT "FINAL HEIGHT ="H 184479Sbinkertn@umich.edu999 END 19