Class TCalculatePi (unit arctan)

Inherits from

TObject

Constructors


constructor Create(SetPrecision: Integer);



Functions

procedure ArcTan(Divisor: Integer);


destructor Destroy;


procedure Sum;


procedure Add;

Note: The checks in the while loops in the next three functions on the index > 0 is probably superflous

procedure Divide(Divisor: Integer);


procedure Multiply(Multiplier: Integer);


procedure ReadSource(FileName: string);


procedure SetUp(Divisor: Integer);


procedure Subtract;


procedure WriteSource(FileName: string; Divisor, Iterations: Integer);

Yes, I admit it, I was incredibly lazy here, but it works.

Properties

Events

Variables

precision : Integer;


vm : PTByte;


vn : PTByte;



Constructors


constructor Create(SetPrecision: Integer);


Functions


procedure ArcTan(Divisor: Integer);


destructor Destroy;


procedure Sum;


procedure Add;

Note: The checks in the while loops in the next three functions on the index > 0 is probably superflous


procedure Divide(Divisor: Integer);


procedure Multiply(Multiplier: Integer);


procedure ReadSource(FileName: string);


procedure SetUp(Divisor: Integer);


procedure Subtract;


procedure WriteSource(FileName: string; Divisor, Iterations: Integer);

Yes, I admit it, I was incredibly lazy here, but it works.


Properties


Events


Variables


precision : Integer;


vm : PTByte;


vn : PTByte;