QBASIC's Solved Problems Part II

Using declare function procedure
DECLARE FUNCTION C(N)
CLS
INPUT “ENTER A NUMBER”;N
PRINT “SUM OF DIGITS IS”;C(N)
END
FUNCTION C(N)
WHILE N<>0
A = N MOD 10
R = R + A

N = FIX ( N / 10 )
WEND
C = R
END FUNCTION
Using declare sub procedure
DECLARE SUB C(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL C(N)
END
SUB C(N)
WHILE N<>0
A = N MOD 10
R = R + A
N = FIX ( N / 10 )
WEND
PRINT “SUM OF DIGITS IS”;R
END SUB
Program to print fibonacci series in Qbasic
Write a program in Qbasic to print the fibonacci series up to tenth term. Using loops-FOR…NEXT & WHILE…WEND Fibonacci series is the series in which the next number is obtained by the sum of two number just front of it. The first two numbers are explained by the user.It can be obtained up to any term.Here, I am only doing of tenth term.You can change the number of output to any term just by changing the looping number.Here is example of a fibonacci series. suppose you entered the first two numbers-1 & 2 and upto the tenth term then your output will be as:
1,2,3,5,8,13,21,34,55,89
Here in the begining 1 & 2 are the entered numbers.3 is the product of 1 & 2 as the definition of fibonacci series given in first.like wise 5 is the sum of 2 & 3 and 8 is the sum of 3 & 5 and so on..You can Download the source file.Here is the program.
Using FOR…NEXT
CLS
A = 1
B = 2
PRINT A
PRINT B
FOR I = 1 TO 10
C = A + B
PRINT C
A = B
B = C
NEXT I
END
Using WHILE…WEND
CLS
I = 1
A = 1
B = 2
PRINT A
PRINT B
WHILE I < = 10
C = A + B
PRINT C
A = B
B = C
I = I + 1
WEND
END
Using declare sub procedure
Using FOR…NEXT
DECLARE SUB FIB ()
CLS
CALL FIB
END
SUB FIB
A = 1
B = 2
PRINT A
PRINT B
FOR I = 1 TO 10
C = A + B
PRINT C
A = B
B = C
NEXT I
END SUB
Using WHILE…WEND
DECLARE SUB FIB ()
CLS
CALL FIB
END
SUB FIB
I = 1
A = 1
B = 2
PRINT A
PRINT B
WHILE I < = 10
C = A + B
PRINT C
A = B
B = C
I = I + 1
WEND
END SUB
Program to check whether a given number is prime or composite in qbasic
‘PROGRAM TO CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
CLS
INPUT “ENTER A NUMBER”;N
FOR I = 2 TO N/2
IF N MOD I = 0 THEN
C = C+2
END IF
NEXT I
IF C>0 THEN
PRINT “IT IS COMPOSITE”
ELSE
? “IT IS PRIME”
END IF
END
Using declare sub procedure
‘CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL A(N)
END
SUB A(N)
FOR I = 2 TO N/2
IF N MOD I = 0 THEN
C = C+2
END IF
NEXT I
IF C>0 THEN
PRINT “IT IS COMPOSITE”
ELSE
? “IT IS PRIME”
END IF
END SUB
Using declare function procedure
‘PROGRAM TO CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
DECLARE FUNCTION AB (N)
CLS
INPUT “ENTER A NUMBER”; N
IF AB(N) > 0 THEN
PRINT “IT IS COMPOSITE”
ELSE
PRINT “IT IS PRIME”
END IF
END
FUNCTION AB (N)
FOR I = 2 TO N / 2
IF N MOD I = 0 THEN
C = C + 2
END IF
NEXT I
AB = C
END FUNCTION
Thursday, May 19, 2011
1)Write a program to enter your name and print it .

CLS
Input 'Enter you name';n$
Print 'The name is';n$
End


2)Write a program to enter your name, city, country, age and print them.

CLS
Input " Enter the name ";N$
Input " Enter the city";C$
Input " Enter the country";CO$
Input " Enter the age";A
Print " The name is ";N$
Print " The city is ";C$
Print " The country is ";CO$
Print " The age is ";A
End

3)Write a program to find the area of rectangle.

Cls
Input " enter the length " ;l
Input " enter the breadth " ;b
let A = l*b
Print" the area of rectangle=" ;a
End


4)Write a program to find the area of the triangle.

Cls
Input " enter the base" ;b
Input " enter the height" ;h
let T = 1/2*b*h
Print" The area of triangle=" ;T
End


5)Write a program to find the area of the circle.

Cls
Input" Enter the radius " ;R
Let C=22/7*R^2
Print " The area of circle =" ;C
End


6)Write a program to find the circumference of the circle.

Cls
Input" Enter the radius " ;R
Let Circumference=22/7*R*2
Print " The area of circle =" ;Circumference
End


7)Write a program to find the area of the square.

Cls
Input" Enter the number" ;n
Let square= n^2
Print" The area of square=" ;Square
End


8)Write a program to find the area of the square and cube.

Cls
Input" Enter the number" ;n
Let square= n^2
Let Cube = n^3
Print" The area of square=" ;Square
Print" The area of cube=" ; Cube
End


9)Write a program to find the volume of the box.

Cls
Input " enter the length " ;l
Input " enter the breadth " ;b
Input " enter the height " ;h
Let Volume= l*b*h
Print" The volume of box =" ;Volume
End


10)Write a program to convert the weight from kilogram to pounds.

CLS
Input"Enter the weight in kilogram";K
Let P=K*2.2
Print "The pound is ";P
End


11)Write a program to convert the distance from kilometer to miles.

Cls
Input"Enter the length in kilometer";K
Let M= K / 1.6
Print "The length in miles =";M
End


12)Write a program to convert the distance from miles to kilomiles.

Cls
Input " Enter the length in miles";M
Let K=M*1.6
Print" The length in kilo miles=";K
End


13)Write a program to enter the initial mileage(m1) and final mileage (m2) then calculate the distance traveled.

CLS
Input "Enter the Initial Mileage";M1
Input "Enter the Final Mileage";M2
Let D= M2-M1
Print " The distance covered=";D
End


14)Write a program to find out the simple Interest.

Cls
Input " Enter the Principal";P
Input " Enter the Rate";R
Input " Enter the Time";T
Let I = P*T*R/100
Print " The simple Interest = ";I
End


15)Write a program to find out the simple Interest and the Amount.

Cls
Input " Enter the Principal";P
Input " Enter the Rate";R
Input " Enter the Time";T
Let I = P*T*R/100
Let A= P + I
Print " The simple Interest = ";I
Print " The amount=";A
End


16)Write any number and find it's half.
Cls
Input "Enter the desired number "; N
Let H = N/2
Print "The half of the number = ";H
END


17)Write a program to find the area of four walls of a room.

Cls
Input"Enter the height ";H
Input"Enter the length "; L
Input"Enter the Breadth";B
Let A= 2 * H * (L+B)
Print " The area of four walls =";A
End


18)Write a program to find the perimeter of a rectangle.

Cls
Input " enter the length " ;l
Input " enter the breadth " ;b
Let P=2*(l+b)
Print" The perimeter of rectangle=" ;P
End


19)Write a program to enter any three numbers,sum and the average.

Cls
Input " Enter any number" ;A
Input " Enter any number" ;B
Input " Enter any number" ;C
Let Sum = A+B+C
Let Average =Sum/3
Print" The sum=" ;Sum
Print" The Average is " ;Average
End


20)Write a program to enter any two numbers their Sum,Product and the Difference.

CLS
Input " Enter any number" ;A
Input " Enter any number" ;B
Let Sum = A+B
Let Difference= A-B
Let Product = A*B
Print" the sum =" ;Sum
Print" the Difference =" ;Difference
Print" the Product =" ; Product
End


21)Write a program to find the average of three different numbers.

Cls
Input" Enter the number " ;A
Input" Enter the number " ;B
Input" Enter the number " ;C
Let Avg= (A+B+C)/3
Print" The average=" ;Avg
End


22)Write a program to input student's name,marks obtained in four different subjects,find the total and average marks.

Cls
Input" Enter the name " ;N$
Input" Enter the marks in English" ;E
Input" Enter the marks in Maths" ;M
Input" Enter the marks in Science" ;S
Input" Enter the marks in Nepali" ;N
Let S=E+M+S+N
Let A=S/4
Print " The name of the student is" ;N$
Print " The total marks is" ;S
Print " The Average marks" ;A
End


23)Write a program to find 10%,20% and 30% of the input number.

Cls
Input" Enter any number" ;N
Let T=10/100*N
Let Twe=20/100*N
Let Thi=30/100*N
Print " 10%of input number=" ;T
Print " 20%of input number=" ;Twe
Print " 30%of input number=" ;Thi
End

24)Write a program to convert the distance to kilometer to miles.

Cls
Input" Enter the kilometer" ;K
Let M=K/1.6
Print " The miles = " ;M
End

25)Write a program to find the perimeter of square.

Cls
Input “Enter the length”; L
Let P =4 * L
Print “ The perimeter of square=”;P
End


26)Write a program to enter the Nepalese currency and covert it to Indian Currency.

CLS
Input “Enter the Nepalese currency” ;N
Let I = N * 1.6
Print “the Indian currency=”;I
End

27)Write a program to enter the Indian currency and covert it to Nepalese Currency.

CLS
Input “Enter the Indian currency” ;N
Let N = I / 1.6
Print “the Nepalese currency=”;I
End


28)Write a program to enter any number and find out whether it is negative or positive.

CLS
Input “Enter the number”; N
If N>0 Then
Print “ The number is positive”
Else
Print “The number is negative”
EndIf
End


29)Write a program to enter any number and find out whether it is even or odd using select case statement.

Cls
Input “Enter any number” ;N
R=N mod 2
Select case R
Case = 0
Print “The number is Even number”
Case Else
Print “The number is odd number”
End Select
End


30)Write a program to check the numbers between 1 & 3.

Cls
Input “Enter the numbers between 1-3”;N
Select case N
Case 1
Print “It’s number 1”;
Case 2
Print “It’s a number 2”;
Case 3
Print “It’s a number 3”
Case else
Print “It’s out of range”;
End select
End


31)Write a program to enter any alphabet and test alphabet is ‘a’ or not using the select case statement.

Cls
Input “Enter the alphabet”;A$
A$=UCase$ (A$)
Select Case A$
Case ‘A’
Print “It’s alphabet A”
Case Else
Print “It’s not alphabet A”
End Select
End


32)Write a program to enter any alphabet and find out whether the number is vowel or alphabet.

Cls
Input “Enter Letters/Alphabet”;A$
A$ = UCase $ (A$)
Select case A$
Case “A”, “E”, “I”, “O”, “U”
Print “Its’ a vowel”
Case Else
Print “ It’s not a vowel”
End Select
End


33)Generate the following numbers using For….Next…..Loop.
1,2,3,4,…,50

CLS
For I = 1 to 50 Step 1
Print I
Next I
End
34)Generate the following numbers using For….Next…..Loop.
1,3,5,7,9,....99

Cls
For I = 1 to 99 Step 2
Print I
Next I
End

35)Generate the following numbers using For….Next…..Loop.
2,4,6,8,10,…50
Cls
For I = 2 to 50 Step 2
Print I
Next I
End


36)Generate the following numbers using For….Next…..Loop.
1,3,5,7,…99
ClsFor I = 1 to 99 Step 2
Print I
Next I
End


37)Generate the following numbers using For….Next…..Loop.
5,10,15,…90

Cls
For I = 5 to 90 Step 5
Print I
Next I
End


38) Generate the following numbers using For….Next…..Loop.
10,20,30,40,…100.

Cls
For I = 10 to 100 Step 10
Print I
Next I
End


39)Write a program to print numbers stated below USING WHILE…WEND STATEMENT.

Cls
I = 1
While I<=100
Print I ;
I = I + 1
WEND
END


40)Generate the following numbers using For….Next…..Loop.
2,4,6,8,10….50

CLS
I = 2
While I < =50
Print I;
I = I + 2
WEND
END


41)Write a program to print numbers stated below USING WHILE…WEND STATEMENT.
1,3,5,7,9,…99

CLS
I = 1
While I <=99
Print I;
I = I + 2
WEND
END


42)Write a program to print numbers stated below USING WHILE…WEND STATEMENT.
1,4,9,…upto 10th term.

CLS
I=1
While I < =10
Print I^2;
I = I + 1
WEND
END
1) WAP to print the Fibonacci series
CLS
a = 1
b = 1
PRINT a, b,
FOR i = 1 TO 8
c = a + b
PRINT c,
a = b
b = c
NEXT i
END
……………………………………………………………………………….
2) WAP to print the factors of a given number
REM Program to print the factors of a given number
CLS
INPUT “Enter any number”; n
FOR i = 1 TO n
IF n MOD i = 0 THEN PRINT i,
NEXT i
END
…………………………………………………………………………………
3) WAP to print the greater among ten different numbers
REM Program to print greater number among ten different numbers
CLS
INPUT “Enter first number”; g
FOR i = 2 TO 10
INPUT “Enter next number”; a
IF a > g THEN g = a
NEXT
PRINT g; ” is the greatest number”
END
………………………………………………………………………………….
4) WAP to print the greater among three different numbers
REM Program to print greater among three different numbers
CLS
INPUT “Enter first number”; a
INPUT “Enter second number”; b
INPUT “Enter third number”; c
IF a > b AND a > c THEN
PRINT a; ” is greater”
ELSEIF b > a AND b > c THEN
PRINT b; ” is greater”
ELSE
PRINT c; ” is greater”
END IF
END
…………………………………………………………………………….
5) WAP to print the greater among two different numbers
REM Program to print the greater among two different numbers
CLS
INPUT “Enter first number”; a
INPUT “Enter second number”; b
IF a > b THEN
PRINT a; ” is greater”
ELSE
PRINT b; ” is greater”
END IF
END
………………………………………………………………………………..
6) WAP to calculate the cube root of a given number
REM Program to calculate the cube root of a given number
CLS
INPUT “Enter any number”; n
c = n ^ (1 / 3)
PRINT “Cube root of “; n; ” is “; s
END
…………………………………………………………………………………..
7) WAP to calculate the square root of a given number
REM Program to calculate the square root of a given number
CLS
INPUT “Enter any number”; n
s = SQR(n)
PRINT “Square root of “; n; ” is “; s
END
================================================
1)Program to check the given number for palindrome in qbasic using declare sub
DECLARE SUB A (N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A (N)
S = N
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “IT IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF
END SUB
………………………………………………………………………………..
2) Program to check given number for armstrong in qbasic using declare sub
DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A(N)
S=N
WHILE N <> 0
B = N MOD 10
R = R + B ^ 3
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS ARMSTRONG”
ELSE
PRINT “IT IS NOT ARMSTRONG”
END IF
END SUB
………………………………………………………………………………….
3) Program to reverse a given string in qbasic
CLS
INPUT “ENTER A STRING”; S$
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
PRINT REV$
END
………………………………………………………………………………..
4) Program to convert decimal to binary in qbasic using declare function
‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
DECLARE FUNCTION A$ (N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT “BINARY EQUIVALENT IS”; A$(N)
END
FUNCTION A$ (N)
WHILE N <> 0
E = N MOD 2
B$ = STR$(E)
N = FIX(N / 2)
C$ = B$ + C$
WEND
A$=C$
END FUNCTION
………………………………………………………………………………….
5) Program to convert decimal to octal in qbasic
THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N / 8)
C$ = B$ + C$
WEND
PRINT “QUAINARY EQUIVALENT IS”; C$
END
……………………………………………………………………………….
6)Program to reverse a given number in qbasic
CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 10
R = R * 10 + A
N = FIX(N / 10)
WEND
PRINT R
END
………………………………………………………………………………..
Programming for SLC board
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
Lab Session 2:
7. 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
—————————————————————————————————
Lab Session 3
Create sub procedures to print the following patterns
1
12
123
1234
12345
1
22
333
4444
55555
11111
2222
333
44
5
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
* * * * *
* * * *
* * *
**
*
*
* *
* *
* *
*
54321
5432
543
54
5
12345
1234
123
12
1
55555
4444
333
22
1
10 20 30
20 30 40
30 40 50
40 50 60
KAMAL
KAMA
KAM
KA
K