File: P_0_1.PAS

package info (click to toggle)
antlr 2.7.7%2Bdfsg-14
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 10,016 kB
  • sloc: java: 54,649; cs: 12,537; makefile: 8,854; cpp: 7,359; pascal: 5,273; sh: 4,333; python: 4,297; lisp: 1,969; xml: 220; lex: 192; ansic: 127
file content (28 lines) | stat: -rw-r--r-- 507 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
{ program 0.1
  assuming annual inflation rates of 7, 8, and 10 per cent,
  find the factor by which the frank, dollar, pound
  sterlinh, mark, or guilder will have been devalued in
  1, 2, ... n years.}

program inflation(output);

const
  n = 10;
var
  i : integer;
  w1, w2, w3 : real;

begin
  i := 0;
  w1 := 1.0;
  w2 := 1.0;
  w3 := 1.0;

  repeat
    i := i + 1;
    w1 := w1 * 1.07;
    w2 := w2 * 1.08;
    w3 := w3 * 1.10;
    writeln(i, w1, w2, w3);
  until i=n
end.