DECLARE FUNCTION FACT(N)
CLS
INPUT " ENTER ANY NUMBER ";N
PRINT "FACTORIAL=";FACT(N)
END
FUNCTION FACT(N)
F = 1
FOR I = 1 TO N
F = F * I
NEXT I
FACT = F
END FUNCTION
Subscribe to:
Post Comments (Atom)
My Journey with JM
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...

-
DECLARE SUB CHECK(N) CLS INPUT " ENTER THE NUMBER";N CALL CHECK(N) END SUB CHECK(N) IF N > 0 THEN PRINT "THE GIVEN...
-
DECLARE FUNCTION COUNT (N$) CLS INPUT " Enter any word ";N$ PRINT "Total no. of vowels ="; COUNT (N$) END FUNCTION...
-
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...
No comments:
Post a Comment