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

enablecommands(wincoml);

tmatrix.printmatrix; {выводим рабочую матрицу }

end;

end;

{_______________________________________________}

procedure tmatrix.InputMatrix; {Ручной ввод матрицы }

var

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

a:integer;

r:trect;

col,row,c: PInputLine;

inputwindow,inputw:pinputwindow;

s,t:string;

begin

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

inputwindow:=new(pinputwindow, Init(r, 'Ручной ввод'));

with inputwindow^ do

begin{выводим модальное окно, в котором вводим количество строк, столбцов }

r.Assign(37,2,45,3);

col:=New(PInputLine, Init(r,4));

Insert(col);

r.Assign(2,2 , 35,3);

Insert(New(PLabel, Init(r, 'Количество строк матрицы', col)));

r.Assign(37,4,45,5);

row:=New(PInputLine, Init(r,4));

Insert(row);

r.Assign(2,4,35,5);

Insert(New(PLabel, Init(r, 'Количество столбцов матрицы', row)));

r.Assign(19,8,32,10);