Question

write a program in QBASIC to find perimeter of a square .​

Answer 1

Explanation:

area of square.

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARE

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLS

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; L

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; A

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AEND

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDURE

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLS

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; L

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)END

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; A

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUB

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDURE

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLS

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLSINPUT “ENTER LENGTH”; L

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLSINPUT “ENTER LENGTH”; LAR = AREA(L)

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLSINPUT “ENTER LENGTH”; LAR = AREA(L)PRINT “AREA OF SQUARE ”; AR

area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLSINPUT “ENTER LENGTH”; LAR = AREA(L)PRINT “AREA OF SQUARE ”; AREND

FUNCTION AREA (L)

FUNCTION AREA (L)A = L ^ 2

FUNCTION AREA (L)A = L ^ 2AREA = A

FUNCTION AREA (L)A = L ^ 2AREA = AEND FUNCTION

.......