Sunday, 29 December 2024

Grade-10: Ch:11: Modular Programming in sub-procedure

 

Modular Programming Using Sub-Procedures in QBASIC

1. Program to Calculate Area and Volume Using Sub-Procedures

Program:

DECLARE SUB CalculateArea(radius)
DECLARE SUB CalculateVolume(radius)
CLS

REM Main program
PRINT "Enter the radius of the circle/sphere: ";
INPUT radius

CALL CalculateArea(radius)
CALL CalculateVolume(radius)

END

REM Sub-procedure to calculate area of a circle
SUB CalculateArea (radius)
    area = 3.14159 * radius * radius
    PRINT "The area of the circle is: "; area
END SUB

REM Sub-procedure to calculate volume of a sphere
SUB CalculateVolume (radius)
    volume = (4 / 3) * 3.14159 * radius * radius * radius
    PRINT "The volume of the sphere is: "; volume
END SUB

2. Program to Check if Entered Number is Palindrome Using Sub-Procedure

Program:

DECLARE SUB CheckPalindrome(num)
CLS

REM Main program
PRINT "Enter a number to check if it's a palindrome: ";
INPUT num

CALL CheckPalindrome(num)

END

REM Sub-procedure to check if a number is a palindrome
SUB CheckPalindrome (num)
    original = num
    reversed = 0
    
    DO WHILE num <> 0
        digit = num MOD 10
        reversed = reversed * 10 + digit
        num = num \ 10
    LOOP
    
    IF original = reversed THEN
        PRINT original; " is a palindrome."
    ELSE
        PRINT original; " is not a palindrome."
    END IF
END SUB

3. Program Using Two Sub-Procedures

Problem Statement:
Write a program with two sub-procedures: one to calculate the factorial of a number, and another to check if the number is even or odd.

Program:

DECLARE SUB CalculateFactorial(num)
DECLARE SUB CheckEvenOdd(num)

Main program
PRINT "Enter a number: ";
INPUT num

CALL CalculateFactorial(num)
CALL CheckEvenOdd(num)

END

REM Sub-procedure to calculate factorial
SUB CalculateFactorial (num)
    factorial = 1
    FOR i = 1 TO num
        factorial = factorial * i
    NEXT i
    PRINT "The factorial of "; num; " is: "; factorial
END SUB

REM Sub-procedure to check if the number is even or odd
SUB CheckEvenOdd (num)
    IF num MOD 2 = 0 THEN
        PRINT num; " is even."
    ELSE
        PRINT num; " is odd."
    END IF
END SUB

Explanation of Modular Programs

  1. Sub-Procedures:
    Each sub-procedure performs a specific task, promoting code reuse and better readability.

  2. Parameters:

    • Parameters (radius, num) are passed to sub-procedures for computation. This ensures the sub-procedures are modular and reusable.
  3. Two Sub-Procedures in One Program:

    • The third program demonstrates the use of multiple sub-procedures in a single program to handle different tasks.

These programs exemplify modular programming principles and make the code easier to manage and debug. Let me know if you need further clarifications!

No comments:

Post a Comment

Popular Posts