在 Pascal 中将数组打印为 ArrayType

问题描述

这个程序应该对一个数组进行排序并用从 1 到 1000 的随机整数填充它。它需要找到最大值并打印该数组。它应该以两种方式打印数组：ARRAY OF INTEGER 和 ArrayType。我需要帮助在 ArrayType 中打印此数组。我对 Pascal 不是很熟悉，我的任务是用 ArrayType 作为参数打印这个数组。这是我到目前为止的代码：

PROGRAM Sortingalgorithm;

Var intArray : array[1..20] OF INTEGER;
Var i,j,index : INTEGER;

PROCEDURE Sort(intArray : ARRAY OF INTEGER; size : INTEGER);
BEGIN
   FOR i := 2 to 20 do
   BEGIN
      index := intArray[i];
      j := i;
      WHILE ((j > 1) AND (intArray[j-1] > index)) do
      BEGIN
         intArray[j] :=intArray[j-1];
         j := j - 1;
      END;
      intArray[j] := index;
   END;
END;

PROCEDURE fillArray(var a,b : integer);
VAR temp : INTEGER;
BEGIN
    temp := a;
    a := b;
    b := temp;
END;
BEGIN
  FOR i := 1 to 20 do
    intArray[i] := i;
  FOR i := 1 to 20 do
    fillArray(intArray[i],intArray[random(20)+1]);
END.

PROCEDURE findMax(intArray : ARRAY OF INTEGER; size : INTEGER);
VAR max : INTEGER;
begin
     max := 1;
     FOR i := 2 to size do
     BEGIN
         IF intArray[i] > intArray[max] THEN
         max:=i;
     END;
END;

PROCEDURE printArray(intArray : ARRAY OF INTEGER; size : INTEGER);
BEGIN
    FOR i := 1 to 20 do
        Writeln(intArray[i]);
END;

PROCEDURE printArray2();
BEGIN

END;


BEGIN
    fillArray (intArray);
    printArray (intArray);
    printArray2 (intArray);
    largestValue := findMax (intArray);
    WriteLn (‘The largest value is ‘,largestValue);
    sort (intArray);
    printArray (intArray);
END.

printArray2 用于 ArrayType 参数。这是我为该程序提供的所有信息，我不确定带有 ArrayType 参数的打印意味着什么。任何帮助表示赞赏。谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）