.


- 4


(');

writeln(aa:1:0, ',', bb:2:0, ')');

writeln(' ', func(x):6:12);

writeln(' ', x:6:12)

end.

. , x. , . :

{ . }

{ approach - }

Procedure approach(a, b : real; n : integer; var x2, y2 : real);

begin

x2 := a + (b - a)*fib(n - 1)/fib(n);

y2 := func(x2)

end;

, :

{ }

Program Minimumfib;

uses WinCrt;

label 1;

var

a, aa, bb, x, b, x1, x2, y1, y2, e : real;

n : integer;

{----------------------------------------------------------------------------------------}

{ }

Function func(x : real) : real;

begin

func := x*x*x*x - 14*x*x*x + 60*x*x - 70*x

end;

{----------------------------------------------------------------------------------------}

{ 蠠 }

Function fib(n : integer) : real;

var

f, f1, f2 : real;

i : integer;

begin

f1 := 1; f := 0;

for i := 1 to n do

begin

f2 := f1;

f1 := f;

f := f1+f2

end;

fib := f

end;

{----------------------------------------------------------------------------------------}

{ .