Class TCalculatePi (unit arctan) |
Inherits from
TObject
constructor Create(SetPrecision: Integer);
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.
precision : Integer;
vm : PTByte;
vn : PTByte;
constructor Create(SetPrecision: Integer);
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.
precision : Integer;
vm : PTByte;
vn : PTByte;