Tuesday, October 1, 2019

Wap to find area of 4 wall

DECLARE SUB AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT'"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
CALL AR(L,B,H)
END

SUB AR(L,B,H)
ARE=2*H*(L+B)
PRINT"AREA OF 4 WALLS =";ARE
END SUB

No comments:

Post a Comment

Experience of COVID-19 and the cancellation of SEE.

As we know, that this pandemic disease has started from the Wuhan district of China. This viruswvirus discovered out on 31st December 2019 ...