QBASIC PROGRAM TO FIND ARE 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
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
Comments
Post a Comment