delphi编程的一个小问题！！！

来源：百度知道 编辑：UC知道 时间：2024/05/04 16:53:50
我刚开始学DELPHI,老师让我编一个小程序，就是随机生成一个2个矩阵，就当是3*4和4*3的吧，让后让他们相乘，我怎么也弄不出来，感觉好多细节处理的都不对，都要哭了，知道不是很难，哪位高手GG能抽出5分钟帮助我下啊，谢谢你们了！！！PS：我不怎么知道DELPHI输出的东西在哪输，是必须得用一个按钮和一个EDIT控件，按按钮， 在EDIT控件里输出吗？
太感谢您了，我还有个问题，就是我打开界面都是以procedure开头的程序，这个开头是program ，我就不知道在哪里输了，麻烦你告诉我下呗，我邮箱tangyulong_520@126.com，请问您能不能把你的邮箱告诉我，我好请教您

///////////////////////////////////////////
// DELPHI也可以编字符模式下的程序,不需要可//
// 视化的控件。 //
////////////////////////////////////////////

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array[1..3,1..4]of integer;
b:array[1..4,1..3]of integer;
c:array[1..3,1..3]of integer;
i,j,k:integer;
begin
randomize;
//矩阵初始化
for i := 1 to 3 do
for j := 1 to 4 do
a[i][j]:=random(100);
for i := 1 to 4 do
for j := 1 to 3 do
b[i][j]:=random(100);
for i := 1 to 3 do
for j := 1 to 3 do
c[i][j]:=0;

//矩阵相乘
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 4 do
c[i][j]:=c[i][j]+a[i][k]*b[k][j];

//输出结果矩阵
for i := 1 to 3 do
begin
for j := 1 to 3 do write(a[i][j],' ');
writeln;
end;

end.