# Area of 4 walls. (sub)
DECLARE SUB AREA(l,b,h)
CLS
INPUT "Enter length"; l
INPUT "Enter breadth"; b
INPUT "Enter height";h
CALL AREA(l,b,h)
END
SUB AREA (l,b,h)
A=2*h*(l+b)
PRINT"Area of 4 walls =";A
END SUB
CLS
INPUT "Enter length"; l
INPUT "Enter breadth"; b
INPUT "Enter height";h
CALL AREA(l,b,h)
END
SUB AREA (l,b,h)
A=2*h*(l+b)
PRINT"Area of 4 walls =";A
END SUB
Comments
Post a Comment