矩阵乘法练手。。。
第一次写,各种错误,累死了。。。
type
matrix=record
jz:array[1..20,1..20] of int64;
end;
var
k,n,mi,a:int64;
i,j:longint;
f:array[1..100] of int64;
ans:matrix;
sum:array[0..100] of matrix;
function chen(x,y:matrix):matrix;
var i,j,l:longint;
begin
for i:=1 to k do
for j:=1 to k do
begin
chen.jz[i,j]:=0;
for l:=1 to k do
chen.jz[i,j]:=(chen.jz[i,j]+x.jz[i,l]*y.jz[l,j]) mod 7777777;
end;
end;
function need(i:int64):int64;
begin
need:=0;
while i mod ......
阅读全文