WAP TO FIND CIRCUMFERENCE OF CIRCLE
DECLARE SUB CIR(R)
CLS
INPUT"ENTER RADIUS";R
CALL CIR(R)
END
SUB CIR(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";C
END SUB
CLS
INPUT"ENTER RADIUS";R
CALL CIR(R)
END
SUB CIR(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";C
END SUB
Comments
Post a Comment