QBasic Programming

WAP to enter any 10 numbers and display the greatest one

REM
CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END

USING SUB PROCEDURE

DECLARE SUB GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL GREAT (N)
END

SUB GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE GREATEST NUMBER IS “; GREAT (N)
END
FUNCTION  GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
GREAT = N
END FUNCTION

WAP to enter any three numbers and display the greatest, smallest and the middle number (Prev Lesson)
(Next Lesson) WAP to enter any 10 numbers and display the smallest one
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!