Program to find circumference of circle using SUB
DECLARE SUB CIRCLE(R)
CLS
INPUT"ENTER RADIUS";R
CALL CIRCLE(R)
END
SUB CIRCLE(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE=";C
END SUB
CLS
INPUT"ENTER RADIUS";R
CALL CIRCLE(R)
END
SUB CIRCLE(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE=";C
END SUB
No comments:
Post a Comment