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