WRITE A QBASIC PROGRAM TO FIND PERIMETER OF A RECTANGLE USING SUB AND FUNCTION

     
QBASIC PROGRAM TO FIND PERIMETER OF A RECTANGLE


QBASIC PROGRAM TO FIND PERIMETER OF A RECTANGLE USING SUB AND FUNCTION


Solution


Display perimeter of a rectangle.


REM PROGRAM TO DISPLAY PERIMETER OF RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END

PERIMETER OF A RECTANGLE USING SUB PROCEDURE


DECLARE SUB PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
CALL PERIMETER(L, B)
END

SUB PERIMETER (L, B)
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END SUB

PERIMETER OF A RECTANGLE USING FUNCTION PROCEDURE


DECLARE FUNCTION PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
PR = PERIMETER(L, B)
PRINT “PERIMETER OF RECTANGLE ”; PR
END

FUNCTION PERIMETER (L, B)
P = 2 * (L + B)
PERIMETER = P
END FUNCTION

1 comment