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

end;

if desktop^.execview(inputwindow)=cmok then

begin{водим элементы матрицы в окне }

inputwindow^.getdata(data);

val(data.col,n,s_i);

val( data.row,m,s_j);

dispose(inputwindow,done);

for i:=1 to N do

for j:=1 to M do

begin

str(i,t);

str(j,s);

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

inputwindow:=new(pinputwindow, Init(r, 'Ввод элемента матрицы'));

with inputwindow^ do

begin

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

Insert(New(PLabel, Init(r, 'Элемент матрицы'+'['+t+','+s+']', c)));

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

Insert(New(PInputLine, Init(r,4)));

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

Insert(New(PButton, Init(r, 'OK', cmOk, bfdefault)));

end;

if desktop^.execview(inputwindow)=cmok then

begin{заносим в матрицу Mxx значения }

inputwindow^.getdata(data);

val(data.col,a,s_i);

Mxx[i,j]:=a;

dispose(inputwindow,done);