Đề thi HSG

[hoasentrang_cm]

Bài 3: (6 điểm) Cho một bảng ô vuông A gồm n cột, n hàng. Từ ô vuông cột 1, hàng 1 người ta điền vào mỗi ô vuông đúng một con số tự nhiên bắt đầu từ 1 liên tiếp đến n2 theo chiều từ trái sang phải và từ trên xuống dưới. Với số tự nhiên k, m cho trước ta biến đổi bảng ô vuông A thành bảng ô vuông B bằng cách dời tất cả các hàng lên trên k hàng, rồi tiếp tục dời tất cả các cột sang trái m cột. Khi dời hàng đến hàng đầu nếu tiếp tục dời thì thành hàng cuối, tương tự cho dời cột..
Yêu cầu: Viết chương trình nhập số tự nhiên n, k, m, i, j, h
a) Xuất ra màn hình con số của ô vuông cột i hàng j của bảng B
b) Xuất ra màn hình chỉ số hàng và cột của ô vuông trong bảng B có giá trị là h.
Ví dụ: Với n=5, k=7, m=6, i=4, j=3, h=25
Bảng A ban đầu
Cột 1 2 3 4 5
Hàng
1 11 2 3 4 5
2 6 7 8 9 10
3 11 12 13 14 15
4 16 17 18 19 20
5 21 22 23 24 25
k=7
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25
1 2 3 4 5
6 7 8 9 10

m= 6
12 13 14 15 11
17 18 19 20 16
22 23 24 25 21
2 3 4 5 1
7 8 9 10 6

[hoasentrang_cm]

Mình mới tìm ra cách dời k hàng: khi đó hàng i của bảng B sẽ tương ứng với hàng (i+k) mod N +1 của bảng A
P/s: các bạn kiểm tra xem mình nghĩ thế có đúng không nhé!

[auauau97]

Mình thì làm trâu bò kiểu này ra cơ mà tốc độ với n lớn chắc ko cao

Uses crt;
Const MAX=100;
Type
mang=array[1..MAX] of integer;
Var
a: array[1..MAX,1..MAX] of integer;
temp,last : mang;
n,m,k: integer;
i,j,dem: integer;

Procedure Inra;
Var
i,j: integer;
Begin
For i:=1 to n do
Begin
For j:=1 to n do Write(a[i][j],' ');
Writeln;
End;
Writeln;
End;

Procedure GanHang(var t:mang; v: integer);
Var i: integer;
Begin
For i:=1 to n do t[i]:=a[v][i];
End;

Procedure GanCot(var t:mang; v: integer);
Var i: integer;
Begin
For i:=1 to n do t[i]:=a[i][v];
End;

Procedure DoiHang(x: integer);
Var
j,y: integer;
Begin
If x=1 then y:=n
Else y:=x-1;
GanHang(temp, x);
For j:=1 to n do
a[y][j]:=temp[j];
End;

Procedure DoiCot(x: integer);
Var
i,y: integer;
Begin
If x=1 then y:=n
Else y:=x-1;
GanCot(temp, x);
For i:=1 to n do
a[i][y]:=temp[i];
End;


BEGIN
Clrscr;
// Write('Nhap n, m ,k: '); Readln(n,m,k);
n:=10; m:=6; k:=7; dem:=0;
For i:=1 to n do
For j:=1 to n do
Begin
dem+=1;
a[i][j]:=dem;
End;
Inra;
Writeln('k = ',k);
For j:=1 to k do
Begin
GanHang(last,n);
For i:=1 to n-1 do DoiHang(i);
For i:=1 to n do a[n-1][i]:=last[i];
End;
Inra;
Writeln('m = ',m);
For i:=1 to m do
Begin
GanCot(last,n);
For j:=1 to n-1 do DoiCot(j);
For j:=1 to n do a[j][n-1]:=last[j];
End;
Inra;
END.