【不定期训练NO.0096】模拟九宫格

zz928065651

笨方法

我i是小白

新手光是9个格子就不知道怎么弄出来。。。想学习下别人的源码

梦寻简单

梦寻简单 发表于 2018-7-25 18:57
已修改

这解法不一定是最优解
提示空的问题，修改后的那个应该可以

梦寻简单

梦寻简单 发表于 2018-7-25 16:05
可解的判断已做修改
同时修正了一个BUG.

已修改   

梦寻简单

九宫格拼图1.0.rar (10.9 KB, 下载次数: 16)

2018-7-25 18:55 上传

点击文件名下载附件
可解的判断已做修改
同时修正了一个BUG.

特超级大忽悠

好像没说不让用高级表格。。。

lonelywatcher

6666666666666666666

梦寻简单

九宫格拼图.rar (17.37 KB, 下载次数: 2)

2018-7-24 08:56 上传

点击文件名下载附件

m105766

1. .版本 2
   
2. 
   
3. .数据类型 point
   
4.     .成员 x, 整数型
   
5.     .成员 y, 整数型
   
6. 
   
7. .程序集 程序集1
   
8. 
   
9. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
10. 
    
11. 载入 (窗口1, , 真)
    
12. 返回 (0)  ' 可以根据您的需要返回任意数值
    
13. 
    
14. .程序集 窗口程序集_窗口1
    
15. .程序集变量 标签数组, 标签, , "3,3"
    
16. .程序集变量 空, point
    
17. 
    
18. .子程序 _窗口1_创建完毕
    
19. .局部变量 i, 整数型
    
20. 
    
21. .计次循环首 (9, i)
    
22.     标签数组 [i] ＝ 取标记组件 (i)
    
23. .计次循环尾 ()
    
24. 初始化游戏 ()
    
25. 
    
26. .子程序 _窗口1_可否被关闭, 逻辑型
    
27. 
    
28. 初始化游戏 ()
    
29. 返回 (信息框 (“是否重新开始?”, 36, “窗口即将关闭”, ) ≠ 5)
    
30. 
    
31. .子程序 _窗口1_按下某键, 逻辑型
    
32. .参数 键代码, 整数型
    
33. .参数 功能键状态, 整数型
    
34. .局部变量 tmp, 文本型
    
35. 
    
36. .判断开始 (功能键状态 ≠ 0)
    
37.     返回 ()
    
38. .判断 (键代码 ＝ 37 且 空.y ＜ 3)  ' #左光标键
    
39.     标签数组 [空.x] [空.y].标题 ＝ 标签数组 [空.x] [空.y ＋ 1].标题
    
40.     标签数组 [空.x] [空.y ＋ 1].标题 ＝ “”
    
41.     空.y ＝ 空.y ＋ 1
    
42. .判断 (键代码 ＝ 38 且 空.x ＜ 3)  ' #上光标键
    
43.     标签数组 [空.x] [空.y].标题 ＝ 标签数组 [空.x ＋ 1] [空.y].标题
    
44.     标签数组 [空.x ＋ 1] [空.y].标题 ＝ “”
    
45.     空.x ＝ 空.x ＋ 1
    
46. .判断 (键代码 ＝ 39 且 空.y ＞ 1)  ' #右光标键
    
47.     标签数组 [空.x] [空.y].标题 ＝ 标签数组 [空.x] [空.y － 1].标题
    
48.     标签数组 [空.x] [空.y － 1].标题 ＝ “”
    
49.     空.y ＝ 空.y － 1
    
50. .判断 (键代码 ＝ 40 且 空.x ＞ 1)  ' #下光标键
    
51.     标签数组 [空.x] [空.y].标题 ＝ 标签数组 [空.x － 1] [空.y].标题
    
52.     标签数组 [空.x － 1] [空.y].标题 ＝ “”
    
53.     空.x ＝ 空.x － 1
    
54. .默认
    
55. 
    
56. .判断结束
    
57. 
    
58. 
    
59. 
    
60. .子程序 初始化游戏
    
61. .局部变量 临时文本, 文本型, , "9"
    
62. .局部变量 文本数组b, 文本型
    
63. .局部变量 i, 整数型
    
64. .局部变量 j, 整数型
    
65. 
    
66. 临时文本 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9” }
    
67. 置随机数种子 ()
    
68. .计次循环首 (9, i)
    
69.     j ＝ 取随机数 (1, 10 － i)
    
70.     标签数组 [i].标题 ＝ 临时文本 [j]
    
71.     删除成员 (临时文本, j, 1)
    
72. .计次循环尾 ()
    
73. .计次循环首 (3, i)
    
74.     .计次循环首 (3, j)
    
75.         .如果真 (标签数组 [i] [j].标题 ＝ “9”)
    
76.             标签数组 [i] [j].标题 ＝ “”
    
77.             空.x ＝ i
    
78.             空.y ＝ j
    
79.             返回 ()
    
80.         .如果真结束
    
81. 
    
82.     .计次循环尾 ()
    
83. .计次循环尾 ()
    
84. 
    

复制代码

Onsxsen

九宫格.e (8.22 KB, 下载次数: 12)

2018-7-23 00:12 上传

点击文件名下载附件