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.