CIRCLE MATH.basÈ°¼gp©zXM_<ª??N?‘†‡TEXTSmBa`@¢ð¤@¢ðM_HSMainý–P‚8OÊ OÊÁXºýŒýŒP‚8OÞžýŒf' CIRCLE MATH.bas
? CAT(87);
INPUT "INPUT DIAMETER OR ENTER: ",d
IF d=0 THEN
GOTO 2
FI
INPUT "FOR ARC LENGTH, ENTER CHORD LENGTH"; b
INPUT "FOR CHORD LENGTH, ENTER ARC LENGTH"; h
a=3.1428*POW(d/2,2)
c=3.1428*d
e=ASIN((0.5*b)/(d/2))
f=e*2
g=(d/2)*f
i=d*SIN(h/d)
? "AREA = ";a
? "CIRCUMFERENCE = ";c
? "ARC LENGTH = ";ROUND(g,3)
? "CHORD LENGTH = ";ROUND(i,3)
END
2 INPUT "INPUT AREA OR ENTER: ",a
IF a=0 THEN
GOTO 3
FI
d=2*SQR(a/3.1428)
c=3.1428*d
? "DIAMETER = ";d
? "CIRCUMFERENCE = ";c
END
3 INPUT "INPUT CIRCUMFERENCE: ",c
d=c/3.1428
a=3.1428*POW(d/2,2)
? "DIAMETER = ";d
? "AREA = ";a
ENDD
Source: geocities.com/renwand
