home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / AMORT1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  789 b   |  39 lines
  1.                                     (* Chapter 14 - Program 1 *)
  2. program Amortization_Table;
  3.  
  4. var Month : 1..12;
  5.     Starting_Month : 1..12;
  6.     Balance : real;
  7.  
  8. procedure Initialize_Data;
  9. begin
  10.    Balance := 2500.0;
  11.    Starting_Month := 5;
  12. end;
  13.  
  14. procedure Print_Annual_Header;
  15. begin
  16.    Writeln('Annual header');
  17. end;
  18.  
  19. procedure Calculate_And_Print;
  20. begin
  21.    Balance := Balance - 100.0;
  22.    Writeln('The balance is ',Balance:8:2,' month ',Month:3);
  23. end;
  24.  
  25. procedure Print_Annual_Summary;
  26. begin
  27. end;
  28.  
  29. begin
  30.    Initialize_Data;
  31.    repeat
  32.      Print_Annual_Header;
  33.      for Month := Starting_Month to 12 do begin
  34.        Calculate_And_Print;
  35.      end;
  36.      Print_Annual_Summary;
  37.      Starting_Month := 1;
  38.    until Balance <= 0.0;
  39. end. (* of main program *)