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 ;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 Curren cy. 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 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 Enter the numbers between 1-3 ;N Select case N Case 1 Print Its number 1; Case 2 Print Its a number 2 ; Case 3
Print Its a number 3 Case else Print Its out of range ; End select End
31)Write a program to enter any alphabet and test alphabet is a or not using the s elect case statement. Cls Input Enter the alphabet ;A$ A$=UCase$ (A$) Select Case A$ Case A Print Its alphabet A Case Else Print Its 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 Its 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
