Реферат: Програмирование на языке Паскаль

newitem('Все подматрицы','F5', kbf5,cmvvse,hcnocontext,

newitem('По условию','F6',kbf6,cmvusl,hcnocontext,

newline(

newitem('Записать все','F7', kbf7,cmfilv,hcnocontext,

newitem('Записать по условию','F8',kbf8,cmfilu,hcnocontext,

nil)))))),

newitem('О программе','F1', kbf1,cmvhel,hcnocontext,nil))) )))

end;

{_______________________________________________}

procedure tmatrix.initstatusline; {Инициализация строки состояния }

var

r:trect;

begin

getextent(r);

r.a.y:=pred(r.b.y);

statusline:=new(pstatusline,init(r,newstatusdef(0,$ffff,newstatuskey('Alt+X-Выход',kbAltX, cmQuit,nil),nil)));

disablecommands(wincoml);

enablecommands(wincom2)

end;

{_______________________________________________}

procedure tmatrix.GetRandomMatrix; {Автоматический ввод матрицы }

var

i,j:integer;{счётчики }

a,pred,s_i,s_j,s_pred:integer;

r:trect; col,row,max: PInputLine;

inputwindow,inputw:pinputwindow;

begin

r.assign(15,5,65,16);

inputwindow:=new(pinputwindow, Init(r, 'Автоматический ввод'));