Program to print simple interest using FUNCTION
DECLARE FUNCTION SIMPLE(P,T,R)
CLS
INPUT"ENTER PRINCIPLE";P
INPUT"ENTER TIME"T
INPUT"ENTER RATE";R
PRINT"Simple Interest=";SIMPLE(P,T,R)
END
FUNCTION SIMPLE(P,T,R)
S=(P*T*R)/100
SIMPLE=S
END FUNCTION
CLS
INPUT"ENTER PRINCIPLE";P
INPUT"ENTER TIME"T
INPUT"ENTER RATE";R
PRINT"Simple Interest=";SIMPLE(P,T,R)
END
FUNCTION SIMPLE(P,T,R)
S=(P*T*R)/100
SIMPLE=S
END FUNCTION
Comments
Post a Comment