E
ew9980
Unregistered / Unconfirmed
GUEST, unregistred user!
給一段源代碼好嗎!
安
安达
Unregistered / Unconfirmed
GUEST, unregistred user!
//数组的指针
type arr=array[n..m] of integer;
pa=^arr;
var
p
a;
i:integer
begin
new(p);
for i:=n to m do
p^:=i;
end.
//指针数组
type
po=^integer;
ap=array[n..m] of po;
以下不用写了吧
type arr=array[n..m] of integer;
pa=^arr;
var
p
a;i:integer
begin
new(p);
for i:=n to m do
p^:=i;
end.
//指针数组
type
po=^integer;
ap=array[n..m] of po;
以下不用写了吧
安
安达
Unregistered / Unconfirmed
GUEST, unregistred user!
//数组的指针
type arr=array[n..m] of integer;
pa=^arr;
var
pa;
i:integer
begin
new(p);
for i:=n to m do
p^:=i;
end.
//指针数组
type
po=^integer;
ap=array[n..m] of po;
以下不用写了吧
type arr=array[n..m] of integer;
pa=^arr;
var
p
a;i:integer
begin
new(p);
for i:=n to m do
p^:=i;
end.
//指针数组
type
po=^integer;
ap=array[n..m] of po;
以下不用写了吧
E
ew9980
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
