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、右键单击运行