| 0,0 → 1,32 |
|---|
| // akPi v2.2 |
| // Copyright (c) 1997-98 Anatoli Klassen |
| |
| // Program to calculate Pi. |
| // It doesn't have any practical usage :) |
| // Maybe just to test computer speed or learn |
| // x86 assembler. |
| // Sure calculates right up to 100000 digits |
| // No guaranties |
| // Use it and its source code as you want. |
| |
| // Uses formula pi = 16 * arctg(1/5) - 4 * arctg(1/239) |
| // where arctg x = x - x^3/3 + x^5/5 - x^7/7 + ... |
| |
| program akPi; |
| |
| uses |
| Forms, |
| ShowUnit in 'ShowUnit.pas' {ShowForm}, |
| CalcUnit in 'CalcUnit.pas', |
| LongIntegerUnit in 'LongIntegerUnit.pas', |
| AboutUnit in 'AboutUnit.pas' {AboutBox}; |
| |
| {$R *.RES} |
| |
| begin |
| Application.Initialize; |
| Application.Title := 'akPi'; |
| Application.CreateForm(TShowForm, ShowForm); |
| Application.CreateForm(TAboutBox, AboutBox); |
| Application.Run; |
| end. |