A语言程序的编写

1、打开A语言编译器

2、输入代码

声明变量con1,con2 是 数组[1..20] 为 逻辑型;  con3,con4 是 数组[-40..40] 为 逻辑型;  ans 是 数组[1..20,1..20] 为 逻辑型;  i,j,k,l,n,m是l整数;过程 print;声明变量  i,j:l整数;开始  让 i  从 1 到 n 执行  开始    让 j 从1 到 n 执行     如果 ans[i,j] 则        输出('X ')      否则        输出('O ');    换行输出;  结束  换行输出;结束

子程序 check(i,j是l整数) 是 逻辑型;开始  返回((con1[i]) 或者 (con2[j]) 或者 (con3[i-j]) 或者 (con4[i+j]));结束

过程 dfs(x是 l整数);声明变量  i,j 是 l整数;开始  如果 x > n 则  开始    inc(m);    print;    返回; 结束

  让 i从1 到 n 执行    如果 不 check(x,i) 则    开始      con1[x]=真;      con2[i]=真;      con3[x-i]=真;      con4[x+i]=真;      ans[x,i]=真;      dfs(x+1);      con1[x]=假;      con2[i]=假;      con3[x-i]=假;      con4[x+i]=假;      ans[x,i]=假;结束

结束开始  换行输入(n);  dfs(1);  换行输出(m)主程序结束      ;

3、右键单击运行