10 REM THIS PROGRAM COMES FROM THE FOLLOWING comp.lang.basic.misc POST
12 REM Question. Inscribe a triangle with equal sides within a circle.
14 REM Measure the area of the circle not included in the triangle. Now
16 REM inscribe a square inside a circle. Measure the area of the circle 
18 REM not included in the square. Now inscribe a pentagon inside a 
20 REM circle. Measure the area of the circle not included in the 
22 REM pentagon. And so on.
24 REM Now plot those areas measured above against the number of sides of 
26 REM the inscribed figure. What is the shape of the resulting curve?
28 REM Sorry. I'm doing routine work (essay grading) and my mind is 
30 REM wondering a little, asking stupid questions. Lance. Oct. 20, 2008
35 REM ORIGINAL PROGRAM BY Derek <derekrss at yahoo dot ca>
40 REM ADAPTED FOR DARTMOUTH BASIC BY A. MASCHIO Oct. 22, 2008
100 PAGE
105 LET P1=3.141592653589793
110 LET R = 1		' RADIUS OF CIRCLE; PUT ANY VALUE YOU NEED
120 PRINT "Number of sides: ";
130 INPUT N
140 IF N = 0 THEN 999
150 LET A = R*R*(P1-N*SIN(P1/N)*COS(P1/N))
160 PRINT N;"sided polygon: area = ";A
170 GOTO 120
999 END

