QBasic Programming

WAP to enter any 10 numbers and find the sum of even numbers

CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 EVENNUMBERS"; S
END

USING SUB PROCEDURE
DECLARE SUB SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SUM(N( ))
END

SUB SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 EVENNUMBERS"; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "SUM OF 10 EVEN NUMBERS"; SUM(N( ))
END
FUNCTION SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
SUM = S
END FUNCTION

WAP to enter any 10 numbers and find the sum of odd numbers (Prev Lesson)
(Next Lesson) WAP TO ENTER ANY DIGIT AND DISPLAY ITS REVERSED FORM
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!