f(1)=1,f(2)=1,f(n)=(A*f(n-1)+B*f(n-2)) mod 7.给定A,B和n的值,要求计算f
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 22:01:51
f(1)=1,f(2)=1,f(n)=(A*f(n-1)+B*f(n-2)) mod 7.给定A,B和n的值,要求计算f(n)的值.
type
arr=array[1..2,1..2]of longint;
var
now,d:arr;
n:longint;
procedure init;
var
a,b:longint;
begin
assign(input,'sequence.in');
reset(input);
assign(output,'sequence.out');
rewrite(output);
readln(a,b,n);
now[1,1]:=a mod 7;now[1,2]:=1;
now[2,1]:=b mod 7;now[2,2]:=0;
d[1,1]:=1;d[1,2]:=1;
d[2,1]:=0;d[2,2]:=0;
end;
function cheng(a,b:arr):arr;
begin
cheng[1,1]:=(a[1,1]*b[1,1]+a[1,2]*b[2,1])mod 7;
cheng[1,2]:=(a[1,1]*b[1,2]+a[1,2]*b[2,2])mod 7;
cheng[2,1]:=(a[2,1]*b[1,1]+a[2,2]*b[2,1])mod 7;
cheng[2,2]:=(a[2,1]*b[1,2]+a[2,2]*b[2,2])mod 7;
end;
function try(now:arr;n:longint):arr;
begin
if n=1 then try:=now
else
if n and 1=1 then try:=cheng(now,try(cheng(now,now),n div 2))
else try:=try(cheng(now,now),n div 2);
end;
procedure main;
begin
n:=n-2;
now:=try(now,n);
writeln(cheng(d,now)[1,1]);
end;
begin
init;
if n
type
arr=array[1..2,1..2]of longint;
var
now,d:arr;
n:longint;
procedure init;
var
a,b:longint;
begin
assign(input,'sequence.in');
reset(input);
assign(output,'sequence.out');
rewrite(output);
readln(a,b,n);
now[1,1]:=a mod 7;now[1,2]:=1;
now[2,1]:=b mod 7;now[2,2]:=0;
d[1,1]:=1;d[1,2]:=1;
d[2,1]:=0;d[2,2]:=0;
end;
function cheng(a,b:arr):arr;
begin
cheng[1,1]:=(a[1,1]*b[1,1]+a[1,2]*b[2,1])mod 7;
cheng[1,2]:=(a[1,1]*b[1,2]+a[1,2]*b[2,2])mod 7;
cheng[2,1]:=(a[2,1]*b[1,1]+a[2,2]*b[2,1])mod 7;
cheng[2,2]:=(a[2,1]*b[1,2]+a[2,2]*b[2,2])mod 7;
end;
function try(now:arr;n:longint):arr;
begin
if n=1 then try:=now
else
if n and 1=1 then try:=cheng(now,try(cheng(now,now),n div 2))
else try:=try(cheng(now,now),n div 2);
end;
procedure main;
begin
n:=n-2;
now:=try(now,n);
writeln(cheng(d,now)[1,1]);
end;
begin
init;
if n
看下面超链接,希望对您有用,一直看没人给您回答!
已知a,b属于N+,f(a+b)=f(a)f(b),f(1)=2,则f(2)/f(1)+f(3)/f(2)+...+f(
f(n+1)=2f(n)/f(n)+2,f(1)=1,猜想f(n)的表达式
设f(x)=1/(2^x+√2),计算f(0)+f(1),f(-1)+f(-2)的值,猜想f(-n)+f(n+1)=
已知a、b∈N*,f(a+b)=f(a)×f(b),f(1)=2,求f(2)/f(1)+f(3)/f(2)+.+f(20
数学题(代数)f(n-1)=(x-a)f(n-2)+a(x+a)^(n-2),f(n-2)=(x-a)f(n-3)+a(
A:f(1)+2f(1)+...+nf(1) B:f[n(n+1)/2] C:n(n+1) D:[n(n+1)/2] f
f(f(n))=3n,求f(1),f(2),f(3).
已知ab∈N+,f(a+b)=f(a)*f(b),f(1)=2,求f(2)/f(1)+f(3)/f(2)+……f(200
已知a(n)=1/(n+1)*(n+1),f(n)=[1-a(1)]*…*[1-a(n)],试求f(1),f(2),f(
设f(n)=n+f(1)+f(2)+f(3)+……+f(n-1),用数学归纳法证明“n+f(1)+f(2)+f(3)+…
急 计算Fibonacci数列前n项和,提示F(n)定义 F(n)=F(n-1)+F(n-2) 用c语言编程
已知f(x)=ax+b,若f(2)、f(5)、f(4)成等比数列,f(8)=15,求f(1)+f(2)+……+f(n)