Qbasic Programes For Nepali Students

Qbasic program to check entered letter is capital or small(uppercase or lowercase)

REM PROGRAM TO CHECK ENTERED NUMBER IS UPPERCASE OR LOWERCASE
CLS
INPUT “Enter a letter”;A$
U$=UCASE$(A$)
IF U$=A$ THEN
PRINT “It is capital letter”
ELSE
PRINT “It is small letter”
ENDIF
END

USING DECLARE FUNCTION PROCEDURE

DECLARE FUNCTION UC$ (A$)
CLS
INPUT “Enter a letter”; A$
PRINT UC$(A$)
END

FUNCTION UC$ (A$)
CH$ = UCASE$(A$)
IF A$ = CH$ THEN
UC$ = “It is capital letter”
ELSE
UC$ = “It is small letter”
END IF
END FUNCTION

USING DECLARE SUB PROCEDURE

DECLARE SUB UC(A$)
CLS
INPUT “Enter a letter”; A$
CALL UC(A$)
END

SUB UC(A$)
CH$ = UCASE$(A$)
IF A$ = CH$ THEN
PRINT “It is capital letter”
ELSE
PRINT “It is small letter”
END IF
END SUB

Program to check a given number is palindrome or not in qbasic

CLS
INPUT “ENTER A NUMBER”; N
S = N
WHILE N <> 0
A = N MOD 10
R = R * 10 + A
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF

Using Declare Sub Procedure

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

Program to check a given string is palindrome or not 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
IF S$ = REV$ THEN
PRINT “THE GIVEN STRING IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF

Using declare sub

DECLARE SUB A(S$)
CLS
INPUT “ENTER A STRING”; S$
CALL A(S$)
END
SUB A(S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
IF S$ = REV$ THEN
PRINT “THE GIVEN STRING IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF
END SUB

Program to check given number is armstrong or not in qbasic

CLS
INPUT “ENTER A NUMBER”; N
S = N
WHILE N <> 0
A = N MOD 10
R = R + A ^ 3
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS ARMSTRONG”
ELSE
PRINT “IT IS NOT ARMSTRONG”
END IF

Using declare sub procedure

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

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

Using declare sub procedure

DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A(N)
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
PRINT R
END SUB

Using declare function procedure

DECLARE FUNCTION A(N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT A(N)
END
FUNCTION A(N)
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
A=R
END FUNCTION

Program to convert decimal to hexadecimal in qbasic

‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
CLS
INPUT “ENTER A DECIMAL VALUE”; N
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
PRINT “HEXADECIMAL VALUE IS “; H$
END

Using declare function procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
DECLARE FUNCTION Z$ (N)
CLS
INPUT “ENTER A DECIMAL VALUE”; N
PRINT “HEXADECIMAL VALUE IS “; Z$(N)
END

FUNCTION Z$ (N)
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
Z$ = H$
END FUNCTION

Using declare sub procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
DECLARE SUB Z (N)
CLS
INPUT “ENTER A DECIMAL VALUE”; N
CALL Z(N)
END

SUB Z (N)
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
PRINT “HEXADECIMAL VALUE IS  “; H$
END SUB

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 /  
C$ = B$ + C$
WEND
PRINT “QUAINARY EQUIVALENT IS”; C$
END

Using declare sub procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
DECLARE SUB O(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL O(N)
END
SUB O(N)
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N /  
C$ = B$ + C$
WEND
PRINT “QUAINARY EQUIVALENT IS”; C$
END SUB

Using declare function procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
DECLARE FUNCTION O$(N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT “QUAINARY EQUIVALENT IS”; O$(N)
END
FUNCTION O$(N)
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N /  
C$ = B$ + C$
WEND
O$=C$
END FUNCTION

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

Using declare sub procedure

DECLARE SUB A(S$)
CLS
INPUT “ENTER A STRING”; S$
CALL A(S$)
END
SUB A(S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
PRINT REV$
END SUB

Using declare function procedure

DECLARE FUNCTION A$ (S$)
CLS
INPUT “ENTER A STRING”; S$
PRINT A$(S$)
END
FUNCTION A$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
A$ = REV$
END FUNCTION

Program to converts Hexadecimal to Decimal in Qbasic

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
PRINT “DECIMAL VALUE IS”;H
END

Using declare function procedure

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
DECLARE FUNCTION Z(B$)
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
PRINT “DECIMAL VALUE IS”;Z(B$)
END
FUNCTION Z(B$)
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
Z=H
END FUNCTION

Using declare sub procedure

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
CALL Z(B$)
END
SUB Z(B$)
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
PRINT “DECIMAL VALUE IS”;H
END SUB

Program to convert decimal to binary in qbasic

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 2
B$ = STR$(A)
N = FIX(N / 2)
C$ = B$ + C$
WEND
PRINT “BINARY EQUIVALENT IS”; C$
END

Using declare sub procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
DECLARE SUB A (N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END

SUB A (N)
WHILE N <> 0
E = N MOD 2
B$ = STR$(E)
N = FIX(N / 2)
C$ = B$ + C$
WEND
PRINT “BINARY EQUIVALENT IS”; C$
END SUB

Using declare function procedure

‘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

Program to convert Binary to Decimal in qbasic

‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
CLS
INPUT “ENTER A BINARY NUMBER”; B$
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS “; M
END

Using declare sub procedure

‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER A BINARY NUMBER”; B$
CALL Z(B$)
END
SUB Z(B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS “; M
END SUB

Using declare function procedure

‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
DECLARE FUNCTION Z (B$)
CLS
INPUT “ENTER A BINARY NUMBER”; B$
PRINT “DECIMAL VALUE IS “; Z(B$)
END

FUNCTION Z (B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
Z = M
END FUNCTION

Program to convert Octal to Decimal in Qbasic

‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
CLS
INPUT “ENTER A OCTAL VALUE”; B$
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS”; D
END

Using declare function procedure

‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
DECLARE FUNCTION Z (B$)
CLS
INPUT “ENTER A OCTAL VALUE”; B$
PRINT “DECIMAL VALUE IS”; Z(B$)
END

FUNCTION Z (B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
Z = D
END FUNCTION

Using declare sub procedure

‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER A OCTAL VALUE”; B$
CALL Z(B$)
END
SUB Z(B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS”; D
END SUB

Program to find the product of the digits of the given number in Qbasic

CLS
R = 1
INPUT “ENTER A NUMBER”;N
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
PRINT “PRODUCT OF DIGITS IS”;R
END

Using declare sub procedure

DECLARE SUB C(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL C(N)
END
SUB C(N)
R = 1
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
PRINT “PRODUCT OF DIGITS IS”;R
END SUB

Using declare function procedure

DECLARE FUNCTION C(N)
CLS
INPUT “ENTER A NUMBER”;N
PRINT “PRODUCT OF DIGITS IS”;C(N)
END
FUNCTION C(N)
R = 1
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
C = R
END FUNCTION

Program to find the sum of the digits of the given number in Qbasic

CLS
INPUT “ENTER A NUMBER”;N
WHILE N<>0
A = N MOD 10
R = R + A
N = FIX ( N / 10 )
WEND
PRINT “SUM OF DIGITS IS”;R
END

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 / 
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