QBasic Programming

Display area and circumference of circle

REM PROGRAM TO DISPLAY AREA AND CIRCUMFERENCE OF CIRCLE.
CLS
INPUT “ENTER RADIUS ”; R
A= 3.14 * R ^ 2
C = 2 * 3.14 * R
PRINT “AREA OF CIRCLE “; A
PRINT “CIRCUMFERENCE OF CIRCLE ”; C
END

USING SUB PROCEDURE

DECLARE SUB AREA (R)
DECLARE SUB CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
CALL AREA(R)
CALL CIRCUM(R)
END

SUB AREA (R)

A= 3.14 * R ^ 2
PRINT “AREA OF CIRCLE”; A
END SUB

SUB CIRCUM (R)
C = 2 * 3.14 * R
PRINT “CIRCUMFERENCE OF CIRCLE”; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (R)
DECLARE FUNCTION CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “AREA OF SQUARE ”; AREA(R)
PRINT “CIRCLE OF CIRCUMFERENCE”; CIRCUM (R)
END

FUNCTION AREA (R)
AREA = 3.14 * R ^ 2
END FUNCTION

FUNCTION CIRCUM (R)
CIRCUM = 2 * 3.14 * R
END FUNCTION

Display area and perimeter of square (Prev Lesson)
(Next Lesson) Display area of 4 walls
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!