(sum));
} - gt; Memo1- gt; Lines- gt; Add (//---------------------------------------------------------------------raquo;);-gt;Memo1-gt;Lines-gt;Add ( ); (j=0; j lt; l; j ++)
{= 0; (i=0; i lt; k; i ++) +=B [i] [j];=sum/n; - gt; Memo1- gt; Lines- gt; Add (? raquo ; + IntToStr (j + 1) + = + FloatToStr (sum));
}
}
{( B );
} ((s == false) amp; amp; (d == false)) - gt; Show ();
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N14Click (TObject * Sender)
{- gt; Memo1- gt; Lines- gt; Clear ();=(int **) calloc (n, sizeof (int *)); (i=0; i lt; n; i ++) [i] =(int *) calloc (m, sizeof (int));=false; (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{(Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1] == )=true ;;
} (s == false)
{(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; Memo1- gt; Lines- gt; Add ( ); - gt; Memo1- gt; Lines- gt; Add ( ); (i=0; i lt; n ; i ++)
{= 0; (j=0; j lt; m; j ++) +=A [i] [j];=sum/m; - gt; Memo1- gt; Lines- gt; Add ( + IntToStr (i + 1) + = + FloatToStr (sum));
} - gt; Memo1- gt; Lines- gt; Add (//------------------------------ ); - gt; Memo1- gt; Lines- gt; Add ( ); (j=0; j lt; m; j ++)
{= 0; (i=0; i lt; n; i ++) +=A [i] [j];=sum/n; - gt; Memo1- gt; Lines- gt; Add (? raquo ; + IntToStr (j + 1) + = + FloatToStr (sum));
} - gt; Show ();
}
{( A );
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N15Click (TObject * Sender)
{- gt; Memo1- gt; Lines- gt; Clear ();=(int **) calloc (k, sizeof (int *)); (j=0; j lt; k; j ++) [j] =(int *) calloc (l, sizeof (int)); - gt; Memo1- gt; Lines- gt; Add ( ); - gt; Memo1- gt; Lines- gt; Add ( raquo ;);=false; (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{(Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1] == )=true;
} (d == false)
{(i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1]);
} (i=0; i lt; k; i ++)
{= 0; (j=0; j lt; l; j ++) +=B [i] [j];=sum/l; - gt; Memo1- gt; Lines- gt; Add ( + IntToStr (i + 1) + = + FloatToStr (sum));
} - gt; Memo1- gt; Lines- gt; Add (//---------------------------------------------- ); - gt; Memo1- gt; Lines- gt; Add ( ); (j=0; j lt; l; j ++ )
{= 0; (i=0; i lt; k; i ++) +=B [i] [j];=sum/n; - gt; Memo1- gt; Lines- gt; Add (? raquo ; + IntToStr (j + 1) + = + FloatToStr (sum));
} - gt; Show ();
}
{( B );
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N5Click (TObject * Sender)
{- gt; Memo1- gt; Lines- gt; Clear (); (i=1; i lt; n + 1; i ++) (j=1; j lt; m + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [i]= raquo ;;
} (i=1; i lt; k + 1; i ++) (j=1; j lt; l + 1; j ++)
{- gt; StringGrid2- gt; Cells [j] [i]= raquo ;;
}-gt;Label12-gt;Caption=laquo;raquo;;-gt;Label13-gt;Caption=laquo;raquo;;-gt;Label14-gt;Caption=laquo;raquo;;-gt;Label15-gt;Caption=laquo;raquo;;-gt;Label12-gt;Visible=false;-gt;Label13-gt;Visible=false;-gt;Label14-gt;Visible=false;-gt;Label15-gt;Visible=false;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: BitBtn3Click (TObject * Sender)
{= (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]=rand ()% 100;
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [j + 1] [i + 1]=IntToStr (A [i] [j]);
}=(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]=rand ()% 100;
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{- gt; StringGrid2- gt; Cells [j + 1] [i + 1]=IntToStr (B [i] [j]);
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N9Click (TObject * Sender)
{= (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]=rand ()% 100;
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [j + 1] [i + 1]=IntToStr (A [i] [j]);
}=(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 ...
