QBASIC Programming

1. Using function procedure WAP to check whether the given number is Armstrong or not.

Ans:  DECLARE  FUNCTION  CHECK$(N)
         CLS
         PRINT ''DOLKAR''
         PRINT
         INPUT''ENTER ANY NUMBER'';N
         PRINT ''THE GIVEN NUMBER IS '';CHECK$(N)
         END
         FUNCTION CHECK$(N)
         A=N
         WHILE N< >0
         R=N MOD 10
         S=S+R^3
         N=N\10
         WEND
         IF A=S THEN
         CHECK$=''ARMSTRONG''
         ELSE
         CHECK$=''NOT ARMSTRONG''
         END IF
         END FUNCTION        

 

 

2. Using sub procedure WAP to check whether the given number is palindrome or not.

Ans: DECLARE SUB CHECK(N)
        CLS
        PRINT ''DOLKAR''
        PRINT
        INPUT ''ENTER ANY NUMBER'';N
        CALL CHECK(N)
        END
        SUB CHECK(N)
        A=N
        WHILE N< >0
        R=N MOD 10
        S=S*10+R
        N=N\10
        WEND
        IF A=S THEN
        PRINT ''THE GIVEN NUMBER IS PALINDROME''
        ELSE
        PRINT ''THE GIVEN NUMBER IS NOT PALINDROME''
        END IF
        END SUB
        

 

3. Using sub procedure WAP to display the factors of a given number.

Ans: DECLARE SUB FACTOR(N)
        CLS
        PRINT ''DOLKAR''
        PRINT
        INPUT ''ENTER ANY NUMBER'';N
        CALL FACTOR(N)
        END
       SUB FACTOR(N)
       FOR I= 1 TO N
       IF N MOD I=0 THEN PRINT I
       NEXT I
       END SUB
      
       



 

4. Using function procedure WAP to display the factorial of a given number.

Ans:  DECLARE  FUNCTION  FACT(N)
         CLS
         PRINT ''DOLKAR''
         PRINT
         INPUT ''ENTER ANY NUMBER'';N
         PRINT ''FACTORIAL OF GIVEN NUMBER IS '';FACT(N)
         END
         FUNCTION FACT(N)
         F=1
         FOR I= 1 TO N
         F-=F*I
         NEXT I
         FACT = F
         END FUNCTION
        

 

5. Using sub procedure WAP to reverse the given digit.

Ans: DECLARE SUB REV(N)
        CLS
        PRINT ''DOLKAR''
        PRINT
        INPUT ''ENTER ANY NUMBER'';N
        CALL REV(N)
        END
        SUB REV(N)
        WHILE N< >0
        R=N MOD 10
        S=S*10+R
        N=N\10
        WEND
        PRINT ''REVERSED DIGIT='';S
        END SUB

 

6. Using function procedure WAP to check whether the given number is prime or composite.

Ans: DECLARE  FUNCTION  CHECK$(N)
         CLS
         PRINT ''DOLKAR''
         PRINT
         INPUT''ENTER ANY NUMBER'';N
         PRINT ''THE GIVEN NUMBER IS '';CHECK$(N)
         END
         FUNCTION CHECK$(N)
         FOR I= 1 TO N
         IF N MOD I=0 THEN C=C+1
         NEXT I
         IF C=2 THEN
        CHECK$=''PRIME''
        ELSE
        CHECK$=''COMPOSITE''
        END IF
        END FUNCTION



7. Using sub procedure WAP to find the sum of  given digits.

Ans:   DECLARE SUB SUM(N)
          CLS
          PRINT ''DOLKAR''
          PRINT
          INPUT ''ENTER ANY NUMBER'';N
          CALL SUM(N)
          END
          SUB SUM(N)
          WHILE N< >0
          R= N MOD 10
          S=S+R
          N =N\10
          WEND
          PRINT ''THE SUM OF GIVEN DIGITS IS '';S
          END SUB





8. Using function procedure WAP to count total number of odd digits in a given number.

Ans:  DECLARE  FUNCTION  COUNT(N)
         CLS
         PRINT ''DOLKAR''
         PRINT
         INPUT ''ENTER ANY NUMBER'';N
         PRINT ''TOTAL NUMBER OF ODD DIGITS IS  ''; COUNT(N)
         END
         FUNCTION COUNT(N)
         WHILE N< >0
         R= N MOD 10
         IF R MOD 2 = 1 THEN S=S+R
         N =N\10
         WEND
         COUNT = S
         END FUNCTION
        

 

9. Using sub procedure WAP to display only even numbers  from the input digit.

Ans: DECLARE   SUB DIS(N)
         CLS
         PRINT ''DOLKAR''
         PRINT
         INPUT ''ENTER ANY NUMBER'';N
         CALL DIS(N)
         END
         SUB DIS(N)
         PRINT ''THE EVEN DIGITS ARE''
         WHILE N< >0
         R= N MOD 10
         IF R MOD 2 = 0 THEN  PRINT R
         N =N\10
         WEND
         END SUB

 

10. Using function procedure WAP to find the H.C.F and L.C.M of a given number.

Ans:   DECLARE FUNCTION HCF(A,B)
          DECLARE FUNCTION LCM(A,B)
          CLS
          PRINT ''DOLKAR''
          PRINT
          INPUT ''ENTER ANY  TWO NUMBERS''; A ,B
          PRINT ''H.C.F.='' ;HCF(A,B)
          PRINT ''L.C.M.=''  ;LCM(A,B)
          END
          FUNCTION  HCF(A,B)
          FOR  I = 1 TO A
          IF A MOD I = 0 AND B MOD I = 0 THEN
          HCF=I
          END IF
          NEXT I
          END FUNCTION
          FUNCTION  LCM(A,B)
          FOR  I = 1 TO A
          IF A MOD I = 0 AND B MOD I = 0 THEN H=I
          NEXT I
          L=A*B/H
          LCM=L          END FUNCTION

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