# theinfozones.com

## To check the number prime or composite - (Qbasic Code)

To check the number prime or composite - (Qbasic Code)
Method I
CLS
INPUT "Enter any number"; n
a = 0
FOR i = 1 TO n
IF n MOD i = 0 THEN a = a + 1
NEXT i
IF a = 2 THEN
PRINT "It is prime number";
ELSE
PRINT "It is not prime number";
END IF
END

Method 2

CLS
INPUT "ENTER A NUMBER"; N
FOR I = 2 TO N / 2
IF N MOD I = 0 THEN
C = C + 2
END IF
NEXT I
IF C > 0 THEN
PRINT "IT IS COMPOSITE"
ELSE
PRINT "IT IS PRIME"
END IF
END

Using SUB Procedure
DECLARE SUB PRIME(N)
CLS
INPUT "ENTER A NUMBER"; N
CALL PRIME(N)
END
SUB PRIME (N)
FOR I = 2 TO N / 2
IF N MOD I = 0 THEN
C = C + 2
END IF
NEXT I
IF C > 0 THEN
PRINT "IT IS COMPOSITE"
ELSE
PRINT "IT IS PRIME"
END IF
END SUB

Using Function Procedure
DECLARE FUNCTION PRIME (N)
CLS
INPUT "ENTER A NUMBER"; N
IF PRIME(N) > 0 THEN
PRINT "IT IS COMPOSITE"
ELSE
PRINT "IT IS PRIME"
END IF
END
FUNCTION PRIME (N)
FOR I = 2 TO N / 2
IF N MOD I = 0 THEN
C = C + 2
END IF
NEXT I
PRIME = C
END FUNCTION

#### Share : 