第一问答网»论坛 › 中问网 › 问答 › 怎么用pascal语言编写这个表？大神进啊。 ...

怎么用pascal语言编写这个表？大神进啊。

11 |

2 | 2012-8-23 13:14:50 | 显示全部楼层 |阅读模式

var n,round,i,j,k:integer; a:array[1..100,1..100]of integer;begin readln(n);k:=1; for round:=1 to n doif round mod 2=1 then begin
i:=round;
for j:=1 to i do
begin
a[i,j]:=k;
k:=k+1;
end;
for i:=j-1 downto 1 do
begin
a[i,j]:=k;
k:=k+1;
end; e...

使用道具举报

千问 | 2012-8-23 13:14:50 | 显示全部楼层

把它分为n层，第一层是左上角的1，第二层是第一层往右和下扩展一排的数……在奇数层，数是从左下向右上增加，在偶数层，数是从右上向左下增加。程序很简单的。不明白请追问，不要使用问题补充。...

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行