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 :: N13Click (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 ()% 10;
} (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 ()% 10;
} (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 :: N12Click (TObject * Sender)
{= (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 ()% 10;
} (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 :: N11Click (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 ()% 10;
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [j + 1] [i + 1]=IntToStr (A [i] [j]);
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N6Click (TObject * Sender)
{- gt; ComboBox1- gt; ItemIndex=- 1; - gt; ComboBox2- gt; ItemIndex=- 1; - gt; ComboBox3- gt; ItemIndex=- 1; - gt; ComboBox4- gt; ItemIndex=-1; - gt; Timer1- gt; Enabled=true; - gt; Button1- gt; Visible=false; - gt; Close (); - 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;-gt;BitBtn3-gt;Visible=false;-gt;BitBtn4-gt;Visible=false;-gt;BitBtn5-gt;Visible=false;-gt;BitBtn6-gt;Visible=false;-gt;StringGrid1-gt;Visible=false;-gt;StringGrid2-gt;Visible=false;-gt;Label10-gt;Visible=false;-gt;Label11-gt;Visible=false;-gt;N8-gt;Enabled=false;-gt;N2-gt;Enabled=false;-gt;N7-gt;Enabled=true;-gt;BitBtn2-gt;Visible=true;-gt;ComboBox1-gt;Visible=true;-gt;ComboBox2-gt;Visible=true;-gt;ComboBox3-gt;Visible=true;-gt;ComboBox4-gt;Visible=true;-gt;Label13-gt;Visible=true;-gt;Label14-gt;Visible=true;-gt;Label9-gt;Visible=true;-gt;Label3-gt;Visible=true;-gt;Label4-gt;Visible=true;-gt;Label5-gt;Visible=true;-gt;Label6-gt;Visible=true;-gt;Label7-gt;Visible=true;-gt;Label8-gt;Visible=true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: StringGrid1KeyPress (TObject * Sender, char amp; Key)
{(Key == laquo ;! ) Key=0; (Key == ~ ) Key=0; (Key == @ ) Key=0; (Key == # ) Key=0; (Key == $ ) Key=0; (Key == % ) Key=0; (Key == ^ ) Key= 0; (Key == amp; ) Key=0; (Key == * ) Key=0; (Key == () Key=0; (Key == laquo ;) ) Key=0; (Key == - ) Key=0; (Key == _ ) Key=0; (Key == =) Key=0; (Key == + ) Key=0; (Key == " ) Key=0; (Key == ? ) Key=0; (Key == laquo ;; raquo ;) Key=0; (Key == laquo ;: ) Key=0; (Key == laquo ;? ) Key=0; (Key == {) Key=0; (Key == } ) Key=0; (Key == [) Key=0; (Key == ] ) Key=0; (Key == ) Key =0; (Key == , ) Key=0; (Key == laquo ;. ) Key=0; (Key == lt; ) Key=0; (Key == gt; ) Key=0; (Key == /) Key=0; (Key == | ) Key=0; (Key == /) Key =0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == laquo ;? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0 ; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == laquo ;? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; ( Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key==? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key=0; (Key == ? ) Key =0; (Key == ? ) Key=0; (Key ...
