切换到宽版
发帖 回复
返回列表
  • 5470阅读
  • 5回复

绕圈数一 [复制链接]

 上一主题 下一主题
离线雨化石
OIFans初赛选手
 
只看楼主 正序阅读 0 发表于: 2006-12-06
输入N=5, 显示
1   2   3   4   5
16 17 18 19   6
15 24 25 20   7
14 23 22 21   8
13 12 11 10 9
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线justsoso
OIFans入门选手
只看该作者 5 发表于: 2007-04-15
看看我写的
复制代码
  2. PROGRAM circlenum(Input,Output);
  3. Var n:1..100;
  4.   num:array[1..100,1..100] of integer;
  6. Procedure Print;
  7. var i,j:integer;
  8. begin
  9.   for i:=1 to N do
  10.     begin
  11.     for j:=1 to N do
  12.       write(num[i,j]:5);
  13.     writeln;
  14.     end;
  15. end;
  17. Procedure doing;
  18. var
  19.   row,col,f,c:integer;   // 'f' is instead of bearing
  20. begin               // 'c' is instead of number
  21.   c:=2;
  22.   f:=1;
  23.   row:=1;
  24.   col:=1;
  25.   num[1][1]:=1;
  26.   while c<=n*n do
  27.     Case f of
  28.     1: begin                           // go right
  29.         while (col+1<=N)and(num[row][col+1]=0) do
  30.           begin
  31.           num[row][col+1]:=c;
  32.           c:=c+1;
  33.           col:=col+1;
  34.           end;
  35.           f:=2;
  36.       end;
  37.     2: begin                           // go down
  38.         while (row+1<=N)and(num[row+1][col]=0) do
  39.           begin
  40.           num[row+1][col]:=c;
  41.           c:=c+1;
  42.           row:=row+1;
  43.           end;
  44.           f:=3;
  46.       end;
  47.     3: begin                           // go left
  48.         while (col-1>=1)and(num[row][col-1]=0) do
  49.           begin
  50.           num[row][col-1]:=c;
  51.           c:=c+1;
  52.           col:=col-1;
  53.           end;
  54.           f:=4;
  56.         end;
  57.     4: begin                           // go up
  58.         while (row-1>=1)and(num[row-1][col]=0) do
  59.           begin
  60.           num[row-1][col]:=c;
  61.           c:=c+1;
  62.           row:=row-1;
  63.           end;
  64.           f:=1;
  66.       end;
  67.     end;
  68. end;
  70. BEGIN
  72. readln(n);
  74. fillchar(num,sizeof(num),0);   // '0' is instead of NIL position
  76. doing;
  78. Print;
  80. END.
回复
举报
离线地震
OIFans入门选手
只看该作者 4 发表于: 2007-04-09
麻烦了点
回复
举报
离线地震
OIFans入门选手
只看该作者 3 发表于: 2007-04-09
tian cai
回复
举报
离线地震
OIFans入门选手
只看该作者 2 发表于: 2007-04-09
var k,n,left,right,up,down,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(n);
k:=0;i:=1;j:=1;
left:=1;right:=n;up:=1;down:=n;
while k<n*n do
begin
for i:=left to right do
begin
inc(k);
a[j,i]:=k;
end;
up:=up+1;
for j:=up to down do
begin
inc(k);
a[j,i]:=k;
end;
right:=right-1;
for i:=right downto left do
begin
inc(k);
a[j,i]:=k;
end;
down:=down-1;
for j:=down downto up do
begin
k:=k+1;
a[j,i]:=k;
end;
left:=left+1;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
回复
举报
离线zhengyuan95
OIFans入门选手
只看该作者 1 发表于: 2006-12-06
var k,n,left,right,up,down,i,j:integer;
  a:array[1..100,1..100] of integer;
begin
readln(n);
k:=0;i:=1;j:=1;
left:=1;right:=n;up:=1;down:=n;
while k<n*n do
begin
for i:=left to right do
begin
inc(k);
a[j,i]:=k;
end;
up:=up+1;
for j:=up to down do
begin
inc(k);
a[j,i]:=k;
end;
right:=right-1;
for i:=right downto left do
begin
inc(k);
a[j,i]:=k;
end;
down:=down-1;
for j:=down downto up do
begin
k:=k+1;
a[j,i]:=k;
end;
left:=left+1;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
回复
举报
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个