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

insert(new(pstatictext,init(r,'Рабочая матрица:')));

for i:=1 to n do

begin

for j:=1 to m do

begin

str(mxx[i,j],sr);

r.assign(1+j*4,1+i,4+j*4,3+i);

insert(new(pstatictext,init(r,sr))); {выводим матрицу }

end;

end;

r.assign(2,i+2,70,4+i); insert(new(pstatictext,init(r,'_____________________________________________')));

end;

end;

{_______________________________________________}

procedure tmatrix.initmenubar; {Инициализация панели меню }

var

r:trect;

begin

getextent(r);

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

menubar:=new(pmenubar,init(r,newmenu(

newsubmenu('Ввод',hcnocontext,

newmenu(

newitem('Ручной','F3', kbf3,cmvvod,hcnocontext,

newitem('Автоматический','F4',kbf4,cmvval,hcnocontext,

newitem('Из файла','F7',kbf7,cmisfl,hcnocontext,

newline(

newitem('Выход','Alt+X',kbaltx,cmquit,hcnocontext,nil)))))),

newsubmenu('Результат',hcnocontext,