SEE Modular Programming-4marks (082)

 

(Long Question) Modular Programming for SEE Students

1. WAP in QBASIC that asks length, breadth, and height of a room and calculate it’s area and volume. Create a user defined function to calculate area and sub-program to calculate volume. [Hint: A=L*B, V= L*B*H]

DECLARE FUNCTION AREA (L,B)
DECLARE SUB VOL(L,B,H)
Cls
Input "ENTER LENGTH, BREADTH, AND HEIGHT"; L, B, H
X = AREA(L, B)
Print "AREA IS: "; X
Call VOL(L, B, H)
End

Function AREA (L, B)
    A = L * B
    AREA = A
End Function

Sub VOL (L, B, H)
    V = L * B * H
    Print "VOLUME IS: "; V
End Sub

2. WAP in QBASIC that asks length, breadth, and height of a room then sub procedure to calculate volume and function procedure to calculate area of four walls. [Hint: V=L*B*H, A= A=2*H*((L+B)]

DECLARE FUNCTION AREA (L,B,H)
DECLARE SUB VOL(L,B,H)
Cls
Input "ENTER LENGTH, BREADTH, AND HEIGHT"; L, B, H
X = AREA(L, B, H)
Print "AREA IS: "; X
Call VOL(L, B, H)
End

Function AREA (L, B, H)
    A = 2 * H * (L + B)
    AREA = A
End Function

Sub VOL (L, B, H)
    V = L * B * H
    Print "VOLUME IS: "; V
End Sub

3. WAP in QBASIC that asks length, breadth, and height of a room and calculate’s it’s area and perimeter. Create a user defined function to calculate area and sub-program to calculate perimeter. [Hint: A=L*B, P= 2*(L+B)

DECLARE FUNCTION AREA (L,B)
DECLARE SUB PER(L,B)
Cls
Input "ENTER LENGTH, BREADTH"; L, B
X = AREA(L, B)
Print "AREA IS: "; X
Call PER(L, B)
End

Function AREA (L, B)
    A = L * B
    AREA = A
End Function

Sub PER (L, B)
    P = 2 * (L + B)
    Print "PERIMETER IS: "; P
End Sub

4. WAP in QBASIC that asks length, breadth, and height and calculate volume of cuboid and total surface area. Create user defined function to calculate volume of cuboid and sub program to calculate total surface of area. [Hint: VOLOME=L*B*H, TSA= 2*(L*B+B*H+H*L)]

DECLARE FUNCTION VOL(L,B,H)
DECLARE SUB TSA(L,B,H)
Cls
Input "ENTER LENGTH, BREADTH, AND HEIGHT"; L, B, H
X = VOL(L, B, H)
Print "VOLUME IS: "; X
Call TSA(L, B, H)
End

Function VOL (L, B, H)
    V = L * B * H
    VOL = V
End Function

Sub TSA (L, B, H)
    A = 2 * (L * B + B * H + H * L)
    Print "AREA IS: "; A
End Sub

5. WAP in QBASIC that asks radius of a circle to calculate it’s area and circumference. Create a user defined function to calculate area and sub-program to calculate circumference. [Hint: A=πr^2, C= 2π*r]

DECLARE FUNCTION AREA(R)
DECLARE SUB CIR(R)
Cls
Input "ENTER RADIUS: "; R
X = AREA(R)
Print "AREA IS: "; X
Call CIR(R)
End

Function AREA (R)
    A = 3.14 * R ^ 2
    AREA = A
End Function

Sub CIR (R)
    C = 2 * 3.14 * R
    Print "CIRCUMFERENCE IS: "; C
End Sub

6. WAP in QBASIC to display smaller number using function procedure and greater number using sub-procedure among three number.

DECLARE SMALL (A, B, C)
DECLARE SUB LARGE(A,B,C)
Cls
Input "PLEASE ENTER THREE NUMBERS: "; A, B, C
X = SMALL(A, B, C)
Print "SMALL IS: "; X
Call LARGE(A, B, C)
End

Function SMALL (A, B, C)
    If A < B And A < C Then
        SMALL = A
    ElseIf B < A And B < C Then
        SMALL = B
    Else
        SMALL = C
    End If
End Function

Sub LARGE (A, B, C)
    If A > B And A > C Then
        Print "LARGETS IS: "; A
    ElseIf B > A And B > C Then
        Print "LARGEST IS : "; B
    Else
        Print "LARGEST IS: "; C
    End If
End Sub

7. WAP in QBASIC that asks radius and height of a cylinder and calculate the volume and curve surface area. Create a user defined function to calculate volume and sub-procedure to calculate curve surface area of a cylinder. [Hint: V=πr^2h, CSA= 2* πrh]

DECLARE FUNCTION VOL (R,H)
DECLARE SUB CSA(R,H)
Cls
Input "ENTER RADIUS AND HEIGHT OF A CYLINDER: "; R, H
X = VOL(R, H)
Print "VOLUME IS: "; X
Call CSA(R, H)
End

Function VOL (R, H)
    V = 3.14 * R ^ 2 * H
    VOL = V
End Function

Sub CSA (R, H)
    C = 2 * 3.14 * R * H
    Print "CSA IS: "; C
End Sub

8. WAP to calculate area of rectangle using function procedure and sub procedure to calculate volume of cylinder. [Hint: A=Lb, V= πr^2*h]

DECLARE FUNCTION AREA(L,B)
DECLARE SUB VOL(R,H)
Cls
Input "ENTER LENGTH AND BREADTH: "; L, B
Input "RADIUS AND HEIGHT: "; R, H
X = AREA(L, B)
Print "AREA IS :"; X
Call VOL(R, H)
End

Function AREA (L, B)
    A = L * B
    AREA = A
End Function

Sub VOL (R, H)
    V = 3.14 * R ^ 2 * H
    Print "VOLUME IS: "; V
End Sub