language: Pascal (gpc) (gpc 20070904)
date: 109 days 1 hour ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
   for j:= 1 to Ia do
    read( a[ i, j ] );
   readln;
  end;
   
  readln( n );
  k:= n;
  for i:= 1 to Ia do
   for j:= 1 to Ia do
    if i = j then b[ i, j ]:= 1
    else b[ i, j ]:= 0;
  for i:= 1 to Ia do
   for j:= 1 to Ia do
    c[ i, j ]:= a[ i, j ];
  
  while k <> 0 do
   if k mod 2 = 0 then
    begin
     k:= k div 2;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for l:= 1 to Ia do
        c[ i, j ]:= c[ i, j ] + c[ i, l ] * c[ l, j ];
    end
   else
    begin
     k:= k - 1;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for l:= 1 to Ia do
        b[ i, j ]:= b[ i, j ] + b[ i, l ] * c[ l, j ];;
    end;
   for i:= 1 to Ia do
    begin
     for j:= 1 to Ia do
      write( b[ i, j ] );
     writeln;
    end; 
end.