- HubPages
*»* - Education and Science
*»* - Home Schooling & Life Experience Education

# QBASIC LESSONS IN NEPAL

## QBASIC INTRODUCTION

INTRODUCTION

In the early days of programming, it was usually the scientific elite doing the programming and they were usually trained above and beyond the average American to do their programming work. It was not until 1964 at Dartsmouth college that the Beginner' s All-purpose Symbolic Instruction Code would be introduced -- more commonly known as BASIC. Using common English to perform processor tasks, BASIC became quickly popular, although it was disliked by programmers of more "low-level" languages such as assem bly and FORTRAN. In 1985 Microsoft released their own version of BASIC called QBasic with their MS-DOS 5.0 operating system. Since then, nearly every PC user owns their own copy of QBasic, making it a widely known language.

QBasic is a very simple language to pick up, and yet it can accomplish a great deal. Granted you will probably never write Doom or Word Perfect with QBasic, but it has it's strong points. One of them is to introduce people to programming without having to worry about the internal workings of the computer. It's simple to create games, business applications, simple databases, and graphics. The best aspect of the language is it's close resemblance to English.

This small tutorial introduces the simple concepts of programming to get you started, so if you already know another language or are already familiar with programming, you may want to skim through the first couple sections. Good luck!

## QBASIC SAMPLE PROGRAMMING

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

END

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

END

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

END

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

## Great Stuff on Amazon

## 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 beginning 1 & 2 are the entered numbers.3 is the product of 1 & 2 as the definition of fibonacci series given in first.likewise 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

## Extra Samples Of Qbasic Programming - Qbasic

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

Cls

For 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

## Blackbox

QBASIC REALLY ROCKS !!!

HIGH LEVEL PROGRAMMING LANGUAGE QBASIC

## Link List

## Which programming language you liked the most?

## COMPUTER PRACTICLE QUESTIONS FOR SLC (NEPAL)

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, ——–up to 8th terms

f. 2,4,8,16 ——— up to 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

## New Guestbook Comments

No comments yet.