please can anyone send me some qbasic programs
Home
/
Computer Science
/
please can anyone send me some qbasic programs
please can anyone send me some qbasic programs
Sign Up to our social questions and Answers Engine to ask questions, answer people’s questions, and connect with other people.
Login to our social questions & Answers Engine to ask questions answer people’s questions & connect with other people.
Answer:
1. Write a program to calculate the volume of a cylinder using FUNCTION……END FUNCTION. [Hint: PI*R^2*H]
Ans:
DECLARE FUNCTION VOL(R,H)
CLS
CONST PI=3.14
INPUT “Enter radius and height”; R, H
PRINT “The volume=”; VOL(R,H)
END
FUNCTION VOL(R,H)
V=PI*R^2*H
VOL=V
END FUNCTION
2. Write a program to test whether the given number is positive or negative using SUB……END SUB.
Ans:
DECLARE SUBTEST(N)
CLS
INPUT “Enter a number”; N
CALL TEST(N)
END
SUB TEST(N)
IF N>0 THEN
PRINT N; “is positive number”
ELSE
PRINT N; “is negative number”
END IF
END SUB
3. Write a program to print the following series: 1,4,7,……. up to 10th term using FUNCTION……END FUNCTION.
ANS :
DECLARE FUNCTION SERIES
CLS
D= SERIES
END
FUNCTION SERIES
FOR I = 1 TO 10
PRINT A;
A=A+3
NEXT I
END FUNCTION
4. Write a program which accepts any three different numbers and find the maximum number among them using CALL statement.
Ans:
DECLARE SUB MAX(A,B,C)
CLS
INPUT “Enter any three number’; A,B,C
CALL MAX(A,B,C)
END
SUB MAX(A,B,C)
IF A>B AND A>C THEN
PRINT A; “is maximum number”
ELSEIF B>A AND B>C THEN
PRINT B; “is maximum number”
ELSE
PRINT C; “is maximum number”
END IF
END SUB
5. Write a program to display greater number among any two numbers using FUNCTION……. END FUNCTION.
ANS :
DECLARE FUNCTION GREAT(A,B)
CLS
INPUT “Enter any two number”; A,B
PRINT “The greater number is”; GREAT(A,B)
END
FUNCTION GREAT(A,B)
IF A>B THEN
GREAT= A
ELSE
GREAT=B
END IF
END FUNCTION