Qbasic

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
6.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
7.WAP TO DISPLAY 50, 42, 35, 29, 24 1O.......TERM
DECLARER SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES()
A=50
B=8
FOR I = 1 TO 10
PRINT A
A=A-B
B=B-1
NEXT I
END
8.Wap to find the palindrome word
DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
P$ = S$
IF P$ = REV$(S$) THEN
PRINT "THE GIVEN WORD IS PALINDROME "
ELSE
PRINT " THE GIVEN NO. IS NOT PALINDROME"
END IF
END
FUNCTION REV$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
B$ = MID$(S$, I, 1)
W$ = W$ + B$
NEXT I
REV$ = W$
END FUNCTION
9.Wap To check whether the given no. is prime or composite
DECLARE SUB PRIME (N)
INPUT "ENTER ANY NUMBER"; N
CALL PRIME (N)
END
SUB PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N; "IS PRIME NUMBER"
ELSE
PRINT N; "IS COMPOSITE NUMBER"
END IF
END SUB
10Wap to find factorial of given no.
DECLARE FUNCTION factorial (n)CLS
INPUT "Enter a number"; n
PRINT "The factorial of the given number is"; factorial(n)
END
FUNCTION factorial (n)
f = 1
FOR i = 1 TO n
    f = f * i
NEXT i
factorial = f
END SUB
11.Wap to find whether the given no. is positive or negative
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N$)
END
SUB CHECK(N)
IF N > 0 THEN
PRINT"POSITIVE NO."
ELSE IF N  < 0 THEN
PRINT"NEGATIVE NO."
ELSE
PRINT"ZERO"
END IF
END SUB
12.Display 9,7,5....1
DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES()
FOR I = 9 TO 1 STEP-2
PRINT I
NEXT I
END SUB
13.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
14.Wap to find volume of box
DECLARE FUNCTION VOL(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT" VOLUME OF BOX";VOL(L,B,H)
END
FUNCTION VOL(L,B,H)
VOL=L*B*H
END FUNCTION
15.Wap to check whether the given no. is completely divisible by 13 or not
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N MOD 13 = 0 THEN
PRINT"THE NO. IS COMPLETELY DIVISIBLE BY 13"
ELSE
PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13'
END IF
END SUB
16.WAP TO FIND CIRCUMFERENCE OF CIRCLE
DECLARE SUB CIR(R)
CLS
INPUT"ENTER RADIUS";R
CALL CIR(R)
END
SUB CIR(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";C
END SUB
17.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
19.Wap to display greatest among 3 no
DECLARE SUB GREAT (A,B,C)
CLS
INPUT"ENTER 3 NO. ";A,B,C
CALL GREAT(A,B,C)
END
SUB GREAT (A,B,C)
IF A > B AND A>C THEN
PRINT"THE GREATEST NO. IS";A
ELSE IF B>A AND B>A THEN
PRINT"THE GREATEST NO. I S";B
ELSE
PRINT"THE GREATEST NO IS";C
END IF
END SUB
20.Wap to display 1,1,2,3,5,8.....upto 10th term
DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES()
A=1
B=1
FOR I = 1 TO 10
PRINT A;
PRINT B;
A=A+B
B=B+A
NEXT I
END SUB

21.Wap to print natural no. from 1 to 5
DECLARE SUB SERIES()
CLS
CALL SERIES()
END
SUB SERIES()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB
22.Wap to find simple intrest
DECLARE FUNCTION SI(P,T,R)
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END
FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION
23.Wap to convert temperature in celsius into fahrenheit
DECLARE FUNCTION CONVERT (F)CLSINPUT “ENTER TEMPERATURE IN FAHRENHEIT”; FPRINT “TEMPERATURE IN CELSIUS=”; CONVERT (F)ENDFUNCTION  CONVERT (F)C = (F – 32) * (5 / 9)CONVERT = CEND FUNCTION
24.Wap to find sum of digits
DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";N
CALL SUM(N)
END
SUB SU8M(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB
25.Wap to count total no. of consonant in given word
DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END
FUNCTION COUNT(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 C= C+1
NEXT I
COUNT = C
END FUNCTION
26.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
27.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
29.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

28.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
28.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 Journey with Jagat Mandir

My Journey with Jagat Mandir Firstly I step my foot on this school when I  was 11 years old. I entered this school with my aunt and father for the entrance. I was very excited to study in boarding school. I came in this school in grade 5. I came from village so I didn't know any rules and regulations of school. I don't used to understand English language properly. Everyone were talking in English. I was not friendly to all and was shy at class 5. Kopila one of my classmate gave me science note. She helped me a lot. Then slowly everyone became friendly with me.  I used to share my tiffin with with ritika and Prajina. They were very closed to me. They helped me to do project work.  In our bench Prajina was a very nice in study. She used to a lot of hard work. She was very sincere to do homework and classwork.Me and ritika used to disturb her and tease her a lot. Then she used to cry.  She cried a lot due to our work but she never got angry with us. I was also kept host
Read more
Image
Gai Jatra Gai is cow and Jatra is Procession (Festival). Gai Jatra festival, the procession of cows, generally falls in the month of Bhadra, which correspond to English calendar months of  August/September.  This year Gai Jatra is on August 27, 2018. That is on Bhadra 11, 2075 BS.  The festival of cows is one of the most popular festivals in Nepal. It is said people in ancient time started worshiping Yamaraj,"the god of death" on this day.  However, the modern form of celebration of Gai Jatra came into existence in the medieval period of Nepal during the reign of Malla Kings. The present form of Gai Jatra with humorous acts, parody, comedy and was started by then King of Kathmandu Pratap Malla. He made Rani Pokhari (Pond) in the heart of Kathmandu and build a temple in the middle of the same pond. Traditionally every family who had death in the family during the preceding year must participate in a procession through the streets of Kathmandu le
Read more
                   Sericulture On the date of 14th June we student of grade 10 visited kopasi,kavre under the guidance of our science teacher and principal sir.we learned the life cycle of Silkwarm and also got many knowledge about Silkwarm.we also saw Mayberry trees. We got to know that one female Silkwarm lay 250 to 500 eggs at a time.we also got to saw pure Silkwarm,eggs .
Read more