mirror of
https://github.com/servo/servo.git
synced 2025-08-05 21:50:18 +01:00
8be014ee46
This directory now contains third_party software that is vendored into the Servo source tree. The idea is that it would eventually hold webrender and other crates from mozilla-central as well with a standard patch management approach for each.
18 lines
481 B
QBasic
18 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
|