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

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

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

dashain

                                        Dashain What is mean by Dashain? During the month of Kartik (late September and early October), the Nepalese people indulge in the biggest festival of the year, Dashain. Dashain is the longest and the most auspicious festival in the Nepalese annual calendar, celebrated by Nepalese of all caste and creed throughout the country. The fifteen days of celebration occurs during the bright lunar fortnight ending on the day of the full moon. Thorough out the kingdom of Nepal the goddess Durga in all her manifestations are worshiped with innumerable pujas, abundant offerings and thousands of animal sacrifices for the ritual holy bathing, thus drenching the goddess for days in blood.
Post a Comment
Read more