Filetype PDF | Posted on 01 Feb 2023 | 2 years ago
Authentication
digital resources
135x Filetype PDF File size 1.08 MB Source: veda-app.s3.ap-south-1.amazonaws.com
SEE COMPUTER SCIENCE 2076 Compiled by: Deepak Shrestha
Qbasic Programming Questions [180]
1. Using FUNCTION…END 2. Write a program using SUB to find 3. Using FUNCTION, write a program
FUNTION, write a program to the average of any two numbers given to calculate the sum, product, average
calculate the average of three numbers by the user. and difference of two numbers.
DECLARE FUNCTION AVERAGE (A, DECLARE SUB AVERAGE (A, B) DECLARE FUNCTION SUM (A, B)
B, C) CLS DECLARE FUNCTION DIFF (A, B)
CLS INPUT “ENTER FIRST NUMBER”; A DECLARE FUNCTION PROD (A, B)
INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; DECLARE FUNCTION AVERAGE (A,
INPUT “ENTER SECOND NUMBER”; B B)
B CALL AVERAGE (A, B) CLS
INPUT “ENTER THIRD NUMBER”; C END INPUT “ENTER FIRST NUMBER”; A
PRINT “AVERAGE OF THREE INPUT “ENTER SECOND NUMBER”;
NUMBERS”; AVERAGE (A, B, C) SUB AVERAGE (A, B) B
AV = (A + B) / 2 PRINT “SUM OF TWO NUMBERS”;
FUNCTION AVERAGE (A, B, C) PRINT “AVERAGE OF TWO SUM (A, B)
AVERAGE = (A + B + C) / 3 NUMBERS”; AV PRINT “DIFFERENCE OF TWO
END FUNCTION END SUB NUMBERS”; DIFF (A, B)
PRINT “PRODUCT OF TWO
4. Using FUNCTION, write a program 5. Write a program in QBASIC to find NUMBERS”; PROD (A, B)
to input any five numbers and display square of a given number using PRINT “AVERAGE OF TWO
their sum using array (DIM) FUNCTION…..END FUNCTION. NUMBERS”; AVERAGE (A, B)
DECLARE FUNCTION SUM (N ( )) END
CLS DECLARE FUNCTION SQUARE (N)
DIM N( 5) CLS FUNCTION SUM (A, B)
FOR I = 1 TO 5 INPUT “ENTER ANY NUMBER”; N SUM = A + B
INPUT "Enter any 5 numbers"; N (I) PRINT “SQUARE OF NUMBER “; END FUNCTION
NEXT I SQUARE (N)
PRINT "Sum of any 5 numbers is"; END FUNCTION DIFF (A, B)
SUM(N ( )) DIFF = A - B
END FUNCTION SQUARE (N) END FUNCTION
FUNCTION SUM (N ( )) SQUARE = N ^ 2
FOR I = 1 TO 5 END FUNCTION FUNCTION PROD (A, B)
S = S + N (I) PROD = A * B
NEXT I END FUNCTION
SUM = S
END FUNCTION FUNCTION AVERAGE (A, B)
AVERAGE = (A + B) / 2
END FUNCTION
6. Write a program in QBASIC to find 7. Write a program in QBASIC to find 8. Write a program in QBASIC to find
square root of a given number using cube of a given number using cube root of a given number using
SUB…..END SUB. SUB…..END SUB. FUNCTION…..END FUNCTION.
DECLARE SUB SQROOT (N) DECLARE SUB CUBE (N) DECLARE FUNCTION CBROOT (N)
CLS CLS CLS
INPUT “ENTER ANY NUMBER”; N INPUT “ENTER ANY NUMBER”; N INPUT “ENTER ANY NUMBER”; N
CALL SQROOT (N) CALL CUBE (N) PRINT “CUBE ROOT OF NUMBER “;
END END CBROOT (N)
END
SUB SQROOT (N) SUB CUBE (N)
S = N ^ (1 / 2) C = N ^ 3 FUNCTION CBROOT (N)
PRINT “SQUARE ROOT OF NUMBER PRINT “CUBE OF NUMBER “; C CBROOT = N ^ (1 / 3)
“; S END SUB END FUNCTION
END SUB
https://seeqbasicomputer.blogspot.com/ 1 | P a g e
SEE COMPUTER SCIENCE 2076 Compiled by: Deepak Shrestha
9. Write a program in QBASIC to find 10. Write a program to calculate and 11. Using FUNCTION, write a
the sum of cube of two input numbers print the simple interest using program to calculate distance travelled
using SUB…..END SUB FUNCTION……END FUNCTION. by a body. (Hint: s=ut+ (1/2) at2)
DECLARE SUB CUBE (A, B,) DECLARE FUNCTION INTEREST (P, DECLARE FUNCTION DISTANCE (U,
CLS T, R) T, A)
INPUT “ENTER FIRST NUMBER”; A CLS CLS
INPUT “ENTER SECOND NUMBER”; INPUT “ENTER PRINCIPAL”; P INPUT “ENTER INITIAL
B INPUT “ENTER TIME”; T VELOCITY”; U
CALL CUBE (A, B) INPUT “ENTER RATE”;R INPUT “ENTER TIME”; T
END PRINT “SIMPLE INTEREST=”; INPUT “ENTER ACCELARATION”; A
INTEREST (P, T, R) PRINT “DISTANCE TRAVELLED = “;
SUB CUBE (A, B) END DISTANCE (U, T, A)
C = A ^ 3 + B ^ 3 END
PRINT “SUM OF CUBE OF TWO FUNCTION INTEREST (P, T, R)
NUMBERS “; C I = P* T * R / 100 FUNCTION DISTANCE (U, T, A)
END SUB INTEREST = I DISTANCE = U * T + 1 / 2 * A * T ^ 2
END FUNCTION END FUNCTION
12. Using FUNCTION……END 13. Using FUNCTION……END 14. Write a program using
FUNCTION, write a program to read FUNCTION, write a program to input SUB……END SUB to find the area of
perpendicular and base of a right cost price and selling price from the rectangle. [A=L*B]
angled triangle to find hypoteneous. keyboard to calculate profit.
DECLARE SUB AREA (L, B)
DECLARE FUNCTION HYP(P, B) DECLARE FUNCTION PROFIT (CP, CLS
CLS SP) INPUT “ENTER LENGTH”; L
INPUT "ENTER PERPENDICULAR"; CLS INPUT “ENTER BREADTH”; B
P INPUT “ENTER COST PRICE”; CP CALL AREA (L, B)
INPUT "ENTER BASE"; B INPUT “ENTER SELLING PRICE”; SP END
PRINT "HYPOTENUSE="; HYP (P, B) PRINT “PROFIT AMOUNT=”; PROFIT
END (CP, SP) SUB AREA (L, B)
FUNCTION HYP (P, B) END A = L * B
HYP = (P ^ 2 + B ^ 2) ^ (1 / 2) FUNCTION PROFIT (CP, SP) PRINT “AREA OF RECTANGLE=”; A
END FUNCTION P = SP – CP END SUB
PROFIT = P
END FUNCTION
15. Write a program using 16. Write a program using 17.Write a program in QBASIC to
FUNCTION……END FUNCTION to SUB……END SUB to find the area find the area of four wall of a room
find the perimeter of rectangle. and perimeter of square. [P=4L] using FUNCTION…..END
2
[P=2(L+B)] [A=L ] FUNCTION.
DECLARE FUNCTION PER (L, B) DECLARE SUB AREA (L) DECLARE FUNCTION AREA (L, B,
CLS DECLARE SUB PERIMETER (L) H)
INPUT “ENTER LENGTH”; L CLS CLS
INPUT “ENTER BREADTH”; B INPUT “ENTER LENGTH”; L INPUT “ENTER LENGTH”; L
PRINT “PERIMETER OF CALL AREA (L) INPUT “ENTER BREADTH”; B
RECTANGLE”; PER (L, B) CALL PERIMETER (L) INPUT “ENTER HEIGHT”; H
END END PRINT “AREA OF FOUR WALLS”;
AREA(L, B, H)
FUNCTION PER (L, B) SUB AREA (L) END
PER = 2 * (L + B) A = L ^ 2
END FUNCTION PRINT “AREA OF SQUARE”; A FUNCTION AREA (L, B, H)
END SUB A = 2 * H * (L + B)
AREA = A
SUB PERIMETER (L) END FUNCTION
P = 4 * L
PRINT “PERIMETER OF SQUARE”; P
END SUB
https://seeqbasicomputer.blogspot.com/ 2 | P a g e
SEE COMPUTER SCIENCE 2076 Compiled by: Deepak Shrestha
18.Write a sub program cost (l,b,h,c) to 19.Write a program using 20.Write a program to calculate the
find the cost of painting the four walls of FUNCTION…END FUNCTION to area of triangle by using
a room. find area of the triangle. SUB…..END SUB.
[Hints:
DECLARE SUB AREA (L, B, H, C) DECLARE FUNCTION AREA (B, H)
CLS CLS Area= s sa sb sc ]
INPUT “Enter Length”; L INPUT “ENTER BREADTH”; B
INPUT “Enter Breadth”; B INPUT “ENTER HEIGHT”; H DECLARE SUB AREA (A, B, C)
INPUT “Enter Height”; H PRINT “AREA OF TRIANGLE ”; CLS
INPUT “Enter Cost”; C AREA( B, H) INPUT “ENTER VALUE FOR FIRST
CALL AREA (L, B, H, C) END SIDE ”; A
END INPUT “ENTER VALUE FOR
FUNCTION AREA (B, H) SECOND SIDE ”; B
SUB AREA (L, B, H, C) A = 1 / 2 * (B * H) INPUT “ENTER VALUE FOR THIRD
A = 2 * H * (L + B) AREA = A SIDE ”; C
T=A*C END FUNCTION CALL AREA (A, B, C)
END
PRINT “Cost of painting area of four walls
is”; T SUB AREA (A, B, C)
END SUB S = (A + B + C) / 2
AR = (S * (S – A) * (S – B) * (S – C)) ^
(1 / 2)
PRINT “AREA OF TRIANGLE”; AR
END SUB
21.Write a program using SUB….END 22.Write a program using 23.Write a program using
SUB to get radius of circle and then print FUNCTION….END FUNCTION to FUNCTION…END FUNCTION to
its circumference. [C=2R] get radius of the circle and display get radius of circle and then print its
the area. area and circumference.
DECLARE SUB CIRCUM (R)
CLS DECLARE FUNCTION AREA (R) DECLARE FUNCTION AREA (R)
INPUT “ENTER RADIUS”; R CLS DECLARE FUNCTION CIRCUM (R)
CALL CIRCUM (R) INPUT “ENTER RADIUS”; R CLS
END PRINT “AREA OF CIRCLE ”; INPUT “ENTER RADIUS”; R
AREA(R) PRINT “AREA OF SQUARE ”;
SUB CIRCUM (R) END AREA(R)
C = 2 * 3.14 * R PRINT “CIRCLE OF
FUNCTION AREA (L, B) CIRCUMFERENCE”; CIRCUM (R)
PRINT “CIRCUMFERENCE OF CIRCLE
”; C A = 3.14 * R ^ 2 END
END SUB AREA = A
END FUNCTION FUNCTION AREA (R)
AREA = 3.14 * R ^ 2
END FUNCTION
FUNCTION CIRCUM (R)
CIRCUM = 2 * 3.14 * R
END FUNCTION
24.Write a program to declare user 25.Using Function…… End 26.Using Sub…… End Sub, write a
defined function using Function, write a program to program to calculate area of sphere. [
2
FUNCTION……END FUNCTION to calculate volume of hemisphere. [ area = 4πr ]
3 DECLARE SUB TSAREA (R)
calculate volume of cylinder. volume = 2/3 πR ]
DECLARE FUNCTION VOLUME (R, H) DECLARE FUNCTION VOLUME (R) CLS
CLS CLS INPUT “ENTER RADIUS”; R
INPUT “ENTER RADIUS”; R INPUT “ENTER RADIUS”; R CALL TSAREA(R)
INPUT “ENTER HEIGHT”; H PRINT “VOLUME OF HEMISPHERE END
PRINT “VOLUME OF CYLINDER ”; ”; VOLUME(R)
VOLUME(R, H) END SUB TSAREA (R)
END A= 4 * 3.14 * R ^ 2
FUNCTION VOLUME (R) PRINT “TOTAL SURFACE AREA OF
FUNCTION VOLUME (R, H) VOLUME = (2 / 3) * 3.14 * R ^ 3 SPHERE “; A
VOLUME = 3.14 * R ^ 2 * H END FUNCTION END SUB
END FUNCTION
https://seeqbasicomputer.blogspot.com/ 3 | P a g e
SEE COMPUTER SCIENCE 2076 Compiled by: Deepak Shrestha
27.Write a function procedure to read 28.Write a program using Function 29.Write a program to create a
the side of a cube. Calculate its volume Module to calculate and print the procedure using SUB...END SUB to
3
and surface area. (Hint: vol=side and volume of a box / cuboid. [ V=L*B*H] input the value of length, breadth and
2
sa=6 side ] height of a box. The program should
DECLARE FUNCTION VOLUME (L, calculate the area and volume of the
DECLARE FUNCTION TSAREA (L) B, H) box.
DECLARE FUNCTION VOLUME (L) CLS DECLARE FUNCTION TSAREA (L, B,
CLS INPUT “ENTER LENGTH”; L H)
INPUT “ENTER LENGTH”; L INPUT “ENTER BREADTH”; B DECLARE FUNCTION VOLUME (L,
PRINT “TOTAL SURFACE AREA OF INPUT “ENTER HEIGHT”; H B, H)
CUBE ”; TSAREA(L) PRINT “VOLUME OF CUBOID ”; CLS
PRINT “VOLUME OF CUBE ”; VOLUME(L, B, H) INPUT “ENTER LENGTH”; L
VOLUME(L) END INPUT “ENTER BREADTH”; B
END INPUT “ENTER HEIGHT”; H
FUNCTION VOLUME (L, B, H) PRINT “TOTAL SURFACE AREA OF
FUNCTION TSAREA (L) VOLUME = L * B * H CUBOID ”; TSAREA(L, B, H)
TSAREA = 6 * L ^ 2 END FUNCTION PRINT “VOLUME OF CUBOID ”;
END FUNCTION VOLUME(L, B, H)
END
FUNCTION VOLUME (L)
VOLUME = L ^ 3 FUNCTION TSAREA (L, B, H)
END FUNCTION TSAREA = 2 * (L * B + B * H + H * L)
END FUNCTION
FUNCTION VOLUME (L, B, H)
VOLUME = L * B * H
END FUNCTION
30.Write a program in QBASIC to 31.Solve a quadratic equation 32.Write a program using
find the total surface area of a box ax2+bx+c=0 on the basis of the Function…..End Function to get
using FUNCTION….END coefficient values a, b, and c using sub temperature in Celsius from the user
FUNCTION. √ and then print the temperature in
−± −
procedure. [ = ] Fahrenheit.(hint: F=9C/5+32)
DECLARE FUNCTION TSAREA (L, B, DECLARE FUNCTION CONVERT (C)
H) DECLARE SUB EQUATION (A, B, C) CLS
CLS CLS INPUT “ENTER TEMPERATURE IN
INPUT “ENTER LENGTH”; L INPUT "ENTER VALUE FOR A"; A CELCIUS”; C
INPUT “ENTER BREADTH”; B INPUT "ENTER VALUE FOR B"; B PRINT “TEMPERATURE IN
INPUT “ENTER HEIGHT”; H INPUT "ENTER VALUE FOR C"; C FARENHEIT=”; CONVERT (C)
PRINT “TOTAL SURFACE AREA OF CALL EQUATION (A, B, C) END
CUBOID”; TSAREA (L, B, H) END
END SUB EQUATION (A, B, C) FUNCTION CONVERT (C)
D = (B * B - 4 * A * C) ^ (1 / 2) F = 9 * C / 5 + 32
FUNCTION TSAREA (L, B, H) X = (-B + D) / 2 * A CONVERT = F
TSAREA = 2 * (L * B + B * H + H * L) Y = (-B - D) / 2 * A END FUNCTION
END FUNCTION PRINT "SOLUTION OF QUADRATIC
EQUATION ARE"; X; Y
END SUB
33.Write a program to input 34.Write a program to convert 35.Write a program to convert NC
Fahrenheit and convert it into Celsius USD(dollar) into NC (NEPALI (NEPALI currency) into IC (Indian
using SUB - END SUB. currency) using FUNCTION. Currency) using DECLARE SUB.
DECLARE SUB CONVERT (F) DECLARE FUNCTION CONVERT (D) DECLARE SUB CONVERT (NC)
CLS CLS CLS
INPUT “ENTER TEMPERATURE IN INPUT “ENTER CURRENCY VALUE INPUT “ENTER VALUE IN
FARENHEIT”; F IN DOLLAR”; D NEPALESE RUPEES”; NC
CALL CONVERT (F) PRINT “NEPALESE CURRENCY CALL CONVERT (NC)
END VALUE=”; CONVERT (D) END
SUB CONVERT (F) END SUB CONVERT (NC)
C = (F – 32) * (5 / 9) FUNCTION CONVERT (D) IC = NC / 1.6
PRINT “TEMPERATURE IN NC = D * 110 PRINT “INDIAN CURRENCY
CELCIUS=”; C CONVERT = NC VALUE=”; IC
END SUB END FUNCTION END SUB
https://seeqbasicomputer.blogspot.com/ 4 | P a g e
no reviews yet
Please Login to review.
