Wap to find area of box
DECLARE FUNCTION AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT"THE AREA OF BOX IS ";AR(L,B,H)
END
FUNCTION AREA(L,B,H)
AR=2*(L*H+B*H+L*B)
END FUNCTION
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT"THE AREA OF BOX IS ";AR(L,B,H)
END
FUNCTION AREA(L,B,H)
AR=2*(L*H+B*H+L*B)
END FUNCTION
No comments:
Post a Comment