For Class 10 QBASIC PROGRAMMING


10 QBASIC PROGRAMMING

1. Write a program to print the sum of the two numbers passed as parameters

2. Write a program to calculate the area of a circle where radius is passed as a parameter
3. Write a program to calculate the volume of a cylinder where pi=3.14 declared as a global variable and radius of its base is passed as the parameter.
4. Write a program to calculate the simple interest where the principal, time and rate are passed as parameter
5. Write a program to determine whether a man has profit or loss where cost price and selling price are given
6. Write a program to convert calcius temperature to Fahrenheit temperature
7. WAP to print the following patterns
1
12
123
1234
12345

1
22
333
4444
55555

11111
2222
333
44
5

54321
5432
543
54
5

12345
1234
123
12
1

55555
4444
333
22
1

KAMAL
KAMA
KAM
KA
K

NEPAL
EPAL
PAL
AL
L

L
AL
PAL
EPAL
NEPAL

PROGRAM
ROGRA
OGRG

C
CO
COM
COMP
COMPU
COMPUTE

8. Write a program to create a sub procedure to print all the factors of a input numbers.
9. Write a program to print the sum of all the factors of a input number (Using Sub and Function both).
10. Write a program to print the sum of the digits of a input number (Using Sub and Function both).
11. Write a program to print the sum of the odd digits of a input number (Using Sub and Function both).
12. Write a program to print perimeter of a rectangle. (Using Sub and Function both).
13. Write a program to print the digits of a number (Using Sub and Function both).
14. Write a program to reverse a number (Using Sub and Function both).
15. Write a program to check whether a number is an Armstrong or not (Using Sub and Function both
16. Write a program to print the greatest number among the three numbers. (Using Sub and Function both)
17. Write a program to create a sub procedure to print the multiplication table of a input number
18. Write a program to print the HCF of the two input numbers, (Using Sub and Function both)19. Write a program to print the LCM of the two input numbers (Using Sub and Function both)20. Write a program to convert Meter into Kilometer (Using Sub and Function both)

21. Write a program to display the count the occurrence of A in a given word (Using Sub and Function both)
22. Write a program to display the count the number of vowels in a given word (Using Sub and Function both)
23. Write a program to display the count the number of words in a given sentence (Using Sub and Function both)
24. Write a program to display input word in the reverse order. (Using Sub and Function both)25. Write a program to check whether a given word is a palindrome (Using Sub and Function both)
26. Write a program to convert a binary number to decimal (Using Sub and Function both)
27. Write a program to convert a decimal number to binary (Using Sub and Function both)
28. Write a program to create a sub procedure to sort the following numbers in ascending order (15,5,12,25,3,8,2,10,35,7)
29. Write a program to print the sum of the ten numbers using an array(Using Sub and Function both)
30. Write a program to create a sub procedure to sort the following countries in descending order (India, Bhutan, Maldives, Srilanka, Pakistan, Burma , China)

. Write a program to create a sub procedure to print the following series
a. 1,3,4,7,11-------------upto 8th terms
b. 2,22,222,2222,2222
c. 11111,1111,111,11,1
d. 1000,500,250,125
e. 1,1,2,3,5,8, --------upto 8th terms
f. 2,4,8,16 --------- upto 10th terms
g. 1,4,9,16,-------------- upto 8th terms
h. 0.1,0.03,0.005,0.007, ------- upto 8th terms
i. 3,9,27,81, ------------ upto 6th terms
j. 0.1,0.22,0.333,0.4444,0.55555
k. 1,22,333,4444,55555
l. 7,22,11,34,17,52,26,13,40,20,10

Comments

QBASIC said…
0.1,0.03,0.005,0.007,
please provide the source code of the following series.
February 25, 2021 at 6:20 AM
Unknown said…
to input items, quantity and price of items then calculate amount SUB... END SUB

March 2, 2021 at 6:41 AM
Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP
Read more

PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE NUMBERS

1. Enter any two numbers and display its sum. REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = A + B PRINT “SUM OF TWO NUMBERS”; S END USING SUB PROCEDURE DECLARE SUB SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B CALL SUM(A, B) END SUB SUM (A, B) S = A + B PRINT “SUM OF TWO NUMBERS”; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = SUM(A, B) PRINT “SUM OF TWO NUMBERS”; S END FUNCTION SUM (A, B) SU = A + B SUM = SU END FUNCTION 2. Enter any two numbers and display its difference. REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B D = A - B PRINT “DIFFERENCE OF TWO NUMBERS”; D END USING SUB PROCEDURE DECLARE SUB DIFF (A, B) CLS INPUT “ENTER FIRST NUM
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; N A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10
Read more