用pascal做这道题是个回形矩阵题

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/07/10 16:32:58

用pascal做这道题是个回形矩阵题
例如输入n(n

var
i,j,u,v:integer;
n:integer;
a:array[1..101,1..101] of integer;
begin
readln(n);
if n=1 then begin
write('1');
halt;
end else begin
n:=2*n-1;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=1;
u:=2;
v:=n-1;
while uv do begin
for i:=u to v do
for j:=u to v do
inc(a[i,j]);
inc(u);
dec(v);
end;
if n mod 2=1 then a[u,u]:=u;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end;
end.
再问：用文件读写做

用pascal做这道题是个回形矩阵题 Pascal问题：矩阵乘法怎么用free pascal做这道题？ Pascal题（用Turbo Pascal）数码排序程序题,用pascal语言, pascal语言蛇形矩阵程序如下： Pascal 矩阵乘法的完整过程? 用pascal语言做一道题 pascal题回文素数简单Pascal一道题 pascal 题求解! pascal语言编程题

用pascal做这道题 是个回形矩阵题

用pascal做这道题是个回形矩阵题