QBasic Programming

WAP to display first 15 prime numbers

CLS

N = 1
CNT = 1
TOP:
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END

USING SUB PROCEDURE

DECLARE SUB PRIME ( )
CLS
CALL PRIME
END

SUB PRIME
N = 1
CNT = 1
TOP:
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END SUB

WAP to display all prime numbers from 1 to 100 (Prev Lesson)
(Next Lesson) WAP to input number and check whether the given no. is prime or not
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!