Geum.ru

Разработка программы "Калькулятор"

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

urrentFuncToScr;ClearCurrentFunc;,FParam,SParam: StrParam;: TMem;: set of char;: set of byte;: char;,Operation, i,j,Middle,Key: word;,SActive,Calculated: boolean;CheckOutPut (var Out: StrParam);: boolean;: =1;: =false;Pos (-,Out) =1) and

(Param0.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 do(x1,y1,x2,y2,Clip);;ClearOutPut;(OutXs+1,OutYs+1,OutXf-1,OutYf-1,true);;(0,0,GetMaxX,GetMaxY,true);;: =true;: =false;: =#0;: =DEC;: =false;: =0;: =0;: =;

enПриложение 2

 

Графический интерфейс программы

 

Рис.1. Графический интерфейс программы

 

Рис.2. Программа во время работы