Skip to main content

Posts

Showing posts from May, 2017

SUB N FUNCTION PROCEDURE

 1.To find the volume of cylinder and volume of hemisphere. =>USING SUB procedure DECLARE SUB CYLINDER(R,H)  DECLARE SUB HEMISPHERE(R) CLS INPUT "ENTER RADIUS";R INPUT "ENTER HEIGHT";H CALL CYLINDER(R,H) CALL HEMISPHERE(R) END SUB CYLINDER(R,H) C=22/7*R^2*H PRINT "VOLUME OF CYLINDER=";C END SUB SUB HEMISPHERE(R) HEM=2/3*22/7*R^3 PRINT "VOLUME OF HEMISPHERE=";HEM END SUB  USING FUNCTION procedure DECLARE FUNCTION CYLINDER(R,H)  DECLARE FUNCTION HEMISPHERE(R) CLS INPUT "ENTER RADIUS";R INPUT "ENTER HEIGHT";H PRINT "VOLUME OF CYLINDER=";CYLINDER(R,H) PRINT "VOLUME OF HEMISPHERE=";HEMISPHERE(R) END SUB CYLINDER(R,H) CYLINDER=22/7*R^2*H END SUB SUB HEMISPHERE(R) HEMISPHERE=2/3*22/7*R^3 END SUB 2. To convert Nepali currency into US dollar. =>USING SUB procedure DECLARE SUB DOLLAR(NC) CLS INPUT "ENTER NEPALI CURRENCY";NC CALL  DOLLAR(NC) END SUB...