QBASIC Program To Find  The Volume Of Rectangular Box

QBASIC Program To Find  The Volume of a rectangular box

CLS

INPUT “Enter length ”; L

INPUT “Enter breadth ”; B

INPUT" Enter height"; H

V=L*B*H

PRINT “The volume is ”; V

END

QBASIC Program To Find The volume of a rectangular box

 using Sub Procedure

DECLARE SUB  Volume (L, B, H)

CLS

INPUT “Enter length ”; L

INPUT “Enter breadth ”; B

INPUT" Enter height"; H

CALL Volume(L, B, H)

END

SUB Volume (L, B, H)

V=L*B*H

PRINT “The volume is ”; V

END SUB

QBASIC Program To Find The Volume of a rectangular box  using Function Procedure

DECLARE FUNCTION Volume (L, B, H)

CLS

INPUT “Enter length ”; L

INPUT “Enter breadth ”; B

INPUT" Enter height"; H

PRINT “The volume is  ”; Volume(L, B, H)

END

FUNCTION Volume (L, B, H)

V=L*B*H

Volume=V 

END FUNCTION