收藏本页
联系我们
论坛帮助

>> 这里讨论计算机的基础和设计到程序设计的数学问题。关于初赛的相关问题也可以到这里来!
趣题之家信息学竞赛计算机基础 → 翻译程序,帮忙翻译成pascal程序

  发表一个新帖子  发起一个新投票  回复本主题 您是本帖的第 3929 个阅读者
  标题:翻译程序,帮忙翻译成pascal程序 树形   打印   收藏   推荐  
     帅哥哟,离线,有人找我吗?
    
    
    等级:新手上路
    文章:2
    积分:61
    注册:2005-11-12
给feixue发送一个短消息 把feixue加入好友 查看feixue的个人资料 搜索feixue在的所有贴子 点击这里发送电邮给feixue 引用回复这个贴子 回复这个贴子 楼主
发贴心情 翻译程序,帮忙翻译成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);


一往情深深几许?
发贴IP已设置保密 2005-11-15 17:46
       

 1   1   1/1页      1    


网上贸易 创造奇迹! 阿里巴巴 Alibaba

Powered By Dvbbs Version 7.1.0
Copyright ©2003 - 2006 QTHome.Org
页面执行时间 00.12500 秒, 3 次数据查询
本论坛采用阿里巴巴支付宝网上银行支付系统,安全、可靠、便捷