Tuesday, October 15, 2019

QBASIC 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

No comments:

Post a Comment