|
网上贸易 创造奇迹! 阿里巴巴 Alibaba Powered By Dvbbs Version 7.1.0 Copyright ©2003 - 2006 QTHome.Org 页面执行时间 00.14063 秒, 2 次数据查询 |
 |
| 以文本方式查看主题 - 趣题之家 (http://qthome.org/bbs/index.asp) -- 计算机基础 (http://qthome.org/bbs/list.asp?boardid=41) ---- 翻译程序，帮忙翻译成pascal程序 (http://qthome.org/bbs/dispbbs.asp?boardid=41&id=458) |
| -- 作者：feixue -- 发布时间：11/15/2005 5:46:56 PM -- 翻译程序，帮忙翻译成pascal程序 int i,n,l,r,m,len=1; long data[1000],d[1001]; scanf("%d",&n); for(i=0;i<n;i++) { scanf("%ld",&data); d=INFIN; } d[0]=-INFIN; d[n]=INFIN; for(i=0;i<n;i++) { l=0; r=i+1; while(l<r) { m=(l+r)/2; if(data>=d[m]) l=m+1; else r=m; } if(data<d[l]) d[l]=data; if(l>len) len=l; } printf("%d\\\\n",len); |
|
|||