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

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