VIRTUALeMEDIA SOFTWARE AND TECHNOLOGY

WWW.VIRTUALeMEDIA.COM

CONTACT US | HOMEPAGE

VIRTUALeMEDIA TECHNOLOGY

CLOTHING :: ELECTRONICS :: HARDWARE :: GIFTS :: BOOKS :: FINANCE :: SOFTWARE :: EMPLOYMENT :: VIRTUAL OFFICES

COOL STUFF

TECHNOLOGY

LINKS

_________________________________________________________________________________________

___________________

Welcome to our website

{ THIS PROGRAM CALCULATES THE DETAILS OF A LOAN. }
{ THE INTEREST PAID EACH MONTH, THE AMOUNT OF }
{ MONEY APPLIED TO THE UNPAID BALANCE EACH MONTH, }
{ THE AMOUNT OF INTEREST PAID, THE AMOUNT OF THE }
{ REMAINING BALANCE, THE NUMBER OF PAYMENTS LEFT, }
{ AND THE AMOUNT OF THE LAST PAYMENT. }

PROGRAM loan(data,output);

VAR count : integer;
rate,pmt,princpl,intpd,princpd,totint : real;
unpdbal : real;

BEGIN { MAIN }
WHILE NOT EOF
DO BEGIN
totint := 0.0;
count := 0;
write( ' MONTH INTEREST PAID PRINCIPLE PAID ' );
writeln( ' TOTAL INTEREST UNPAID BALANCE ' );
readln(princpl,pmt,rate);
unpdbal := princpl;
WHILE ( unpdbal > 0 ) DO BEGIN
count := count + 1;
intpd := unpdbal * rate;
princpd := pmt * intpd;
totint := totint + intpd;
unpdbal := princpl - princpd;
writeln( count,intpd,princpd,totint,unpdbal );
END;
END;
END. { MAIN }