QBasic Programming

WAP to enter any 10 numbers and display the smallest one

CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END
USING SUB PROCEDURE
DECLARE SUB SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL SMALL (N)
END
 SUB SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE SMALLEST NUMBER IS “; SMALL (N)
END

FUNCTION  SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
SMALL = N
END FUNCTION

WAP to enter any 10 numbers and display the greatest one (Prev Lesson)
(Next Lesson) WAP to enter any 20 numbers and display the greatest one using array
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!