Easy Qbasic
Search
Saturday, August 14, 2010
Q-BASIC PROGRAMS
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
Input
Input
Input
Print
Print
Print
Print
End
"
"
"
"
"
"
"
"
Enter the name ";N$
Enter the city";C$
Enter the country";CO$
Enter the age";A
The name is ";N$
The city is ";C$
The country is ";CO$
The age is ";A
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
Input
Input
Let I
Print
End
"
"
"
=
"
Enter the Principal";P
Enter the Rate";R
Enter the Time";T
P*T*R/100
The simple Interest = ";I
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 subj
ects,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 Curren
cy.
CLS
Input Enter the Nepalese currency
Let I = N * 1.6
Print the Indian currency= ;I
End
;N
27)Write a program to enter the Indian currency and covert it to Nepalese Curren
cy.
CLS
Input Enter the Indian currency
Let N = I / 1.6
Print the Nepalese currency= ;I
End
;N
28)Write a program to enter any number and find out whether it is negative or po
sitive.
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 us
ing 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
Select
Case 1
Print
Case 2
Print
Case 3
Enter the numbers between 1-3 ;N
case N
It s number 1 ;
It s a number 2 ;
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
elect case statement.
a or not using the s
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 vowe
l 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
9:17 PM 1/17/2016
