DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY WORD";N$
PRINT"Total no. of vowels=";COUNT(N$)
END
FUNCTION COUNT(N$)
C=0
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 C=C+1
NEXT I
COUNT=C
END FUNCTION
Total Pageviews
Monday, September 30, 2019
Program to find area of 4 walls using SUB
DECLARE SUB AREA(L,B,H)
CLS
INPUT"ENTER LENGTH":L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
CALL AREA(L,B,H)
END
SUB AREA(L,B,H)
A=2*H*(L+B)
PRINT"Area of 4 walls=";A
END SUB
CLS
INPUT"ENTER LENGTH":L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
CALL AREA(L,B,H)
END
SUB AREA(L,B,H)
A=2*H*(L+B)
PRINT"Area of 4 walls=";A
END SUB
Program to find area of circle using SUB
DECLARE SUB AREA(R)
CLS
INPUT"ENTER RADIUS";R
CALL AREA(R)
END
SUB AREA(R)
A= 22/7*R^2
PRINT"Area of circle=";A
END SUB
CLS
INPUT"ENTER RADIUS";R
CALL AREA(R)
END
SUB AREA(R)
A= 22/7*R^2
PRINT"Area of circle=";A
END SUB
Wednesday, September 4, 2019
My Father
My father's name is Sandip Lawati. He is 37 years old. He is a helpful, caring, hardworking and a good person. He is a businessman. He has taught me to never fall back in helping people. He works very hard to support our family. When it comes to helping people he never steps back. I really like that side of him. He suports me whenever i'm in a difficult situation and keeps on giving me advices. He believes that if you work hard and determined you can achieve any goal and become successful. He wants me to become successful in the future. Not immediately but one day i'm gonna make him proud of me.
Subscribe to:
Posts (Atom)