write the qbasic program of simple interest using rem, input, print statement:[hint :S. I=PNR/100
Answers
Answer:
Arduino IDE , Q basic , Coder , etc ....
Answer:
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
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
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
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
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
Explanation:
pls mark me as the brainliest