home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG003.ARC / JRTPAS-1.LBR / JRT3.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  512b  |  21 lines
  1. {Program 0.1
  2. assuming annual inflation rates of 7, 8, and 10 per cent,
  3. find the factor by which the frank, dollar, pound sterling,
  4. mark, or guilder will have been devalued in 1, 2, ... n years.}
  5.  
  6. Program inflation;    
  7.  
  8. const    n = 10;
  9. var    i : integer;
  10.     w1, w2, w3 : real;
  11.  
  12. begin
  13.     i := 0; w1 := 1.0; w2 := 1.0; w3 := 1.0;
  14.     repeat    i := i + 1;
  15.         w1 := w1 * 1.07;
  16.         w2 := w2 * 1.08;
  17.         w3 := w3 * 1.10;
  18.         writeln( i, w1, w2, w3 )
  19.     until    i = n
  20. end.
  21.