Pascal Master，請快進，Pascal 專家來幫我

我正在用函式遞迴來做這件事，這絕對是對的。

var i,j,k:integer;

function yh(i,j:integer):integer;

beginif (j=1)or(j=i)then yh:=1else yh:=yh(i-1,j)+yh(i-1,j-1);

end; var

i,j,k:integer;

beginfor i:=1 to 6 do

beginfor k:=(6-i)*2 downto 1 do write(' ');

for j:=1 to i do write(yh(i,j):4);

writeln;

end; end.

這就是我現在正在寫的，沒關係：

varyh:array[0..10,0..10] of integer;

i,j,n:integer;

beginreadln(n);

yh[1,1]:=1;

for i:=2 to n do

beginyh[i,1]:=1; yh[i,j]:=1;

for j:=2 to n-1 do

yh[i,j]:=yh[i-1,j-1]+yh[i-1,j];

end;writeln('yang hui:');

yh[n,n]:=1;

for i:=1 to n do

beginwrite('':40-3*i);

for j:=1 to i do write(yh[i,j]:6);

writeln;

end;end.

要新增點 o（ o.

沒有陣列，恐怕不是}

program xu_1;

var yh:array[0..10,0..10] of integer;

i,j,n:integer;

beginreadln(n);

yh[1,1]:=1;

for i:=2 to n do

beginyh[i,1]:=1; yh[i,j]:=1;

for j:=2 to n-1 do

yh[i,j]:=yh[i-1,j-1]+yh[i-1,j];

end; writeln('yang hui:');

yh[n,n]:=1;

for i:=1 to n do

beginwrite('':40-3*i);

for j:=1 to i do write(yh[i,j]:5);

writeln;

end; end.

1.填空。

1.同一型別的多個變數，變數之間分離; 變數和型別按以下方式分隔：分離; 不同型別的說明性使用; 分開。

2. 以下 1 5 8 15 為整數資料; 2 3 4 是真實的; 6 7 是字元; 11 13 是布林值。

5)0 (6)’a’ (7)’0’ (8)879828

9)123,55454 (10).32415 (11)true (12)abc

13)false (14) (15)-32768 (16)32768

2.多項選擇題。

1. 以下定律常數的定義是 c

a) const x:=; (b) const a:integer =1;

c) const pi= ; d) const bol=bol+1;

2. 以下有效變數定義為 b

a) var flag=real; (b) var int1,int2:integer;

c) var k:integer; k:real; (d) var ；

3. 以下有效的帕斯卡常數是 c

a).25 (b)”red” (c)’%d)

4. 以下常數表示正確的常數是 b

a)const i=maxint+1; (b)const zero=;

c)const pi=∏; d)const string=”pascal”;

1）第乙個空逗號，第二個空冒號：第三個空分號;2） 整數： （1） （5） （8） （9） （10） （15） （16）.

實心：（2） （3） （4） （14）。

字元型別：（6）、（7）、（12）。

布林值：（11）（13）。

多項選擇題 1） b 2） b 3） a 4） b