14) PRINT SIMPLE INTEREST.(FUNCTION)
DECLARE FUNCTION SI (P ,T ,R )
CLS
INPUT "ENTER PRINCIPAL "; P
INPUT "ENTER RATE "; R
INPUT" ENTER TIME ";T
PRINT "SIMPLE INTEREST ";SI (P ,T ,R )
END
FUNCTION SI (P , T ,R )
I= P *T *R/100
SI = I
END FUNCTION
DECLARE FUNCTION SI (P ,T ,R )
CLS
INPUT "ENTER PRINCIPAL "; P
INPUT "ENTER RATE "; R
INPUT" ENTER TIME ";T
PRINT "SIMPLE INTEREST ";SI (P ,T ,R )
END
FUNCTION SI (P , T ,R )
I= P *T *R/100
SI = I
END FUNCTION
0 comments