PRINT SIMPLE INTEREST USING FUNCTION
DECLARE FUNCTION SIM(P,T,R)
CLS
INPUT"ENTER PRINCIPAL";P
INPUT"ENTER TIME";T
INPUT"ENTER RATE";R
PRINT"SIMPLE INTEREST";SIM(P,T,R)
END
FUNCTION SIM(P,T,R)
S=P*T*R/100
SIM=S
END FUNCTION
CLS
INPUT"ENTER PRINCIPAL";P
INPUT"ENTER TIME";T
INPUT"ENTER RATE";R
PRINT"SIMPLE INTEREST";SIM(P,T,R)
END
FUNCTION SIM(P,T,R)
S=P*T*R/100
SIM=S
END FUNCTION
No comments:
Post a Comment