1樓：杭春枋
var a:array[1..20,1..20] of longint;
i,j,n,m,k,d,b:longint;
begin
readln(n); d:=n*n;
for i:=1 to (n+1) div 2 dobegin
for j:=n-i+1 downto i do begina[i,j]:=d; dec(d); end;
if d=0 then break;
for j:=i+1 to n-i+1 do begina[j,i]:=d; dec(d); end;
if d=0 then break;
for j:=i+1 to n-i+1 do begina[n-i+1,j]:=d; dec(d); end;
if d=0 then break;
for j:=n-i downto i+1 do begina[j,n-i+1]:=d; dec(d); end;
if d=0 then break;
end;
for i:=1 to n do beginfor j:=1 to n do write(a[i,j]:4);
writeln; end;
end.
2樓：小乖曉曉乖
看不出是個什麼矩陣，請補充一下題目
free pascal如何顯示中文
在快捷方式屬性上找 選項。下面有一個調字符集。調到 gbk 就可以了 糖糖寳寳 1 把要輸的中文打到ultraedit中，然後看內碼，之後在pascal 裡輸內碼。2 就一個字元一個字元輸，比如 writeln bc af ba cf 這裡 表示字元 表示16進位制. 在桌面上建立一個快捷方式。點右...
我的free pascal在哪出錯了
一般都用英文表示的 write 半徑 r,周長 l,面積 s 改成write l l,s s 你似乎把這裡的 忘了.標點符號要用英文輸入法，用漢字輸入法打出的標點就編譯不過。因為漢字輸入法打出的標點符號與英文輸入法的標點符號機內碼不同 好像是兩倍關係 所以pascal無法識別。pascal裡計算圓面...
free pascal程式設計選人 小組共五人,分別為A,B
var a,b,c,d,e boolean n byte begin for a false to true dofor b false to true dofor c false to true dofor d false to true dofor e false to true dobegin...