帮我解决这个pascall程序。名称是:斜行方阵。

[复制链接]
查看11 | 回复1 | 2012-7-25 09:46:58 | 显示全部楼层 |阅读模式
没题目只好"科学猜测"一下了: var n,c1,c2,k,i,j:integer;
a:array[1..100,1..100] of integer;beginreadln(n);c1:=n-1;c2:=2;a[1,n]:=1;j:=n;for k:=2 to n*n do
begin
i:=i+1;
j:=j+1;
if (j>n) and (i<=n) then
begin
...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行