)=true;
} ((her == false) amp; amp; (het == false))
{= (int **) calloc (n, sizeof (int *)); (i=0; i lt; n; i ++) [i]=(int *) calloc (m, sizeof (int)); (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1]);
} - gt; Caption= + IntToStr (m) + x + IntToStr (n); - gt; StringGrid1- gt; RowCount=m + 1; - gt; StringGrid1- gt; ColCount=n + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; m + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; n + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (A [i] [j]);
} - gt; Show ();=(int **) calloc (k, sizeof (int *)); (i=0; i lt; k; i ++) [i]=(int *) calloc (l , sizeof (int)); (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1]);
} - gt; Caption= + IntToStr (l) + x + IntToStr (k); - gt; StringGrid1- gt; RowCount=l + 1; - gt; StringGrid1- gt; ColCount=k + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; l + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; k + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (B [i] [j]);
} - gt; Show ();
}
{( !!! );
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: n3Click (TObject * Sender)
{her=false; (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{(Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1] == )=true;
} (her == false)
{= (int **) calloc (n, sizeof (int *)); (i=0; i lt; n; i ++) [i]=(int *) calloc (m, sizeof (int)); (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1]);
} - gt; Caption= + IntToStr (m) + x + IntToStr (n); - gt; StringGrid1- gt; RowCount=m + 1; - gt; StringGrid1- gt; ColCount=n + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; m + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; n + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (A [i] [j]);
} - gt; Show ();
}
{( !!! );
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N10Click (TObject * Sender)
{het=false; (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{(Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1] == )=true;
} (het == false)
{= (int **) calloc (k, sizeof (int *)); (i=0; i lt; k; i ++) [i]=(int *) calloc (l, sizeof (int)); (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1]);
} - gt; Caption= + IntToStr (l) + x + IntToStr (k); - gt; StringGrid1- gt; RowCount=l + 1; - gt; StringGrid1- gt; ColCount=k + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; l + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; k + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (B [i] [j]);
} - gt; Show ();
}
{( !!! );
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N19Click (TObject * Sender)
{her=false; het=false; (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{(Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1] == )=true;
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{(Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1] == )=true;
} ((her == false) amp; amp; (het == false))
{= (int **) calloc (n, sizeof (int *)); (i=0; i lt; n; i ++) [i]=(int *) calloc (m, sizeof (int)); (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid1- gt; Cells [j + 1...
