Program to find area of circle using SUB
DECLARE SUB AREA(R)
CLS
INPUT"ENTER RADIUS";R
CALL AREA(R)
END
SUB AREA(R)
A= 22/7*R^2
PRINT"Area of circle=";A
END SUB
CLS
INPUT"ENTER RADIUS";R
CALL AREA(R)
END
SUB AREA(R)
A= 22/7*R^2
PRINT"Area of circle=";A
END SUB
No comments:
Post a Comment