QBasic Programming

Display perimeter of square

REM PROGRAM TO DISPLAY PERIMETER OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
P = 4 * L
PRINT “PERIMETER OF SQUARE ”; P
END

USING SUB PROCEDURE

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

SUB PERIMETER (L)
P = 4 * L
PRINT “PERIMETER OF SQUARE”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
PR = PERIMETER (L)
PRINT “PERIMETER OF SQUARE ”; PR
END

FUNCTION PERIMETER (L)
P = 4 * L
PERIMETER = P
END FUNCTION

Display perimeter of rectangle (Prev Lesson)
(Next Lesson) Display circumference of circle
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!