编写一个九宫格程序

var

z,a,b,c,d,e,f,g,h,i:longintbegin

for a:=1to 9do

for b:=1to 9do

if(a<>b)then

for c:=1to 9do

if(a<>c)and(b<>c)then

for d:=1to 9do

if(a<>d)and(b<>d)and(c<>d)then

for e:=1to 9do

if(a<>e)and(b<>e)and(c<>e)and(d<>e)then

for f:=1to 9do

if(a<>f)and(b<>f)and(c<>f)and(d<>f)and(e<>f)then

for g:=1to 9do

if(a<>g)and(b<>g)and(c<>g)and(d<>g)and(e<>g)and(f<>g)then

for h:=1to 9do

if(a<>h)and(b<>h)and(c<>h)and(d<>h)and(e<>h)and(f<>h)and(g<>h)then

begin

i:=45-a-b-c-d-e-f-g-h

if(a+b+c=15)and(d+e+f=15)and(g+h+i=15)and(a+d+g=15)and(b+e+h=15)and(c+f+i=15)and(a+e+i=15)and(c+e+g=15)

then begin

inc(z)

writeln(z,':')

writeln(a,' ',b,' ',c)

writeln(d,' ',e,' ',f)

writeln(g,' ',h,' ',i)

end

end

writeln(z)

end.

美图秀秀可以。

具体 *** 作步骤如下：

一、首先，打开美图秀秀，会看到有一个“美化图片”。

二、点击“美化图片”，这时会选择一张图片，点击“打开一张图片”。

三、选择好图片打开后，点击上方的更多功能中的“九格切图”。

四、这时就展示出已经切好的九宫格效果图了。

五、会看到左侧还有一些形状和特效，可以选择自己喜欢的效果图。

六、选择好了，就可以点击右下角的保存到本地，就可以了，如图所示。

---