SUB PROCEDURE AND FUNCTION PROCEDURE IN USE
* WAP to find the volume of cylinder and hemisphere. > DECLARE SUB CYL(R, H) DECLARE SUB HEMI (R) CLS INPUT "ENTER RADIUS"; R INPUT "ENTER HEIGHT OF CYLINDER"; H CALL CYL(R, H) CALL HEMI(R) END SUB CYL(R, H) VOL1 = 22/7*R^2*H PRINT " VOLUME OF CYLINDER = " VOL1 END SUB SUB HEMI(R) VOL2 = 2/3*22/7*R^3 PRINT "VOLUME OF HEMISPHERE = "; VOL2 END SUB > DECLARE FUNCTION CYL(R, H) DECLARE FUNCTION HEMI (R) CLS INPUT "ENTER RADIUS "; R INPUT "ENTER HEIGHT OF CYLINDER"; H PRINT "VOLUME OF CYLINDER = " ; CYL(R,H) PRINT "VOLUME OF HEMISPHERE = "; HEMI(R) END FUNCTION CYL(R, H) CYL = 22/7*R^2*H END FUNCTION FUNCTION HEMI(R) ...