Problem Statement: It is clearly that the rectangular has either the length is longer than the width, or the width is longer than the length. It depends on the rectangular is in horizontal or vertical position. In this assignment the rectangular is in the horizontal position that means the length is longer than the width. This rectangular has length 4m for each side and width 3m for each side. Now, the program will be written by using functions that calculates the area and perimeter of a rectangular.

Analysis: For the space problem, we need to output the area of the following variables: + Name of the area is calculated, GetArea (as string) + The length of rectangular, LenRec (as float) + The width of rectangular, WidRec (as float) + The total length of rectangle, Total2L (as float) + The total width of rectangle, Total2W (as float) + The perimeter of rectangle. PerRec (as string) The necessary input to the program: + In order to output the rectangle’s area (GetArea), the program must know what it is, so the string Area must be input by the user. + To compute the usable area of rectangular, the program must know how many sides in the rectangle. We have LenRec and WidRec are float variable and are also input data. + To compute the rectangle’s perimeter (PerRec), the program must know what it is, so the string perimeter must be input by the user.

Obtaining the Necessary Formulas: The rectangular has length 25m and width 18m. So we have GetArea = 4m x 3m = 12m Generalize these computations by using variables instead of numbers: therefor, the suggestion formula for calculating the area and perimeter of rectangular is: GetArea = LenRec x WidRec GetArea is neither an input nor output variable, but it used solely in processing the data. This variable is type of float. Thus the rectangular has perimeter: PerRec = 2(4m) + 2(3m) = 14m Then, PerRec = 2 (LenRec) + 2 (WidRec)
Design:
Mail module Declare GetArea As String Declare LenRec As Float Declare WidRec As Float Declare PerRec As Float Set LenRec = 0 Set WidRec = 0 Set GetArea = 0 Set PerRec = 0 Write “Enter the length of rectangle” Input the measurement of length Write “Enter the width of rectangle” Input the measurement of width While LenRec > WidRec Write “Enter the area of rectangle: Input Number For [GetArea = 1; LenRec > WidRec; LenRec++] Set GetArea = 0 Write “Enter length of rectangle” + WidRec Input Number Set PerRec = 2 (LenRec) * 2 (WidRec) End for Set GetArea = [LenRec, WidRec] Write “LenRec: “+ WidRec Set GetArea = LenRec + WidRec End while Set PerRec = [2LenRec, 2WidRec] Write “The perimeter of rectangle” * 2LenRec + 2WidRec + “is” + Write PerRec End program Function GetArea [LenRec, WidRec] As Float Set GetArea = LenRec + WidRec Return value
End function
Function PerRec [2LenRec, 2WidRec] As Float Set PerRec = 2LenRec + 2WidRec Return value
End Function

Hierarchy Chart for the Program:
Main
Module
Main
Module

Area/Perimeter of Rectangle
Area/Perimeter of Rectangle
Get are of rectangle
Get are of rectangle
Calculate perimeter of rectangle
Calculate perimeter of rectangle
Create function
Create function

Flow Chart of the Program
Enter
Enter

Declare LenRec, WidRec, as integer
Declare LenRec, WidRec, as integer

Write “Enter the length of rectangle: “ Input measurement of length

Write “Enter the length of rectangle: “ Input measurement of length

Clear Screen
Clear Screen

Set PerRec = 0
Set PerRec = 0

Input Number
Input Number

Write “Enter the perimeter of rectangle”
Write “Enter the perimeter of rectangle”

Set PerRec
Set PerRec

No Yes

Write “Return value”
Write “Return value”
Write “Function”
Write “Function”

End Program
End Program

// Calculating the area and perimeter of rectangle // Programmers” H. Bao, University of Maryland University College // This program Calculates area and perimeter of rectangle, including // Lengths and Widths // positive numbers used: // LenRec calculated // WidRec calculated
… and so on

Testing: Input the measurement of length and width (positive numbers are used). | Expected output: The total of both side length, width, and the area of rectangle. | GetArea = LenRec x WidRec Then: GetArea = 4m x 3m PerRec = 2 (LenRec) + 2 (WidRec) Then: PerRec = 2 (4m) + 2 (3m) | 12m14m | Rectangle’s area = 12m | Rectangle’s Perimeter = 14m |