REM PROGRAM TO DISPLAY AREA AND CIRCUMFERENCE OF CIRCLE.
CLS
INPUT “ENTER RADIUS ”; R
A= 3.14 * R ^ 2
C = 2 * 3.14 * R
PRINT “AREA OF CIRCLE “; A
PRINT “CIRCUMFERENCE OF CIRCLE ”; C
END
USING SUB PROCEDURE
DECLARE SUB AREA (R)
DECLARE SUB CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
CALL AREA(R)
CALL CIRCUM(R)
END
SUB AREA (R)
A= 3.14 * R ^ 2
PRINT “AREA OF CIRCLE”; A
END SUB
SUB CIRCUM (R)
C = 2 * 3.14 * R
PRINT “CIRCUMFERENCE OF CIRCLE”; C
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION AREA (R)
DECLARE FUNCTION CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “AREA OF SQUARE ”; AREA(R)
PRINT “CIRCLE OF CIRCUMFERENCE”; CIRCUM (R)
END
FUNCTION AREA (R)
AREA = 3.14 * R ^ 2
END FUNCTION
FUNCTION CIRCUM (R)
CIRCUM = 2 * 3.14 * R
END FUNCTION
No Comments