Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!watmath!clyde!floyd!harpo!decvax!cca!ima!inmet!andrew From: andrew@inmet.UUCP Newsgroups: net.misc Subject: Re: Re: Calculating loan payments - (nf) Message-ID: <986@inmet.UUCP> Date: Sun, 4-Mar-84 00:01:24 EST Article-I.D.: inmet.986 Posted: Sun Mar 4 00:01:24 1984 Date-Received: Tue, 6-Mar-84 02:29:09 EST Lines: 35 #R:inmet:6400096:inmet:6400097:000:804 inmet!andrew Mar 1 12:07:00 1984 main(argc, argv) /* Calculate loan payments */ int argc; char *argv[]; { float loan_amount, yearly_rate; double monthly_rate, x, y; int term_years, term_months, i; long payment; if (argc < 3) { printf("usage: %s amount($) rate(%%) years\n", argv[0]); return; } sscanf(argv[1], "%f", &loan_amount); sscanf(argv[2], "%f", &yearly_rate); sscanf(argv[3], "%d", &term_years); monthly_rate = yearly_rate / 1200.; term_months = term_years * 12; x = 1.0; for (i = 1; i <= term_months; ++i) x = x * (1.0 + monthly_rate); y = (loan_amount * monthly_rate * x) / (x - 1); payment = ((long) (y * 100. + 0.5)); printf("Amount: $%.2f\nAPR: %.3f%%\nTerm: %d years", loan_amount, yearly_rate, term_years); printf("\n\n%d monthly payments of $%.2f \n", term_months, payment / 100.); }