A puzzle for you

 BBS: Inland Empire Archive
Date: 02-25-93 (10:07)             Number: 358
From: CHARLES GRAHAM               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: A puzzle for you               Conf: (2) Quik_Bas
'PUZZLE.BAS - EGA or better required
'
'Assume the Earth's circumference at the Equator is 25,000
'miles. You run a piece of string around the Equator so the
'ends of the string meet exactly. The string is 25,000 miles
'long.
'
'You add 1 foot to the length of the string. If the now
'25,000-mile-plus-1-foot long string could be suspended evenly
'above the Equator, how far off the ground would the string
'be?
'
'No tricks. Just math and logic.
'
SCREEN 9
CIRCLE (320, 175), 200, 2, 0, 6.28
CIRCLE (320, 175), 225, 15, 0, 6.28
PAINT (320, 175), 2, 2
LOCATE 13, 31
COLOR 12
PRINT "Polar view of Earth";
LOCATE 1, 1
PRINT "String =========================>";
LOCATE 2, 1: PRINT "is"; : LOCATE 3, 1: PRINT "suspended";
LOCATE 4, 1: PRINT "evenly"; : LOCATE 5, 1: PRINT "above";
LOCATE 6, 1: PRINT "the"; : LOCATE 7, 1: PRINT "Equator.";
LOCATE 13, 13: PRINT "<->"; : LOCATE 11, 1: PRINT "How";
LOCATE 12, 1: PRINT "far"; : LOCATE 13, 1: PRINT "is";
LOCATE 14, 1: PRINT "this"; : LOCATE 15, 1: PRINT "distance";
LOCATE 16, 1: PRINT "if"; : LOCATE 17, 1: PRINT "string";
LOCATE 18, 1: PRINT "is"; : LOCATE 19, 1: PRINT "a";
LOCATE 20, 1: PRINT "foot"; : LOCATE 21, 1: PRINT "longer";
LOCATE 22, 1: PRINT "than"; : LOCATE 23, 1: PRINT "Earth's";
LOCATE 24, 1: PRINT "circumference?";
DO
    a$ = INKEY$
LOOP UNTIL LEN(a$)
SCREEN 0
END


--- QM v1.30
 * Origin: QwikCom * St Charles MO * 16.8K HST/V32b (1:100/602.0)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET