Pascal 矩阵乘法的完整过程?求Free Pascal 矩阵乘法的完整过程,标准的好了,不要花花绿绿的过程,最好关键步都有解释.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 19:13:42
Pascal矩阵乘法的完整过程?求FreePascal矩阵乘法的完整过程,标准的好了,不要花花绿绿的过程,最好关键步都有解释.Pascal矩阵乘法的完整过程?求FreePascal矩阵乘法的完整过程,

Pascal 矩阵乘法的完整过程?求Free Pascal 矩阵乘法的完整过程,标准的好了,不要花花绿绿的过程,最好关键步都有解释.
Pascal 矩阵乘法的完整过程?
求Free Pascal 矩阵乘法的完整过程,标准的好了,不要花花绿绿的过程,最好关键步都有解释.

Pascal 矩阵乘法的完整过程?求Free Pascal 矩阵乘法的完整过程,标准的好了,不要花花绿绿的过程,最好关键步都有解释.
program juzhen; var a,b,c:array[1..100,1..100] of integer; m,n,h,i,j,s,k:integer; begin write('m=');read(m); write('n=');read(n); write('h=');read(h); writeln('Input A:'); for i:=1 to m do for j:=1 to n do read(a[i,j]); writeln('Input B:'); for i:=1 to n do for j:=1 to h do read(b[i,j]); for i:=1 to m do for j:=1 to h do begin s:=0; for k:=1 to n do s:=s+a[i,k]*b[k,j]; c[i,j]:=s; end; writeln('C=A*B'); for i:=1 to m do begin for j:=1 to h do write(c[i,j]:4); writeln; end; 这只是我个人的程序,你们不可以抄来做回答,还有,一些细节可能会错,比如漏写分号,句号.问问你,你是不是参加4月份PASCAL比赛的选手,如果是的话,那就台上切磋切磋