p_0_1.pas

来自「Java写的词法/语法分析器。可生成JAVA语言或者是C++的词法和语法分析器。」· PAS 代码 · 共 29 行

{ 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.