电脑/网络 -> 编程语言 -> 其他编程语言更改分类 求助团队 匿名| 财富悬赏 0 5 10 15 20 30 50 80 100
电脑/网络->编程语言->其他编程语言更改分类求助团队匿名|财富悬赏05101520305080100...
电脑/网络 -> 编程语言 -> 其他编程语言更改分类求助团队匿名|财富悬赏05101520305080100
展开
4个回答
展开全部
如何糊状,不回答呢?
Project1的程序;
类型
TMAN记录
相对字节;
编号:字节;
结束;
VAR
男子:ARRAY [1 .. 100]的TMAN中
版本:ARRAY [1 .. 200,0 .. 1字节;
N,K,I,J:整数;
开始
Readln(N,K);
我:= 1到k做
> Readln(REL [I,0],相对[1]);
我:= 1到n
开始
人[I]。 REL:= I;
人[I]。编号:做
J:= 1 = 0;
结束
我:= 1到n的k
开始
关系[J,0 ] = I然后
人[REL [J]。 REL:人[I]。相对
否则,如果相对[J]?? = I然后
人[REL [J,0]。 REL:人[I]。 ;
结束;
我:= 1到n做
公司(人[文[I]。REL]。参考);
J:= 0; / a> K:= 0;
我:= 1到n做
开始
人[I]。参考> 0,则
公司(J);
人[I]。参考> k,那么
K:=人[I]。参考
结束;
Writeln('----',#13#10,J,K,'');
Readln;
结束。
Project1的程序;
类型
TMAN记录
相对字节;
编号:字节;
结束;
VAR
男子:ARRAY [1 .. 100]的TMAN中
版本:ARRAY [1 .. 200,0 .. 1字节;
N,K,I,J:整数;
开始
Readln(N,K);
我:= 1到k做
> Readln(REL [I,0],相对[1]);
我:= 1到n
开始
人[I]。 REL:= I;
人[I]。编号:做
J:= 1 = 0;
结束
我:= 1到n的k
开始
关系[J,0 ] = I然后
人[REL [J]。 REL:人[I]。相对
否则,如果相对[J]?? = I然后
人[REL [J,0]。 REL:人[I]。 ;
结束;
我:= 1到n做
公司(人[文[I]。REL]。参考);
J:= 0; / a> K:= 0;
我:= 1到n做
开始
人[I]。参考> 0,则
公司(J);
人[I]。参考> k,那么
K:=人[I]。参考
结束;
Writeln('----',#13#10,J,K,'');
Readln;
结束。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
什么意思!
难道这个问题是任务!
请您详细描述你的问题吧!
望采纳建议!
难道这个问题是任务!
请您详细描述你的问题吧!
望采纳建议!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
2货
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-11-25
展开全部
看不懂说什么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询