关于PASCAL程序设计的几道题的答案

第一题不理解，要整条的卖，又买出二分之一条？？？

其他不难，晚点给你让物迅答案。

4.var

i,j,k:integer

begin

for

i:=1

to

9

do

begin

k:=i

if

i>5

then

k:=10-i

for

j:=1

to

(k-1)*2+1

do

write(i)

writeln

end

end.

3.var

b:array[1..6,1..6]of

integer

i,j,k,l,m,o,p,q:integer

begin

o:=1+2+3+4+5+6

for

i:=1

to

6

do

begin

b[1,1]:=i

for

j:=1

to

6

do

if

j<>i

then

begin

b[2,1]:=j

for

k:=1

to

6

do

if

(k<>j)and(k<>i)then

begin

b[2,2]:=k

for

l:=1

to

6

do

if

(l<>i)and(l<蚂毁>k)and(l<>j)then

begin

b[3,1]:=l

for

m:=1

to

6

do

if

(m<>i)and(m<>j)and(m<>k)and(m<>坦此l)then

begin

b[3,2]:=m

b[3,3]:=o-i-j-k-l-m

if

(b[1,1]+b[2,1]+b[3,1]=b[1,1]+b[2,2]+b[3,3])and(b[1,1]+b[2,1]+b[3,1]=b[3,1]+b[3,2]+b[3,3])

then

begin

for

p:=1

to

3

do

begin

for

q:=1

to

p

do

write(b[p,q]:2)

writeln

end

end

endendendendend

end.

{这用得着编程来解决吗？纯数学问题啊。。

如果真的想用Pascal编的话，那估计是态岁棚递帆则归了吧。

还有，金鱼有雀告半条半条卖的吗。。}

function sell(x:longint):extended

begin

if x=5 then exit(11)

exit((sell(x+1)-1/(x+1))*(x+1))

end

begin

writeln(sell(1):0:0)

end.

---