| Class TCalculatePi (unit arctan) |
TObject
| Constructors |
constructor Create(SetPrecision: Integer);| Functions |
procedure ArcTan(Divisor: Integer);
destructor Destroy;
procedure Sum;
procedure Add;
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);| 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;