1樓：匿名使用者
var n,i,j:integer;
begin
readln(n);
for i:=1 to n*2-1 do
begin
for j:=1 to abs(i-n)+1dowrite(' ');
for j:=1 to n do
write('*');
if i<=n then
for j:=1 to 2*(i -1) dowrite(' ')else
for j:=1 to 2*(2*n-i)-2 dowrite(' ');
for j:=1 to n do
write('*');
writeln;
end;
end.
2樓：
program ex1;
var n,i,j:integer;
begin
readln(n);
for i:=1 to n*2-1 do
begin
for j:=1 to abs(i-n)+1dowrite(' ');
for j:=1 to n do
write('*');
if i<=n then
for j:=1 to 2*(i -1) dowrite(' ')else
for j:=1 to 2*(2*n-i)-2 dowrite(' ');
for j:=1 to n do
write('*');
writeln;
end;
end.
3樓：匿名使用者
有幾個空格？（場寬）
螺旋矩陣用PASCAL
問題 輸入乙個數n，輸出n 2數陣，數陣為數字漩渦排列。例 輸入1，輸出 1 輸入2，輸出 1 2 3 4 輸入3輸出 1 2 3 8 9 4 7 6 5 輸入4輸出 1 2 3 4 12 13 14 5 11 16 15 6 10 9 8 7 是這個題麼？program hhs vara,b,t,...
一道Pascal小問題，跪求答案！緊急
type的功能就是自定義型別，type tt array 0.20 of integer 其實就是定義了乙個叫做tt的包含21個整形元素的陣列，這樣寫可以節省 長度，定義乙個變數也許看不出方便在哪兒，但相同型別的變數多了，比方說寫10次 array 0.20 of integer 就比寫十次tt要繁...
pascal語言程式設計題求高手呀追加跪求進來看一看
答案不唯一，abc ab ac都是答案 vari1,i2,i3,j longint begin for i1 1 to 2 do for i2 1 to 2 do for i3 1 to 2 do if ord i1 1 ord i1 1 ord i3 2 and i2 2 2 then begin...