Calculate simple interest
DECLARE FUNCTION INTEREST(P,T,R)
CLS
INPUT"ENTER PRINCIPAL";P
INPUT"ENTER TIME";T
INPUT"ENTER HEIGHT";H
PRINT"SIMPLE INTEREST=";INTEREST(P,T,R)
END
FUNCTION INTEREST(P,T,R)
SI= P*T*R/100
SIMPLE INTEREST=SI
END FUNCTION
CLS
INPUT"ENTER PRINCIPAL";P
INPUT"ENTER TIME";T
INPUT"ENTER HEIGHT";H
PRINT"SIMPLE INTEREST=";INTEREST(P,T,R)
END
FUNCTION INTEREST(P,T,R)
SI= P*T*R/100
SIMPLE INTEREST=SI
END FUNCTION
Comments
Post a Comment