program CallExponent;
{программа вычисляет значение константы e путём
 решения дифференциального уравнения y'=y, y(0)=1}
uses
  RungeKutta;
 
function Equation(x,y:extended):extended;
begin
  Result:=y
end;
 
begin
  WriteLn(GetSolutionAtPoint(1,0.001,0,1,Equation)) 
  // 2.71828182845902
  // погрешность в 14-ом знаке после запятой
end.

GetScPref(0.00017,0,'Ф');//=170 мкФ
GetScPref(1e20,0,'Дж');//=100 ЭДж
GetScPref(0.19856,2,'г');//=198,56 мг
GetScPref(0.19856,1,'г');//=198,6 мг
{-----------------}
GetCompPref(100000000,2);//=95,37 МиБ
GetCompPref(1000,2);//=0,98 КиБ

uses
  Math, SysUtils;
 
function GetScPref(v:extended;n:byte;meas:string):string;
var
  t:integer;
const
  pref:array[-8..8] of string=

unit BynaryFind;
 
{Будьте внимательны при использовании границ поиска по умолчанию, поскольку
использованы максимальное и минимальное возможные значения переменной типа
Extended, и если для

unit SubRosa;
 
{
+----------------------+
|Примеры использования:|
+----------------------+------------------------+
|...                                            |
|  Write('Введите старый пароль: ');            |

unit ZipCode;
 
interface
 
uses
  Math, Graphics;
 
/// <summary>
///   Вывод на канву почтового индекса
/// </summary>
/// <param name="Canvas:TCanvas">
///   Указатель на экземпляр класса TCanvas, на