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

>> 讨论各种网上题库的习题
趣题之家信息学竞赛网上题库 → 谁的1.4.1 ariprog 能在1s内出解?

  发表一个新帖子  发起一个新投票  回复本主题 您是本帖的第 3947 个阅读者
  标题:谁的1.4.1 ariprog 能在1s内出解? 树形   打印   收藏   推荐  
     帅哥哟,离线,有人找我吗?
    
    
    等级:管理员
    威望:50
    文章:291
    积分:669
    注册:2003-05-18
 QQ 给趣题之主发送一个短消息 把趣题之主加入好友 查看趣题之主的个人资料 搜索趣题之主在的所有贴子 点击这里发送电邮给趣题之主 访问趣题之主的主页引用回复这个贴子 回复这个贴子 楼主
发贴心情 谁的1.4.1 ariprog 能在1s内出解?

usaco改时限了……


过不去了……


郁闷中……


谁能贴一个快一点的算法/程序?


thx

发贴IP已设置保密 2004-11-11 20:54
       
     帅哥哟,离线,有人找我吗?
    
    
    头衔:灵魂亵渎者
    等级:版主
    文章:74
    积分:175
    注册:2004-07-24
给McDsl发送一个短消息 把McDsl加入好友 查看McDsl的个人资料 搜索McDsl在的所有贴子 点击这里发送电邮给McDsl 引用回复这个贴子 回复这个贴子 2
发贴心情

我还没作到那里(主要是因为NOIP没做了)这是别人的程序:

program ariprog;
const
  maxbisqr=125000;
var
  fin,fout:text;
  bisqr:array[0..maxbisqr]of boolean;
  n,m:byte;
  a,b:longint;
  flag:boolean;
procedure check;
  var
    i:integer;
  begin
    for i:=n-1 downto 0 do
      if not bisqr[a+b*i] then exit;
    writeln(fout,a,' ',b);
    flag:=true;
  end;
begin
  assign(fin,'ariprog.in');
  reset(fin);
  readln(fin,n);
  readln(fin,m);
  close(fin);

  fillchar(bisqr,sizeof(bisqr),0);
  for a:=0 to m do
    for b:=a to m do
      bisqr[a*a+b*b]:=true;

  assign(fout,'ariprog.out');
  rewrite(fout);
  flag:=false;
  for b:=1 to m*m*2 div (n-1) do
    for a:=0 to m*m*2-(n-1)*b do
      check;
  if not flag then writeln(fout,'NONE');
  close(fout);
end.


QQ:317621673
发贴IP已设置保密 2004-11-19 18:04
       
     帅哥哟,离线,有人找我吗?
    
    
    等级:管理员
    威望:50
    文章:291
    积分:669
    注册:2003-05-18
 QQ 给趣题之主发送一个短消息 把趣题之主加入好友 查看趣题之主的个人资料 搜索趣题之主在的所有贴子 点击这里发送电邮给趣题之主 访问趣题之主的主页引用回复这个贴子 回复这个贴子 3
发贴心情
楼上的那个过不了,好在我现在已经过了。
发贴IP已设置保密 2005-01-07 11:58
       
     帅哥哟,离线,有人找我吗?
    
    
    等级:新手上路
    文章:2
    积分:53
    注册:2005-05-17
给einstein17发送一个短消息 把einstein17加入好友 查看einstein17的个人资料 搜索einstein17在的所有贴子 点击这里发送电邮给einstein17 引用回复这个贴子 回复这个贴子 4
发贴心情
好惨啊!我想好久还没有通过,请楼上帮忙,教教我怎样才能通过啊??可以把code放上来吗??我急需!谢谢!!
发贴IP已设置保密 2005-05-17 18:46
       

 4   4   1/1页      1    


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

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