Wap to find simple intrest
DECLARE FUNCTION SI(P,T,R)
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END
FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END
FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION
No comments:
Post a Comment