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

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(37,6,45,7);

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

Insert(max); r.Assign(2,6,35,7);

Insert(New(PLabel, Init(r, 'Максимальное значение элемента', max)));

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

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

end;

if desktop^.execview(inputwindow)=cmok then

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

inputwindow^.getdata(data);

val(data.col,n,s_i);

val( data.row,m,s_j) ;

val(data.max,pred,s_pred) ;

for i:=1 to N do

for j:=1 to M do

begin

a:=random(pred)+1;

Mxx[i,j]:=a;

end;

mf:=true; {флаг ввода исходной матрицы }