Skip to main content

QBASIC PROGRAMMING



Program using sub and function procedure.

1. WAP TO FIND SUM OF DIGITS.
=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S  = S + R
     N = N \ 10
     WEND
     PRINT "SUM OF DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S+R
     N = N \10
     WEND
     SUM = S
     END FUNCTION


2. WAP TO FIND SUM OF SQUARE OF DIGITS.

=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S  = S + R^2
     N = N \ 10
     WEND
     PRINT "SUM OF SQUARE OF DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF SQUARE OF DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S+R ^ 2
     N = N \10
     WEND
     SUM = S
     END FUNCTION


3. WAP TO FIND SUM OF CUBE OF DIGITS.

=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S  = S + R ^ 3
     N = N \ 10
     WEND
     PRINT "SUM OF CUBE OF DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF CUBE OF DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S+R ^ 3
     N = N \10
     WEND
     SUM = S
     END FUNCTION


4. WAP TO REVERSE THE DIGITS.

=> DECLARE SUB REV(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL REV(N)
     END

     SUB REV(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S  = S*10 + R
     N = N \ 10
     WEND
     PRINT "REVERSED NUMBER = "; S
     END SUB

=> DECLARE FUNCTION REV(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF DIGITS = "; REV(N)
     END

     FUNCTION REV(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S*10+R
     N = N \10
     WEND
     REV= S
    END FUNCTION


5. WAP TO CHECK WHETHER THE GIVEN NUMBER IS PALINDROME OR NOT.
=> DECLARE SUB PAL(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL PAL(N)
     END

     SUB PAL(N)
     A = N
     S = 0
     WHILE N<>0
     R = N MOD 10
     S  = S*10 + R
     N = N \ 10
     WEND
     IF S = A THEN PRINT "THE NUMBER IS. PALINDROME"
     IF S<>A THEN PRINT "THE NUMBER IS NOT PALINDROME"
     END SUB

=> DECLARE FUNCTION PAL(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     A = N
     IF A = PAL(N) THEN PRINT "THE NUMBER IS PALINDROME"
     IF A <> PAL(N) THEN PRINT "THE NUMBER IS NOT PALINDROME"
     END

     FUNCTION PAL(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S*10+R
     N = N \10
     WEND
     PAL= S
     END FUNCTION


6. WAP TO CHECK WHETHER THE NUMBER IS ARMSTRONG OR NOT.

=> DECLARE SUB ARM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL ARM(N)
     END

     SUB ARM(N)
     S = 0
     A = N
     WHILE N<>0
     R = N MOD 10
     S  = S + R^3
     N = N \ 10
     WEND
     IF A = S THEN PRINT "THE NUMBER IS ARMSTRONG"
     IF A <> S THEN PRINT "THE NUMBER IS NOT ARMSTRONG"
     END SUB

=> DECLARE FUNCTION ARM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     A = N
     IF A = ARM(N) THEN PRINT  "THE NUMBER IS ARMSTRONG"
     IF A <> ARM(N) THEN PRINT "THE NUMBER IS NOT ARMSTRONG"
     END

     FUNCTION ARM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     S= S+R^3
     N = N \10
     WEND
     ARM= S
     END FUNCTION


7. WAP TO FIND THE SUM OF EVEN DIGITS ONLY.

=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S  = S + R
     N = N \ 10
     WEND
     PRINT "SUM OF EVEN DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF EVEN DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S= S+R
     N = N \10
     WEND
     SUM = S
     END FUNCTION


8. WAP TO FIND SUM OF ODD DIGITS ONLY.

=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1
     N = N \ 10
     WEND
     PRINT "SUM OF ODD DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF ODD DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S= S+R
     N = N \10
     WEND
     SUM = S
     END FUNCTION


9.  WAP TO FIND SUM OF SQUARE OF EVEN DIGITS ONLY.
=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S  = S + R^2
     N = N \ 10
     WEND
     PRINT "SUM OF SQUARE OF EVEN DIGITS = "; S
     END SUB

=> DEECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF SQUARE OF EVEN DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S= S+R^2
     N = N \10
     WEND
     SUM = S
     END FUNCTION


10. WAP TO FIND SUM OF SQUARE OF ODD NUMBERS.
=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S  = S + R^2
     N = N \ 10
     WEND
     PRINT "SUM OF SQUARE OF ODD DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF SQUARE OF ODD DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S= S+R^2
     N = N \10
     WEND
     SUM = S
     END FUNCTION


11. WAP TO FIND CUBE OF EVEN DIGITS.

=> DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S  = S + R^3
     N = N \ 10
     WEND
     PRINT "SUM OF CUBE OF EVEN DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF CUBE OF EVEN DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S= S+R^3
     N = N \10
     WEND
     SUM = S
     END FUNCTION


12. WAP TO FIND SUM OF CUBE OF ODD DIGITS.
=>  DECLARE SUB SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL SUM(N)
     END

     SUB SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S  = S + R^3
     N = N \ 10
     WEND
     PRINT "SUM OF CUBE OF ODD DIGITS = "; S
     END SUB

=> DECLARE FUNCTION SUM(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "SUM OF CUBE OF DIGITS = "; SUM(N)
     END

     FUNCTION SUM(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S= S+R^3
     N = N \10
     WEND
     SUM = S
     END FUNCTION


13. WAP TO COUNT TOTAL DIGITS.
=> DECLARE SUB TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL TOT(N)
     END

     SUB TOT(N)
     S = 0
     WHILE N<>0
     S  = S + 1
     N = N \ 10
     WEND
     PRINT "TOTAL DIGITS = "; S
     END SUB

=> DECLARE FUNCTION TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "TOTAL DIGITS = "; TOT(N)
     END

     FUNCTION TOT(N)
     S = 0
     WHILE N<>0
     S= S+1
     N = N \10
     WEND
     TOT= S
     END FUNCTION



14. WAP TO COUNT TOTAL EVEN DIGITS.
=> DECLARE SUB TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL TOT(N)
     END

     SUB TOT(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S  = S + 1
     N = N \ 10
     WEND
     PRINT "TOTAL EVEN DIGITS = "; S
     END SUB

=> DECLARE FUNCTION TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "TOTAL EVEN DIGITS = "; TOT(N)
     END

     FUNCTION TOT(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 0 THEN S= S+1
     N = N \10
     WEND
     TOT= S
     END FUNCTION
 
     15. WAP TO COUNT TOTAL ODD DIGITS.
=> DECLARE SUB TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER";N
     CALL TOT(N)
     END

     SUB TOT(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S  = S + 1
     N = N \ 10
     WEND
     PRINT "TOTAL ODD DIGITS = "; S
     END SUB

  =>DECLARE FUNCTION TOT(N)
     CLS
     INPUT "ENTER ANY NUMBER"; N
     PRINT "TOTAL ODD DIGITS = "; TOT(N)
     END

     FUNCTION TOT(N)
     S = 0
     WHILE N<>0
     R = N MOD 10
     IF R MOD 2 = 1 THEN S= S+1
     N = N \10
     WEND
     TOT= S
     END FUNCTION

Comments

Post a Comment

Popular posts from this blog

17 QBASIC Programming

1. Create a sequential file "std.dat" to store name and marks obtained in English, Math and Science subjects for a few students. (74 set 1) OPEN   “std.dat”   FOR OUTPUT   AS   #1 DO CLS INPUT “Enter name “; N$ INPUT   “Enter English marks”; E INPUT “Enter Math's marks"; M INPUT "Enter Science marks"; S WRITE #1, N$, E, M, S INPUT "Do you want to continue (Y/N)";CH$ LOOP WHILE UCASE$ (CH$) "Y" CLOSE #1 END 4.   WAP to add some more   records in a data file “ABC.DAT” having following fields : patient’s name, address and age.  OPEN   “ABC.DAT”   FOR OUTPUT   AS   #1 DO CLS INPUT “Enter Patients name “; N$ INPUT   “Enter patients address”; A$ INPUT “Enter Patient's age "; A WRITE #1, N$, A$, A INPUT "Do you want to continue (Y/N)";CH$ LOOP WHILE CH$="Y" OR CH$="y" CLOSE #1 END       6.WAP to store records regarding the information of book’s number, name and author’s ...
Post a Comment
Read more

QBASIC Solutions

Q.1) WAP to change degree Celsius into degree Fahrenheit.   => CLS        INPUT "Enter degree celsius value" ; D        F = ( 9 * C / 5 ) + 32        PRINT "Degree Fahrenheit value = "; F        END Q.2) WAP to change dollar into Nepali currency.   => CLS       INPUT "Enter Dollar value"; USD        NRS = USD * 100       PRINT "Nepali currency value = "; NRS       END Q.3) WAP to change Indian currency into Nepali currency. => CLS                   INPUT "Enter Indian currency value"; IC       NRS = IC * 1.6        PRINT "Nepali currency value = "; NRS   ...
Post a Comment
Read more
MOTHER'S DAY Mother's Day  is a celebration honoring the mother  of the family, as well as motherhood, maternal bonds, and the influence of mothers in society. It is celebrated on various days in many parts of the world, most commonly in the months of March  or May .  MOTHER'S DAY is complements similar celebrations honoring family members, such as Father's day  and Siblings day . Mother's day is the most special day for a mom. This is the day the children's show there love to there mom. The mom always waits for this day.  In Nepal it is known as amma ko mukh herne din.  My mother is the most important person in my life. She always cares about me. She is the most caring and loving mom in the world. my mother's name is Sunita Dangol. She is thirty-eight years old. She gave birth to me. She taught me to walk. She sent me school so that, I can do better. It's always have been my dream to make my mother  be proud for my go...
Post a Comment
Read more