DISPLAY SIMPLE INTEREST, AMOUNT



43. Display simple interest

REM PROGRAM TO DISPLAY SIMPLE INTEREST
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
I = P* T * R / 100
PRINT “SIMPLE INTEREST =”; I
END

USING SUB PROCEDURE

DECLARE SUB INTEREST (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL INTEREST(P, T, R)
END

SUB INTEREST (P, T, R)
I = P* T * R / 100
PRINT “SIMPLE INTEREST =”; I
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION INTEREST (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “SIMPLE INTEREST=”; INTEREST(P, T, R)
END

FUNCTION INTEREST (P, T, R)
I = P* T * R / 100
INTEREST = I
END FUNCTION

44. Input principal, rate, time and display total amount.

REM PROGRAM TO DISPLAY TOTAL AMOUNT
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
I = P* T * R / 100
A = P + I
PRINT “TOTAL AMOUNT=”; A
END

USING SUB PROCEDURE

DECLARE SUB AMOUNT (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL AMOUNT(P, T, R)
END

SUB AMOUNT (P, T, R)
I = P* T * R / 100
A = P + I
PRINT “TOTAL AMOUNT=”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AMOUNT (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “TOTAL AMOUNT=”; AMOUNT(P, T, R)
END

FUNCTION AMOUNT (P, T, R)
I = P* T * R / 100
A = P + I
AMOUNT = A
END FUNCTION

45. Input principal, rate, time and display simple interest and total amount.

REM PROGRAM TO DISPLAY SIMPLE INTEREST AND TOTAL AMOUNT
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
I = P* T * R / 100
A = P + I
PRINT “SIMPLE INTEREST=”;I
PRINT “TOTAL AMOUNT=”; A
END

USING SUB PROCEDURE

DECLARE SUB INTEREST (P, T, R)
DECLARE SUB AMOUNT (P)
COMMON SHARED I
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL AMOUNT(P)
CALL INTEREST(P, T, R)
END

SUB INTEREST (P, T, R)
I = P* T * R / 100
PRINT “SIMPLE INTEREST =”; I
END SUB

SUB AMOUNT (P)
A = P + I
PRINT “TOTAL AMOUNT=”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION INTEREST (P, T, R)
DECLARE FUNCTION AMOUNT (P)
COMMON SHARED I
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “SIMPLE INTEREST =”; INTEREST(P, T, R)
PRINT “TOTAL AMOUNT=”; AMOUNT(P)

END

FUNCTION INTEREST (P, T, R)
I = P* T * R / 100
INTEREST = I
END FUNCTION

FUNCTION AMOUNT (P)
A = P + I
AMOUNT = A
END FUNCTION

46. Input amount, rate, time and display principal.

REM PROGRAM TO INPUT AMOUNT, RATE AND TIME AND DISPLAY PRINCIPAL
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
P = (100 * A) / (R * T + 100)
PRINT “PRINCIPAL AMOUNT=”; P
END

USING SUB PROCEDURE

DECLARE SUB PRINCIPAL (A, T, R)
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL PRINCIPAL(A, T, R)
END

SUB PRINCIPAL (A, T, R)
P = (100 * A) / (R * T + 100)
PRINT “PRINCIPAL AMOUNT=”; P
END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION PRINCIPAL (A, T, R)
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “PRINCIPAL AMOUNT=”; PRINCIPAL(A, T, R)
END

FUNCTION PRINCIPAL (A, T, R)
P = (100 * A) / (R * T + 100)
PRINCIPAL = P
END FUNCTION

47. Input simple interest, rate, time and display principal.

REM PROGRAM TO INPUT SIMPLE INEREST, RATE AND TIME AND DISPLAY PRINCIPAL
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
P = (100 * I) / (R * T)
PRINT “PRINCIPAL AMOUNT=”; P
END

USING SUB PROCEDURE

DECLARE SUB PRINCIPAL (I, T, R)
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL PRINCIPAL(I, T, R)
END

SUB PRINCIPAL (I, T, R)
P = (100 * I) / (R * T)
PRINT “PRINCIPAL AMOUNT=”; P
END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION PRINCIPAL (I, T, R)
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “PRINCIPAL AMOUNT=”; PRINCIPAL(I, T, R)
END

FUNCTION PRINCIPAL (I, T, R)
P = (100 * I) / (R * T)
PRINCIPAL = P
END FUNCTION

Comments

Blog27999 said…
According to Stanford Medical, It is really the SINGLE reason this country's women get to live 10 years more and weigh on average 42 lbs less than us.

(Just so you know, it is not related to genetics or some secret exercise and EVERYTHING about "how" they are eating.)

BTW, I said "HOW", and not "WHAT"...

CLICK this link to determine if this little quiz can help you release your real weight loss potential
February 28, 2020 at 4:42 AM
Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP
Read more

PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE NUMBERS

1. Enter any two numbers and display its sum. REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = A + B PRINT “SUM OF TWO NUMBERS”; S END USING SUB PROCEDURE DECLARE SUB SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B CALL SUM(A, B) END SUB SUM (A, B) S = A + B PRINT “SUM OF TWO NUMBERS”; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = SUM(A, B) PRINT “SUM OF TWO NUMBERS”; S END FUNCTION SUM (A, B) SU = A + B SUM = SU END FUNCTION 2. Enter any two numbers and display its difference. REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B D = A - B PRINT “DIFFERENCE OF TWO NUMBERS”; D END USING SUB PROCEDURE DECLARE SUB DIFF (A, B) CLS INPUT “ENTER FIRST NUM
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; N A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10
Read more