Pascal Implementation of the function value in the binary method

Returns the approximate value of a monotonic function on (a, B) using the bipartite method.

The expression in the eighth row can be changed. The accuracy is determined by the kexi in the third row. A small value can be used to increase the extended value of the fifth row to real or double.

Program equantion (input, output );

Const

Kexi = 0.0000001;

VaR

A, B, C: extended;

Function FX (X: Extended): extended;

Begin

FX: = ln (X)/ln (2 );

End;

Begin

Writeln ('Please input a and B ', 'produced by chaos ')

Read (A, B );

C: = (a + B)/2;

If FX (c) = 0

Then writeln ('X = ', c)

Else repeat

If FX (a) * FX (c) <0

Then B: = C

Else A: = C;

Until ABS (a-B) <kexi;

If FX (c) <> 0

Then writeln ('X = ', );

End.