PROJECT WORK

Programming Concept

QBASIC with Output:


1) WAP to enter any string and reverse it.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY WORD"; A$
FOR I = LEN(A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
C$ = C$ + B$
NEXT I
PRINT "REVERSED WORD="; C$
END













2) WAP to enter any string and check whether the given string is palindrome or not.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY STRING"; A$
FOR I = LEN(A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
C$ = C$ + B$
NEXT I
IF A$ = C$ THEN
PRINT "THE GIVEN STRING IS PALINDROME"
ELSE
PRINT "THE GIVEN STRING IS NOT PALINDROME"
END IF
END












3) WAP to display the shortest word among three numbers.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY WORD"; A$
INPUT "ENTER ANY WORD"; B$
INPUT "ENTER ANY WORD"; C$
IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN
PRINT A$; "IS SHORTEST WORD"
ELSEIF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN
PRINT B$; "IS SHORTEST WORD"
ELSE
PRINT C$; "IS SHORTEST WORD"
END IF
END



 4) WAP to input any string and display the alternate case.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY STRING"; A$
FOR I = 1 TO LEN(A$)
B$ = MID$(A$, I, 1)
IF I MOD 2 = 0 THEN
C$ = C$ + LCASE$(B$)
ELSE
C$ = C$ + UCASE$(B$)
END IF
NEXT I
PRINT "ALTERNATE CASE="; C$
END













 5) WAP to input any string and display its initials only.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY STRING"; A$
B$ = UCASE$(LEFT$(A$, 1))
FOR I = 1 TO LEN(A$)
C$ = MID$(A$, I, 1)
IF C$ = "" THEN
B$ = B$ + "." + UCASE$(MID$(A$, I + 1, 1))
END IF
NEXT I
PRINT B$
END



6) WAP to enter any word and find total no of consonant.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY WORD"; A$
FOR I = 1 TO LEN(A$)
B$ = MID$(A$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" THEN C = C + 1
NEXT I
PRINT "TOTAL NO. OF CONSONANT="; C
END 


7)WAP to enter any word and to display vowels only.
CLS
PRINT "DOLKAR"
INPUT "ENTER ANY WORD"; A$
FOR I = 1 TO LEN(A$)
B$ = MID$(A$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN PRINT B$
NEXT I
END


Comments

Post a Comment

Popular posts from this blog

Networking  [Match the Following] 1. a) Wi-Fi  ===============    Network within a building b) Linear Bus  ===========    Topology c) BNC   ===============     Media connector  d) Device Driver =========    Software component                                                               2. a) Protocol  =============     Rules to exchange data.                                                                               b) LAN  ===============     Network within a building. c) MAN ===============     Network within a city. d) Coaxial  =============    BNC e) Cat 5  ===============    RJ-45 f) Hub    ===============    Central device for star topology. 3. a) Radio Wave  ==========    Wireless media b) Cyber ethics  ==========    Professionally guided principles                       c) Spike guard ===========    Power protection device   d) Gateway =============    Device to connect network having different  technology                                                    
Read more
Image
Bhoto Jatra Bhoto Jatra (the traditional Bhoto display ceremony of Macchindranath). Bhoto means sleeveless vest and Jatra means festival. According to the Jatra rituals, the head of the state has to worship the deity .With the "bhoto display ceremony" ends the month-long Machhindranath festival and the idols then are taken back to their own places (Machhindranath to Bungmati and Minnath to Patan) It is believed that this Bhoto (vest ) was rewarded to a farmer by Karkot Naga (king of serpents) for curing the eye ailment of his Queen. But the farmer lost the Bhoto while working in his field. A year later when the farmer went to attend the Machhindranath festival at Jawalakhel, he saw the same giant wearing his vest. The farmer then started a fight with the giant.The Karkot Naga was also there . He then submitted the Bhoto to Machhindranath for safe keeping until someone claims it with evidence.   July 29, 2016 The month long chariot pulling festival of Rato Machindr
Read more

PROJECT 'B'

Programming Concept QBASIC: 1.        Input any string and reverse it. CLS INPUT "ENTER ANY STRING"; A$ FOR I = LEN(A$) TO 1 STEP -1 B$ = MID$(A$, I, 1) C$ = C$ + B$ NEXT I PRINT "REVERSED STRING IS "; C$ END 2.        Input any string and check whether the given string is palindrome or not. CLS INPUT "ENTER ANY STRING"; A$ FOR I = LEN(A$) TO 1 STEP -1 B$ = MID$(A$, I, 1) C$ = C$ + B$ NEXT I IF A$ = C$ THEN PRINT  A$; “IS PALINDROME” ELSE PRINT A$; “IS NOT PALINDROME” END IF END 3.        Count total no. of vowels in a given string . CLS INPUT "ENTER ANY STRING"; A$ VC = 0 FOR I = 1 TO LEN(A$) B$ = MID$(A$, I, 1) C$ = UCASE$(B$) IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN VC = VC + 1 END IF NEXT I PRINT "TOTAL NO. OF VOWELS= "; VC END 4.        Count total no. of consonants
Read more