作业帮 > 综合 > 作业

螺旋矩阵Pascal 描述一个 n 行 n 列的螺旋矩阵可由如下方法生成:从矩阵的左上角(第 1 行第 1 列)出发,初

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 20:20:35
螺旋矩阵Pascal
描述一个 n 行 n 列的螺旋矩阵可由如下方法生成:
从矩阵的左上角(第 1 行第 1 列)出发,初始时向右移动;如果前方是未曾经过的格子,则继续前进,否则右转;重复上述操作直至经过矩阵中所有格子.根据经过顺序,在格子中 依次填入 1,2,3,...,n2,便构成了一个螺旋矩阵.
下图是一个 n = 4 时的螺旋矩阵.
1121110 213169 314158 4567
现给出矩阵大小 n 以及 i 和 j,请你求出该矩阵中第 i 行第 j 列的数是多少.
格式输入格式
输入共一行,包含三个整数 n,i,j,每两个整数之间用一个空格隔开,分别表示矩阵大小、待求的数所在的行号和列号.
输出格式
输出共一行,包含一个整数,表示相应矩阵中第 i 行第 j 列的数.
样例1样例输入1
4 2 3
样例输出1
14
限制
对于 50%的数据,1 ≤ n ≤ 100;
对于 100%的数据,1 ≤ n ≤ 30,000,1 ≤ i ≤ n,1 ≤ j ≤ n.
这是noip2014普及第三题
本人只做了一个50分的,
var
n,i,j,k,d,x,y:longint;
begin
readln(n,x,y);
d:=1; k:=0;
i:=1;j:=0;
repeat
inc(k);
case d of
1:begin inc(j); if i+j=n+1 then d:=2;end;
2:begin inc(i); if i=j then d:=3; end;
3:begin dec(j); if i+j=n+1 then d:=4; end;
4:begin dec(i); if i=j+1 then d:=1; end;
end;
until (i=x)and(j=y);
writeln(k);
end.
再问: 你参加noip了吗?
再答: 是,成绩185
第一题30
第二题100
第三题50
第四题5
再问: 高手!
再答: 拜托采纳吧
你可以加我qq:1270610465,有空就帮你回答吧