RError.com

RError.com Logo RError.com Logo

RError.com Navigation

  • 主页

Mobile menu

Close
  • 主页
  • 系统&网络
    • 热门问题
    • 最新问题
    • 标签
  • Ubuntu
    • 热门问题
    • 最新问题
    • 标签
  • 帮助
主页 / 问题 / 1140095
Accepted
GrayMyDay
GrayMyDay
Asked:2020-06-12 19:34:07 +0000 UTC2020-06-12 19:34:07 +0000 UTC 2020-06-12 19:34:07 +0000 UTC

该过程返回一个空矩阵

  • 772

有一个带有程序的模块。MultXSq函数的工作方式很奇怪。在程序内部,它保存了最终矩阵的值\u200b\u200bin,里面有一个输出,一切都很好。但是在请求输出这个带有结果的矩阵时,会返回一个带有零的矩阵。

程序

uses UnitArray.

UnitArray in 'UnitArray.pas';

var
  masX1: TMatrix;
  masX2: TMatrix;
  masXRez: TMatrix;

begin
  AddRandomData(masX1);
  AddRandomData(masX2);
  print(masX1);
  writeln;
  print(masX2);

  MultXSq(masX1, masX2, masXRez); //умножение матриц, внутри процедуры матрица Z (третья) содержит значения
  writeln;
  print(masXRez); //уже пусто???
end.

模块

unit UnitArray;

interface

Const N = 3;
  M = 3;
Type TVector = array[1..N] of integer;
  TMatrix = array[1..M] of TVector;
Procedure AddRandomData(var X:TMatrix);
Procedure Print(const X:TMatrix);
Procedure MultXSq(var X:TMatrix; Y:TMatrix; Z:TMatrix);

implementation

 procedure Print(const X:Tmatrix); //вывод матрицы на экран
 var i,j:integer;
 begin
   for i := 1 to M do
   begin
     for j := 1 to N do 
       write(X[i,j]:3);
     writeln;
   end;
 end;

procedure AddRandomData(var X:TMatrix); //рандомим значения матрицы
 var i,j:integer;
 begin
  // randomize;
   for i := 1 to M do
     for j := 1 to N do
       X[i,j] := random(10);
 end;

Procedure MultXSq(var X:TMatrix; Y:TMatrix; Z:TMatrix);
var i,j,j2,sum: integer;
begin
  writeln;
  sum := 0;
  for i := 1 to M do
  begin
    for j2 := 1 to M do
    begin
      for j := 1 to M do
        sum := sum + X[i,j] * Y[j,j2];
    Z[i,j2] := sum; //сохраняем значение
    sum := 0;
    end;
 end;
writeln(Z); //вот тут выводится матрица нормально
end;

initialization
finalization
end.
функции
  • 1 1 个回答
  • 10 Views

1 个回答

  • Voted
  1. Best Answer
    Ainar-G
    2020-06-12T19:58:59Z2020-06-12T19:58:59Z

    好吧,您发送一份副本:

    Procedure MultXSq(var X:TMatrix; Y:TMatrix; Z:TMatrix);

    通过引用传递所有参数:

    PROCEDURE MultXSq(VAR X, Y, Z: TMatrix);
    • 0

相关问题

  • = function () {} 是什么意思?

  • Haskell:是否可以将长度为 n 的列表的元素应用于函数?

Sidebar

Stats

  • 问题 10021
  • Answers 30001
  • 最佳答案 8000
  • 用户 6900
  • 常问
  • 回答
  • Marko Smith

    如何从列表中打印最大元素(str 类型)的长度?

    • 2 个回答
  • Marko Smith

    如何在 PyQT5 中清除 QFrame 的内容

    • 1 个回答
  • Marko Smith

    如何将具有特定字符的字符串拆分为两个不同的列表?

    • 2 个回答
  • Marko Smith

    导航栏活动元素

    • 1 个回答
  • Marko Smith

    是否可以将文本放入数组中?[关闭]

    • 1 个回答
  • Marko Smith

    如何一次用多个分隔符拆分字符串?

    • 1 个回答
  • Marko Smith

    如何通过 ClassPath 创建 InputStream?

    • 2 个回答
  • Marko Smith

    在一个查询中连接多个表

    • 1 个回答
  • Marko Smith

    对列表列表中的所有值求和

    • 3 个回答
  • Marko Smith

    如何对齐 string.Format 中的列?

    • 1 个回答
  • Martin Hope
    Alexandr_TT 2020年新年大赛! 2020-12-20 18:20:21 +0000 UTC
  • Martin Hope
    Alexandr_TT 圣诞树动画 2020-12-23 00:38:08 +0000 UTC
  • Martin Hope
    Air 究竟是什么标识了网站访问者? 2020-11-03 15:49:20 +0000 UTC
  • Martin Hope
    Qwertiy 号码显示 9223372036854775807 2020-07-11 18:16:49 +0000 UTC
  • Martin Hope
    user216109 如何为黑客设下陷阱,或充分击退攻击? 2020-05-10 02:22:52 +0000 UTC
  • Martin Hope
    Qwertiy 并变成3个无穷大 2020-11-06 07:15:57 +0000 UTC
  • Martin Hope
    koks_rs 什么是样板代码? 2020-10-27 15:43:19 +0000 UTC
  • Martin Hope
    Sirop4ik 向 git 提交发布的正确方法是什么? 2020-10-05 00:02:00 +0000 UTC
  • Martin Hope
    faoxis 为什么在这么多示例中函数都称为 foo? 2020-08-15 04:42:49 +0000 UTC
  • Martin Hope
    Pavel Mayorov 如何从事件或回调函数中返回值?或者至少等他们完成。 2020-08-11 16:49:28 +0000 UTC

热门标签

javascript python java php c# c++ html android jquery mysql

Explore

  • 主页
  • 问题
    • 热门问题
    • 最新问题
  • 标签
  • 帮助

Footer

RError.com

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

帮助

© 2023 RError.com All Rights Reserve   沪ICP备12040472号-5