Wap to display reverse of input string

DECLARE SUB REV$(N$)
CLS
INPUT"ENTER STRING";N$
CALL REV$($)
END

SUB REV$(N$)
FOR I = LEN(N$) TO 1 STEP-1
B$ = MID$(N$,I,1)
C$= C$+B$
NEXT I
PRINT"REVERSE OF STRING";C$
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 calculate distance travelled by body DECLARE FUNCTION DIS(U,T,A) CLS INPUT"ENTER VELOCITY";U INPUT"ENTER TIME";T INPUT"ENTER ACCELERATION";A PRINT"DISTANCE TRAVELLED BY BODY IS ";DIS(U,T,A) END FUNCTION DIS(U,T,A) DIS=U*T+1/2*A*T^2 END FUNCTION
Read more
Wap to find volume of cylinder DECLARE FUNCTION VOL(R,H) CLS INPUT"ENTER RADIUS";R INPUT"ENTER HEIGHT";H PRINT"VOLUME OF CYLINDER IS";VOL(R,H) END FUNCTION VOL(R,H) VOL=22/7*R^2*H END FUNCTION
Read more