2015年05月01日

原创 2015年07月10日 09:46:35
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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

2015年07月01日第二天笔记

昨天遗留 1.动态产生按钮赋给事先定义的属性,就可以全局使用它了 2015年07月01日08:19:12 1.整理电脑内存垃圾:cleanMyMac 软件2.消化今天,预习 第3、4天 因为比较...

浅讲医院若何进止微专营销 05月27日

楼兰破论坛:www.loulanpo.com  中介买卖 SEO诊断淘宝客 站长团购 云主机 A5外包        微博是一个社会化媒体,更是一个重生事物。跟着移动互联网的不息成生和生长,微...

chinadaily 2010年06月01日

  • 2010-10-24 21:47
  • 10.12MB
  • 下载

网站进止友链交换时需供重视的事项有哪些? 05月27日

楼兰破论坛:www.loulanpo.com  中介生意营业 SEO诊断淘宝客 站长团购 云主机 A5外包    自4月25日百度站长平台揭晓了关于外链作弊的见解,外链变得愈来愈易,让许多站长们盲...

2017年05月12日 学习小总结(think php 验证码的使用)

使用版本think php 3.2.3 用户名: 密 码:

2016年05月26日 可用host可访问google ,Facebook

复制以下全部内容粘贴到host文件中,不清楚的自行百度 尽情的畅游吧“~

一场游戏一场梦------------------大学随手写(11年05月-------11年06月04)

一场游戏一场梦------------------大学随手写(11年05月-------11年06月04)2011-05-19 13:45 (分类:乱七八糟)片段一:生活就如同QQ够级2011年04月...

【 日常 】 多样伸展树 17年4月01日20:03 [ 3 ]

/* 前言: 好多天前准备记录下自己的坎坷修仙的点滴,以后希望能留下【珍贵的回忆】,萌新的日常代码,大佬互喷*/
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)