;0'); (true);; AddToOutPut (Param: string);: string;; FActive of: beginSysCount = Dec thenPos ('E', FParam) <> 0 then FParam: = '0 ';: = FParam + Param; (FParam);;: beginSysCount = Dec thenPos (' E ', SParam) <> 0 then SParam: = '0 ';: = SParam + Param; (SParam);;;;; AddDelMines (var Param: StrParam); (Length (Param)> = 1) and
(Param <> '0 ') and (Param <> '0 .0') thenPos ('-', Param) = 0 then: = '-' + Param; (Param); (Param); else (Param, 1,1); (Param); (Param);;; SetPlusMines; FActive of: AddDelMines (FParam);: AddDelMines (SParam);;; ClearCurrentFunc;: ViewPortType; (ViewPort); (OutXs +1, OutYs +6, OutXf-20-Middle, OutYs +14, true);; ViewPort do (x1, y1, x2, y2, Clip);; CurrentFuncToScr;: ViewPortType;
{if CurrentFunc = # 0 then exit;} (ViewPort);
{**************} TextWidth (FParam)> TextWidth (SParam) then: = TextWidth (FParam) Middle: = TextWidth (SParam);
{**************} (OutXs +1, OutYs +6, OutXf-30-Middle, OutYs +14, true);;
{**************} (OutXf-OutXs-40-Middle, 5, CurrentFunc);
{**************} ViewPort = True;: = false;: = # 0;: = DEC;: = false;: = '0 ';: = '0';: ='';
en Додаток 2
Графічний інтерфейс програми
В
Рис.1. Графічний інтерфейс програми
В
Рис.2. Програма під час роботи
