11 A 12 C 13 C 14 C 15 D 三、阅读程序并在程序后写出运行结果(每小题6分，共30分)。
1 1 -1 ABCD BCD 4 CD D 2 20,10 * 3 10010 四、编程题(每小题10分，共20分)。1．
program p41(output); var i,j:integer; begin
for i:=1 to 5 do begin
write(' ':20-2*i); for j:=1 to 2*i-1 do
write('*':2);
writeln; end;
for i:=4 downto 1 do begin
write(' ':20-2*i); for j:=1 to 2*i-1 do
write('*':2);
writeln; end; readln; end.
2．
PROGRAM P42(input,output); VAR L:real;
FUNCTION fac(n:integer):real; VAR i:integer; f:real; BEGIN f:=1;
*+* 5 *+++* *++++++* *+++++++++* 或
program p41(output); var i,j,n:integer; begin
for i:=-4 to 4 do begin
n:=9 - abs(2*i); write(' ':20-n); for j:=1 to n do
write('*':2);
writeln; end; end.
FOR i:=1 TO n DO f:=f*i; fac:=f; END; BEGIN
L:=fac(8)+fac(6)*fac(7); writeln('8!+6!*7!=',L:10:0); END.