fork download
copy 
  1. Program M_power;
  2. var
  3.  a, b, c: array [ 1..100, 1..100 ] of integer;
  4.  i, j, Ia, n, k, l: integer;
  5.  
  6. begin
  7.  readln( Ia );
  8.  for i:= 1 to Ia do
  9.   begin
  10.    for j:= 1 to Ia do
  11.     read( a[ i, j ] );
  12.    readln;
  13.   end;
  14.  
  15.   readln( n );
  16.   k:= n;
  17.   for i:= 1 to Ia do
  18.    for j:= 1 to Ia do
  19.     if i = j then b[ i, j ]:= 1
  20.     else b[ i, j ]:= 0;
  21.   for i:= 1 to Ia do
  22.    for j:= 1 to Ia do
  23.     c[ i, j ]:= a[ i, j ];
  24.  
  25.   while k <> o do
  26.    if k mod 2 = 0 then
  27.     begin
  28.      k:= k div 2;
  29.      for i:= 1 to Ia do
  30.       for j:= 1 to Ia do
  31.        for l:= 1 to Ia do
  32.         c[ i, j ]:= c[ i, j ] + c[ i, l ] * c[ l, j ];
  33.     end
  34.    else
  35.     begin
  36.      k:= k - 1;
  37.      for i:= 1 to Ia do
  38.       for j:= 1 to Ia do
  39.        for l:= 1 to Ia do
  40.         b[ i, j ]:= b[ i, j ] + b[ i, l ] * c[ l, j ];;
  41.     end;
  42.    for i:= 1 to Ia do
  43.     begin
  44.      for j:= 1 to Ia do
  45.       write( b[ i, j ] );
  46.      writeln;
  47.     end; 
  48. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
3
1 0 0
0 1 0
0 0 1
compilation info 
prog.pas: In main program:
prog.pas:25: error: undeclared identifier `o' (first use in this routine)
prog.pas:25: error:  (Each undeclared identifier is reported only once
prog.pas:25: error:  for each routine it appears in.)
stdout
copy 
Standard output is empty
https://ideone.com/qqETe
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!