Wap to display 1,2,3,5,8, up to 13th term

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
A = 1
B = 2
FOR I = 1 TO 13
PRINT A;
C = A+B
A = B
B = C
NEXT I
END SUB

Comments

Post a Comment

Popular posts from this blog

MY FATHER

                                 FATHER     My father name is tej badhur thapa Magar.  He is head of our family. He is our super hero Bec he made our life better than his. He is now 47 years old. His profession is weding designer. He work very hard to full fill our needs and give us better life. I am very thankful of my father.
Read more
Wap to print only vowels from given word DECLARE SUB DIS(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DIS(N$) END SUB DIS(N$) FOR I = 1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN PRINT C$ NEXT I END SUB
Read more
Wap to check the character is capital or small DECLARE FUNCTION CHECK$(A$) CLS INPUT"ENTER ANY CHARACTER";A$ PRINT"THE ENTERED CHARATER IS"; CHECK$(C$) END FUNCTION CHECK$(A$) C = ASC(A$) IF C>=65 AND C<=91 THEN CHECK$="UPPER CASE" ELSEIF C>=97 AND C<=122 THEN CHECK$="LOWER CASE" ELSE  CHTR$="NOT A CHARACTER" END IF END FUNCTION
Read more