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

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

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 find area of box DECLARE FUNCTION AR(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"THE AREA OF BOX IS ";AR(L,B,H) END FUNCTION AREA(L,B,H) AR=2*(L*H+B*H+L*B) END FUNCTION
Read more