Wap to print first ten numbers

Wap to print first ten numbers

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I = 1 TO 10 STEP 2
PRINT I
NEXT I
END SUB

Wap to find volume of cylinder

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

Wap to find area of triangle

Wap to find area of triangle

DECLARE FUNCTION AREA(B,H)

CLS

INPUT"ENTER BREADTH";B

INPUT"ENTER HEIGHT";H

PRINT"AREA OF TRIANGLE";AREA(B,H)

END

FUNCTION AREA(B,H)

AREA=1/2*B*H

END FUNCTION

Wap to count total no. of vowels in a word

Wap to count total no. of vowels in a word

DECLARE FUNCTION COUNT(N$)

CLS

INPUT"ENTER ANY WORD";N$

PRINT"TOTAL NO. OF VOWELS IS";COUNT(N$)

END

FUNCTION COUNT(N$)

FOR I = 1 TO LEN(N$)

B$ = MID$(N$,I,10

C$ = UCASE$(B$)

IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN C=C+1

NEXT I

PRINT"TOTAL NO. OF VOWELS =";C

END SUB

Wap to find area of 4 wall

Wap to find area of 4 wall

DECLARE SUB AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT'"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
CALL AR(L,B,H)
END

SUB AR(L,B,H)
ARE=2*H*(L+B)
PRINT"AREA OF 4 WALLS =";ARE
END SUB

Wap to display reverse of input string

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

My father

                             My father
I believe that what I am and what I will be depends upon my father. I am upto here due to my dad. Everyone has one super hero in their life, and for me it's my dad.

My father name is Baldev Gamal. He is 41 years old. His favourite colour is red and black. He is like my best friend. He looks after me and take care for me like no other in my life. He is abit strict but it's all for my discipline. He teaches me all the values and morals that I must live by. And he himself live by all values. He believes in practicing what he peaches. My father is very kind, hardworking and very punctual. I always try to obey what he tells me to do. When he scold me for the mistakes I do I know it's for my good, and I try to correct myself. I want to be like my father and be successful in achieving my goals. My father loves me and take care of me. He encourages me to do my best in my life. He always support in every steps of my life.

My father is super hero and he is  the best gift of my life. Everyone needs to love their father and respect their father  because we all are here  due to your father. I will always love my dad and respect him.