language: Pascal (fpc) (fpc 2.2.0)
date: 108 days 5 hours 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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

Program RotasiMarix;
Var c, z, t, s, i, j, k, l, d, f, n, m : integer;
a, b : array[1..100,1..100] of integer;
Begin
c := 0;
z := 0;
t := 0;
s := 0;
read(n, m);
for i := 1 to n do begin
for j := 1 to m do begin
read(a[i, j]);
end;
end;
read(k,l);
for i := 1 to k do begin
for j := 1 to l do begin
read(b[i,j]);
end;
end;
if m = k then
        begin
        for i := 1 to n do begin
        for j := 1 to m do begin
        for d := 1 to k do begin
        for f := 1 to l do begin
        if (b[d,f] = a[i,j]) then
        c := c+1;
        end; end; end; end; end;
        if k*l = c then writeln('0')
else
        begin
        for i := 1 to n do begin
        for j := m to 1 do begin
        for d := 1 to k do begin
        for f := 1 to l do begin
        if (b[j,i] = a[d,f]) then
        z := z +1;
        end; end; end; end; end;
        if k*l = z then writeln('90')
else
        begin
        for i := n to 1 do begin
        for j := m to 1 do begin
        for d := 1 to k do begin
        for f := 1 to l do begin
        if (b[i,j] = a[d,f]) then
        t := t+1;
        end; end; end; end; end;
        if k*l = t then writeln('180')
else
        begin
        for i := n to 1 do begin
        for j := 1 to m do begin
        for d := k to 1 do begin
        for f := l to 1 do begin
        if (b[i,j] = a[d,f]) then
        s := s+1;
        end; end; end; end; end;
        if k*l = s then writeln('270')
else
        writeln('Tidak Sama');
end.