有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
10E100的约瑟夫算法
vijosP1095是一道很麻烦的题 题目为/Problem_Show.asp?id=1095 找规律 规律如下 1-0 2-1 3-3 4-1 5-3 6-5 7-7 2^n-----1 2^n+1-----3 2^n+x------1+2*x 数组读入n 找到小于n 的最大 2的某次方 n 减 2的某次方 差乘2+1 为答案?? 要用高精度 处理 注意：高精乘法要压位 代码如下 program zk; var ??shu1,shu,shu2,cha:array [1..1000] of longint; ??g2,i,j,a,b,c,l,x,y,lz:longint; ??k:char; function geshu(c:longint):longint; var yu,o:longint; begin l:=lz; o:=0; geshu:=0; repeat ????if o=1 then begin??l:=l-1; o:=0; end; ????a:=lz-l; yu:=0; ????repeat ?????? a:=a+1; ?????? yu:=yu+shu[a]; ?????? if yu2 then ???????????????? begin ?????????????????? if a=lz-l+1 then begin o:=1; yu:=yu*10; end ?????????????????????????????? else yu:=yu*10; ?????????????????? shu[a]:=shu[a] div 2; ???????????????? end ?????????????? else ???????????????? begin ?????????????????? shu[a]:=yu div 2; ?????????????????? yu:=(yu mod 2)*10; ????????????????end; ????until a=lz; ????geshu:=geshu+1; until (l=1) and (shu[lz-l+1]=0); geshu:=geshu-1; end; procedure jingwei; begin ??x:=0; ??repeat ????x:=x+1; ????if shu1[x]=10 ???? then ??????begin ????????if x=l then l:=l+1; ????????shu1[x+1]:=shu1[x+1]+shu1[x] div 10; ????????shu1[x]:=shu1[x] mod 10; ??????end; ??until x=l; end; begin ??i:=0; ??while not eoln do ?? begin ???? i:=i+1; ???? read(k); ???? shu:=ord(k)-48; ?? end; ??lz:=i; ??j:=0; ??for i:=lz downto 1 do ?? begin ????j:=j+1; ????shu2[j]:=shu; ?? end; ??g2:=geshu(1); ??shu1[1]:=1; ??l:=1; ??if g2=10 ?? then ???? for i:=1 to (g2 div 11) do ?????? begin ???????? j:=0; ?????????? repeat ???????????? j:=j+1; ???????????? shu1[j]:=shu1[j]*2048; ?????????? until j=l; ???????? jingwei; ?????? end; ??for i:=1 to (g2 mod 11 ??) do ????begin ??????j:=0; ??????repeat ????????j:=j+1; ????????shu1[j]:=shu1[j]*2; ??????until j=l; ??????jingwei; ????end; ??for j:=1 to??lz do ????cha[j]:=shu2[j]-shu1[j]; ??x:=0; ??repeat ????x:=x+1; ????if cha[x]0 ???? then ?????? begin ???????? cha[x+1]:=cha[x+1]-1; ???????? cha[x]:=cha[x]+10; ?????? end ??until x=lz; ??y:=0; ??for i:=1 to lz do ????if cha0
文档评论（0）