home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pascal / pascsrc.arc / AMORT1.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  723b  |  38 lines
  1. program Amortization_Table;
  2.  
  3. var Month : 1..12;
  4.     Starting_Month : 1..12;
  5.     Balance : real;
  6.  
  7. procedure Initialize_Data;
  8. begin
  9.    Balance := 2500.0;
  10.    Starting_Month := 5;
  11. end;
  12.  
  13. procedure Print_Annual_Header;
  14. begin
  15.    Writeln('Annual header');
  16. end;
  17.  
  18. procedure Calculate_And_Print;
  19. begin
  20.    Balance := Balance - 100.0;
  21.    Writeln('The balance is ',Balance:8:2,' month ',Month:3);
  22. end;
  23.  
  24. procedure Print_Annual_Summary;
  25. begin
  26. end;
  27.  
  28. begin
  29.    Initialize_Data;
  30.    repeat
  31.      Print_Annual_Header;
  32.      for Month := Starting_Month to 12 do begin
  33.        Calculate_And_Print;
  34.      end;
  35.      Print_Annual_Summary;
  36.      Starting_Month := 1;
  37.    until Balance <= 0.0;
  38. end. (* of main program *)