Umiestnenie súboru www.TrSek.com/pas/use_bn.pas

program cislo;
uses crt,math;

var a,b: infinity;
  znova: boolean;

begin
  clrscr;
  randomize;

{ Sinus velkeho cisla }
{
  a.init('9928497293881');
  a.ScroolBarInit(2,20,70);
  a.Sin;

  writeln;
  writeln('=');
  a.writeln(BN_INFINITY, BN_INFINITY);
}

{ Sucet dvoch cisel zadanych v programe }
{
  a.init('1234567890123456789012345678901234567890');
  b.init('999999999999999999999');

  a.copy_real(0.00918237/1E+32);
  b.copy_int(-1234567890);
}

{ Rozne matematicke operacie cisel zadanych z klavesnice }
  clrscr;
  write('Zadaj a = ');
  a.readln;

  write('Zadaj b = ');
  b.readln;

  write('Zadaj znamienko (+,-,*,/,!) = ');
  znova:=true;
  while(znova) do begin
    znova:=false;
    case (readkey) of
     '+': a.plus (b);
     '-': a.minus(b);
     '*': a.multiply(b);
     '/': a.divide(b);
     '!': a.factorial;
    else  znova:=true;
    end;
  end;

  writeln;
  writeln('=');
  a.writeln(BN_INFINITY,BN_INFINITY);
  readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com