QBasic Programming

Display area of parallelogram

REM PROGRAM TO DISPLAY AREA OF PARALLELOGRAM
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A = B * H
PRINT “AREA OF PARALLELOGRAM “; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL AREA (B, H)
END

SUB AREA (B, H)
A = B * H
PRINT “AREA OF PARALLELOGRAM ”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
AR = AREA( B, H)
PRINT “AREA OF PARALLELOGRAM ”; AR
END

FUNCTION AREA (B, H)
A = B * H
AREA = A
END FUNCTION

Display area of triangle (Prev Lesson)
(Next Lesson) Display area of triangle when three sides are given
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!