rem PRIMES1.BAS  Rev. 0  01/30/2008
rem PRIME number evaluation -- using Iteration
rem
N = 5
PRIME = 1
FOR P = N TO 1 STEP -1
 PRINT "P: "; P
 PRIME = PRIME * P
NEXT P
PRINT "The prime of "; N; " is "; PRIME
SYSTEM
END

QBASIC /RUN PRIMES1.BAS
P: 5
P: 4
P: 3
P: 2
P: 1
The prime of 5 is 120

= = = = = = = = = = = = = = = = = = = = = = = =

rem PRIMES2.BAS  Rev. 0  01/30/2008
rem PRIME number evaluation -- using Recursion
rem
DECLARE FUNCTION GETPRIME! (P!)

N = 5
PRIME = GETPRIME(N)
PRINT "The prime of "; N; " is "; PRIME
SYSTEM

FUNCTION GETPRIME(P)
 PRINT "P: "; P
 IF (P > 1) THEN
   GETPRIME = P * GETPRIME(P - 1)
 ELSE
   GETPRIME = P
 END IF
END FUNCTION
END

QBASIC /RUN PRIMES2.BAS
P: 5
P: 4
P: 3
P: 2
P: 1
The prime of 5 is 120


Return to Top
Return to Index
Return to Home Page