home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / c / c_tutor / examples / interest < prev    next >
Encoding:
Text File  |  1992-11-14  |  3.2 KB  |  101 lines
  1. /*
  2. amount = starting balance
  3. balance = remaining balance
  4. rate = interest rate per period
  5. rate1 = interest rate per year
  6. payment = monthly payment
  7. principal = payment to principle
  8. interest = payment of interest per period
  9.  
  10. *******************************************************/
  11. /*              declare variables               */
  12.  
  13.         float amount;
  14.         float balance =0;
  15.         float rate1;
  16.         float rate;
  17.         float payment;
  18.         float principal = 0;
  19.         float interest = 0;
  20.  
  21. /*      **************************      */
  22. #include "stdio.h"
  23.                 FILE *outfile, *fopen(), *fclose();
  24.  
  25. interest1()     /* call compute and print results       */
  26.  
  27. {
  28.                 static char out_name[]="amortize.txt";
  29.  
  30.                 outfile = fopen(out_name,"w");
  31.                         if(outfile == NULL)
  32.                                 printf("cant open amortize.txt\n");
  33.         
  34.                 balance = amount;
  35.                 int x =0;
  36.  
  37.                 printf(" payment   interest   principal   balance\n");
  38.                 fprintf(outfile," payment   interest   principal   balance\n");
  39.  
  40.         while (balance >0)      /* call compute and print results */
  41.                 {
  42.                 compute();
  43.                 printf("%8.2f  %8.2f  %8.2f    %8.2f   %d\n",payment, interest,
  44.                                                                                          principal, balance, ++x);
  45.                 fprintf(outfile,"%8.2f  %8.2f  %8.2f    %8.2f   %d\n",payment, interest,
  46.                                                                                          principal, balance,x);
  47.                 line();
  48.                 
  49.                         if (x%12 ==0)   /* pause every 12 payments  */
  50.                                 {
  51.                                 printf("press return ");
  52.                                 getchar();
  53.                                 }
  54.  
  55.                 }
  56.  
  57.         fclose(outfile);
  58.         printf("Done. The results have been saved in a file named %s\n",out_name);
  59.  
  60. }
  61.  
  62.  
  63. /*              compute balance         */
  64.         compute()
  65.                 {
  66.  
  67.                 if (balance > payment)
  68.                         {
  69.                         interest = balance * rate;
  70.                         principal = payment - interest;
  71.                         balance = balance - principal;
  72.                         return (interest);
  73.                         return (principal);
  74.                         return (balance);
  75.                         }
  76.                 else
  77.                         {
  78.                         interest = balance * rate;
  79.                         payment = balance + interest;
  80.                         principal = payment - interest;
  81.                         balance = balance - principal;
  82.                         return (interest);
  83.                         return (payment);
  84.                         return (principal);
  85.                         return (balance);
  86.                         }
  87.                 }
  88.  
  89.  
  90. line()
  91.         {
  92.         int x = 0;
  93.                 while (x++<=78)
  94.                         {
  95.                         printf("-");
  96.                         fprintf(outfile,"-");
  97.                         }
  98.         putchar('\n');
  99. fprintf(outfile,"\n");
  100.         }
  101.