{ GULSNEE.PAS : Bepaling gulden snede

  J R Ferguson 15-4-'86
}

program guldensnede(output);

const
  eps    = 1.0e-8;

var
  t0, t1, t2 : integer;
  s0, s      : real;

begin
  writeln;
  writeln('= BENADERING GULDEN SNEDE =');
  writeln;

  t1:= 1; t2:= 1;
  s:= 1.0;
  repeat
    t0:= t1; t1:= t2; t2:= t0+t1;
    s0:= s; s:= t1/t2;
    writeln(t1:5,' : ',t2:5,' = ',s:9:8)
  until abs(s-s0) < eps
end.