annotate ply-3.8/example/BASIC/sears.bas @ 12264:5430316485e2
draft
<oerjan> t mkx bin/fnord//echo \'? No such file or directory\'
author |
HackEso <hackeso@esolangs.org> |
date |
Sun, 15 Dec 2019 21:57:09 +0000 |
parents |
343ff337a19b |
children |
|
rev |
line source |
7267
|
1 1 REM :: THIS PROGRAM COMPUTES HOW MANY TIMES YOU HAVE TO FOLD
|
|
2 2 REM :: A PIECE OF PAPER SO THAT IT IS TALLER THAN THE
|
|
3 3 REM :: SEARS TOWER.
|
|
4 4 REM :: S = HEIGHT OF TOWER (METERS)
|
|
5 5 REM :: T = THICKNESS OF PAPER (MILLIMETERS)
|
|
6 10 LET S = 442
|
|
7 20 LET T = 0.1
|
|
8 30 REM CONVERT T TO METERS
|
|
9 40 LET T = T * .001
|
|
10 50 LET F = 1
|
|
11 60 LET H = T
|
|
12 100 IF H > S THEN 200
|
|
13 120 LET H = 2 * H
|
|
14 125 LET F = F + 1
|
|
15 130 GOTO 100
|
|
16 200 PRINT "NUMBER OF FOLDS ="F
|
|
17 220 PRINT "FINAL HEIGHT ="H
|
|
18 999 END
|