谁有空就进来帮我写几句代码？ ( 积分: 50 )

F

fown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-01

• #1

名为A、B、C、D、E、F、G。。。。。等的方法
for X＝A to G do
for Y=A to G do
for Z=A to G do
begin
X;
Y;
Z;
end;
end;
end;
意思大家应该明白，谁能帮我写代码

 

F

fown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-01

• #2

名为A、B、C、D、E、F、G。。。。。等的方法
for X＝A to G do
for Y=A to G do
for Z=A to G do
begin
X;
Y;
Z;
end;
end;
end;
意思大家应该明白，谁能帮我写代码

 

求

求学鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-03

• #3

如果我的理解没错的话，代码应该是这样的。额外的要求是 A、B、C ... 的参数要形式一致。

{ 定义过程类型 }
type
ProcType: procedure ( 参数1, 参数2, ... )
{ A、B、C ... 的过程类型 }

{ 以下实现过程 }
procedure MyPro;
var
X, Y, Z: ProcType;
begin
for X :＝ A to G do
for Y := A to G do
for Z := A to G do
begin
X;
Y;
Z;
end;
end;

主要用的就是过程类型 ProcType。
班门弄斧，不知是否合楼主之意？

 

求

求学鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-02

• #4

更正！
很抱歉，刚才没考虑到 A、B、C ... 不是顺序类型。For 语句会出问题。
我试过数组存放方法 A、B、C ... 可是赋值时出错。
问题还不是那么简单，再研究研究。。。

 

L

lsf520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-02

• #5

你这是要干嘛的？请讲明白一点！！！

 

C

Cloud0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-03

• #6

to: fown
for X＝A to G do
方法a的返回值能赋给方法x？而且你还差一个：呢！

你是不是想这样？

type
Tmyfun=function (参数1：类型；参数2：...):boolean of object;先定义你的过程类型
.....................
var
myfun:array[1..26] of tmyfun;
i:integer;
begin
myfun[1]:=A;
....
myfun[26]:=Z;
for i:=1 to 7 do
myfun;
end;

 

可

可爱小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-03

• #7

同意楼上的，
把过程存为指针的多为数组
就可以用平常的语句调用了

 

F

fown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-09

• #8

多人接受答案了。