【pascal游戏】一道Pascal题目:牛牛看到了一个非常有意思的游戏:游戏....
答案:2 悬赏:0 手机版
解决时间 2021-01-28 04:34
- 提问者网友：爱唱彩虹
- 2021-01-27 19:15
【pascal游戏】一道Pascal题目:牛牛看到了一个非常有意思的游戏:游戏....
最佳答案
- 五星知识达人网友：鸠书
- 2021-01-27 20:44
【答案】 放程序题要放完整题目描述，m,n范围，完整输入输出格式好么亲=.=!
这个实际效果类似于生成斐波那契数列，实现通过计算前m个里面的减去前n-1里面的
n,m会比较大小；n,m不要超过斐波那契数列第86项：420196140727489673
var n, m, temp:int64; i, q:integer; f, len:array [0..100] of int64;//how many a in first pfunction get(p:int64):int64;var ii,a:integer; b, ans:int64;begin if p<=0 then exit(0); a:=85; b:=p; ans:=0; while (a>2) do if b>len[a-1] then begin b:=b-len[a-1]; ans:=ans+f[a-1]; a:=a-2; end else a:=a-1; exit(ans+1);end;begin //preparation f[1]:=1; len[1]:=1; f[2]:=1; len[2]:=2; for i:=3 to 85 do begin f[i]:=f[i-1] + f[i-2]; len[i]:=len[i-1] + len[i-2]; end; //read and solve readln(q); for i:=1 to q do begin readln(n,m); if (m<n) then begin temp:=m; m:=n; n:=temp; end; writeln(get(m) - get(n-1)); end;end.
这个实际效果类似于生成斐波那契数列，实现通过计算前m个里面的减去前n-1里面的
n,m会比较大小；n,m不要超过斐波那契数列第86项：420196140727489673
var n, m, temp:int64; i, q:integer; f, len:array [0..100] of int64;//how many a in first pfunction get(p:int64):int64;var ii,a:integer; b, ans:int64;begin if p<=0 then exit(0); a:=85; b:=p; ans:=0; while (a>2) do if b>len[a-1] then begin b:=b-len[a-1]; ans:=ans+f[a-1]; a:=a-2; end else a:=a-1; exit(ans+1);end;begin //preparation f[1]:=1; len[1]:=1; f[2]:=1; len[2]:=2; for i:=3 to 85 do begin f[i]:=f[i-1] + f[i-2]; len[i]:=len[i-1] + len[i-2]; end; //read and solve readln(q); for i:=1 to q do begin readln(n,m); if (m<n) then begin temp:=m; m:=n; n:=temp; end; writeln(get(m) - get(n-1)); end;end.
全部回答
- 1楼网友：未来江山和你
- 2021-01-27 21:53
正好我需要
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯