pascal 数组

Question

PROGRAM abc;
VAR
a:ARRAY[1..5]OF real;
temp:real;
i,j:integer;
PROCEDURE pl(temp:real;i,j:integer;a:ARRAY[i:interger]OF real);{系统检查到这行的【时提示：error 54：of expected 是什么问题？}另：我想知道在定义新过程时，参数表里数组怎么表示
BEGIN
FOR i:=1 TO 5 DO
read(a[i]);
FOR i:=1 TO 4 DO
FOR j:=1 TO 5-i DO
IF a[j]<a[j+1]
THEN BEGIN
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp
END;
FOR i:=1 TO 5 DO
write(a[i]);
readln
END;
BEGIN
pl;
END.

Answer 1

a:ARRAY[i:interger]OF real
首先 数组是不能像上面这样声明的 应该像你上上面那样
a:ARRAY[1..5]OF real;
其次 pascal的过程或函数的参数中不能声明一个数组
我们可以在程序一开始声明一个自定义类型
type arr=array[1..5] of real;
然后把参数声明为这个类型 如
procedure f(a:arr);

你的程序就变成这样了:

PROGRAM abc;
TYPE arr=array[1..5] of real;
VAR
a:ARRAY[1..5]OF real;
temp:real;
i,j:integer;
PROCEDURE pl(temp:real;i,j:integer;a:arr);
BEGIN
FOR i:=1 TO 5 DO
read(a[i]);
FOR i:=1 TO 4 DO
FOR j:=1 TO 5-i DO
IF a[j]<a[j+1]
THEN BEGIN
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp
END;
FOR i:=1 TO 5 DO
write(a[i]);
readln
END;

BEGIN
pl;//当然还要添加参数
END.

Answer 2

定义数组

var names:array[1..Maxlongint]of integer;

names改为你想要的变量名

.Maxlongint改为范围

integer改为你要的类型

for i:=1 to Maxlongint do

names[i]:=0;

初始化