Boolean;: Integer;:=False;:=Length (ZR.I); len=0 then Exit; len=1 thenZR.I [0]=9 then Result:=True ;;; ZR.I [High (ZR.I)]=9 then begin Result:=True; Exit; end; (ZR.I [High (ZR.I)]=1) and (ZR.I [High (ZR.I) - 1]=0) then Result:=True ;; IsIn999_1000 (const ZR: ZReal): Boolean;, k: Integer;:=False;:=Length (ZR.I); len lt; 3 then Exit; len=3 then (ZR.I [0]=ZR.I [2]) and (ZR.I [0]=ZR.I [1]) and (ZR.I [0]=9) then Result:=True ;;;:=High (ZR.I); (ZR.I [k - 2]=9 ) and (ZR.I [k - 1]=9) and (ZR.I [k]=9) thenResult:=True; Exit; end; (ZR.I [k]=1) and (ZR.I [k - 1]=0) and (ZR.I [k - 2]=0) and (ZR.I [k - 3]=0 ) then Result:=True ;; IsIn99999_100000 (const ZR: ZReal): Boolean; len, k, i: Integer;:=False;:=Length (ZR.I); len lt; 4 then Exit; len=4 theni: =0 to len - 1 do (ZR.I [i] lt; gt; 9) then Exit;:=True ;;;:=High (ZR.I); ZR.I [k]=9 theni:=1 to 4 doZR.I [ki] lt; gt; 9 then Exit ;;:=True ;;; ZR.I [k]=1 theni:=1 to 5 doZR.I [ki] lt; gt; 0 then Exit ;;:=True ;;;; DelArrElem (var A: TDynArrZR; Index: Integer);
var: Integer ;: Integer;
begin:=High (A); Index lt; n theni:=Index to n - 1 do [i]:=A [i + 1] ;; (A, n - 1) ;;; squeezeArea (const ZR:ZReal): ZReal ;: ZReal;: Cardinal ;: Int64 ;: Boolean;:=ZR;:=MaxZNCount;:=HighDeciZR (ZR, bool) .E; exp gt; 1 000 then exp:=1000; exp gt; 0MaxZNCount: =MaxZNCount + exp + 2 MaxZNCount:=MaxZNCount + 2; MoreThanZR (AbsZR (Result), Pi_ZR) do:=DivZR(Result,PiMult2_ZR);:=ZRToLongInt(ZR0);:=MultZR(PiMult2_ZR,ZR0);:=SubZR(Result,ZR0);;:=BakMaxZNCount;;_CosZR(const ZR: ZReal): ZReal;
var, ZR1, ZR2, ZR3, ZR4: ZReal;
BakMaxZNCount: Cardinal ;: Boolean;, j: Integer ;: Integer;:=MaxZNCount;:=MaxZNCount + 3;:=OneZR; :=SqrZR (ZR);:=ZR0;:=HighDeciZR (ZR0, bool) .E; :=j-MaxZNCount + 2;:=0; :=OneZR; (j gt; iExp) do:=j-iExp + 2; :=MultZR (ZR4, InvertUnaryZR (ZR1)); (i);:=MultZR (ZR2, IntToZR (i)); (i);:=MultZR (ZR2, IntToZR (i)); :=DivZR (ZR1, ZR2);:=HighDeciZR (ZR3, bool) .E; :=BakMaxZNCount + 2;:=SumZR (ZR0, ZR3) ;;:=ZR0;:=BakMaxZNCount ;;:=HighDeciZR (ZR0, bool) .E; :=j-MaxZNCount + 2; :=1; :=OneZR; (j gt; iExp) do:=j-iExp + 2;
ZR1:=MultZR (ZR4, InvertUnaryZR (ZR1));
Inc (i);:=MultZR (ZR2, IntToZR (i)); (i);:=MultZR (ZR2, IntToZR (i)); :=DivZR (ZR1, ZR2);:=HighDeciZR (ZR3, bool) .E; :=BakMaxZNCount + 2;:=SumZR (ZR0, ZR3) ;;:=ZR0;:=BakMaxZNCount ;; Func (Const arg: ZReal; out F: ZReal; Const Ind: ShortInt); ind of
: F:=_ CosZR (arg);
: F:=_ SinZR (arg) ;; ; TrimLeftZR (var Arr: TZN): Boolean;
i: Integer;:Integer;:Integer;
begin:=False;:=Length (Arr);
nzero:=0; i:=lenN - 1 downto 0 do
beginArr [i]=0 then Inc (nzero) Break; ; nzero gt; 0 thenlenN=nzero then Dec (nzero); (Arr, lenN-nzero); lenN gt; 1 then Result:=True ;;; TrimRightZR (var ZR: ZReal): Shortint;
var: Integer;:Integer;:Integer;
begin:=0;:=Length (ZR.I);:=0; i:=0 to lenN - 1 doZR.I [i]=0 then Inc (nzero) Break; ; nzero=lenN then begin Result:=1; ZR:=DefaultZR; ; ; nzero gt; 0 thenZR.E gt; 0 then (High (Int64) -ZR.E) lt; nzero then begin Result:=- 1; Exit; end; i:=0 to lenN-nzero - 1 do.I [i]:=ZR.I [i + nzero]; ; (ZR.I, lenN-nzero);
ZR.E:=ZR.E + nzero;
Result:=1 ;;; LengthZR (var ZR: ZReal): Cardinal;:Int64;: Boolean;:=0; ZR.U= - then Inc (Result); RealTypeShow then:=HighDeciZR (ZR, isInf) .E; not isInf then:=Length (ZRToStr (ZR)); ;;; ZR.E lt; gt; 0 then:=Result + Length (IntToStr (ZR.E)) + 1; ZR.E gt; 0 then Result:=Result + 1 ;;:=Result + Length (ZR.I ) ;; RefreshZR (var ZR: ZReal): ZReal; (ZR.I); (ZR);:=ZR ;; AbsZR (const ZR: ZReal): ZReal;:=ZR; Result.U= - raquo ; then begin Result.U:= + raquo ;; Exit; end; Result.U= i then begin Result.U:= I raquo ;; Exit; end ;; EpsilonZR: ZReal;: TZN; .E:=ZeroZNExp; .U:= + raquo ;;. R:=decimal; (zArr, 1); [0]:=1; .I:=zArr ;; OneDivZR (const ZR: ZReal): ZReal;:=DivZR (OneZR, ZR) ;; PercentZR (const Percent: ZReal; const ZR: ZReal): ZReal ;: =DivZR (Percent, StrToZR ( 100 ));:=MultZR (Result, ZR) ;; MinExtendedZR: ZReal;.R:=Decimal;
Result.E:=- 4 933; .U:= + raquo ;;
SetLength (Result.I, 2);.I [0]:=4; .I [1]:=3 ;; EqvToZR (const WhatZR: ZReal; const ToZR: ZReal): Boolean;:=ComparisonZR (WhatZR, ToZR)=0;.
Додаток В
Опис програми UA.ОМК.620111-0513
ЗМІСТ
1. Загальні Відомості
2. Функціональне призначення
. Виклик и завантаження
. Вхідні дані
. Вихідні дані
ЗАГАЛЬНІ ВІДОМОСТІ
Розроблення програмний продукт функціонує в операційних системах Microsoft © Windows XP/2003/2008/7/8.1. Для коректної роботи програми та патенти мінімум 256 МБ оператівної пам яті та процесор з часто...
