2015年05月01日

program tppx;
const maxn=100;
var
 map:array[1..maxn,1..maxn]of longint;
 into:array[1..maxn]of longint;
 n,i,j,k:longint;
 procedure init;
 var
  i,j:longint;
 begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
 read(map[i,j]);
 inc(into[j]);
 end;
begin
 //assign('input.in');
 //assign('output.out');
 //reset(input);
 //rewrite(output);
 init;
 for i:=1 to n do
  begin
   j:=1;
   while(j<=n)and(into[j]<>0)do inc(j);
   if j>n then halt;
   write(j,' ');
   into[j]:=255;
   for k:=1 to n do
   if map[j,k]=1 then dec(into[k]);
  end;
 //close(input);
 //close(output);
end.


0 0 1 0 0 0 0 1
1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 1 0 0 0 0 1
0 1 0 1 0 1 0 0
1 1 0 0 0 0 0 0
0 0 0 1 1 0 0 0
0 0 1 0 0 0 0 0
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826663
个人分类: 编程
想对作者说点什么? 我来说一句

UNix网络编程卷一(第三版)

2015年11月18日 46B 下载

201505月10日

Wmwl1345 Wmwl1345

2016-08-04 20:24:17

阅读数:134

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭