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)
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