随机的加减法题
上面说明过的就不重复了
;Kdefnum=1
50 0 40 25637 0 0 0 0 ; 50(32):变量赋值 [X40]=25637
50 0 11 0 0 0 0 0 ; 50(32):变量赋值 [X11]=0
50 0 12 100 0 0 0 0 ; 50(32):变量赋值 [X12]=100
50 0 13 56 0 0 0 0 ; 50(32):变量赋值 [X13]=56
50 0 14 88 0 0 0 0 ; 50(32):变量赋值 [X14]=88
50 0 16 20 0 0 0 0 ; 50(32):变量赋值 [X16]=20
;:Label0
50 38 0 1000 10 0 0 0 ; 50(32):随机数 [X10]=Random(1000)
50 38 0 2 17 0 0 0 ; 50(32):随机数 [X17]=Random(2)〔随机加减〕
50 1 3 0 0 11 10 0 ; 50(32):数组变量赋值 数组0([X11])=[X10](Int)
50 1 3 0 6 11 17 0 ; 50(32):数组变量赋值 数组6([X11])=[X17](Int)
50 3 0 0 11 11 1 0 ; 50(32):四则运算 [X11]=[X11]+1
50 4 0 0 11 5 0 0 ; 50(32):变量判断 If[X11]<5 then JMP=0 else JMP=1
36 256 -52 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label0
50 38 0 1000 4 0 0 0 ; 50(32):随机数 [X4]=Random(1000)
50 9 1 100 40 0 0 0 ; 50(32):Sprintf Str100=Cstr([X0]) FORMAT=Str40
50 9 1 110 40 1 0 0 ; 50(32):Sprintf Str110=Cstr([X1]) FORMAT=Str40
50 9 1 120 40 2 0 0 ; 50(32):Sprintf Str120=Cstr([X2]) FORMAT=Str40
50 9 1 130 40 3 0 0 ; 50(32):Sprintf Str130=Cstr([X3]) FORMAT=Str40
50 9 1 140 40 4 0 0 ; 50(32):Sprintf Str140=Cstr([X4]) FORMAT=Str40
50 32 0 6 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X6]
50 3 1 0 5 0 1 0 ; 50(32):四则运算 [X5]=[X0]+[X1]
50 32 0 7 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X7]
50 3 1 0 5 5 2 0 ; 50(32):四则运算 [X5]=[X5]+[X2]
50 32 0 8 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X8]
50 3 1 0 5 5 3 0 ; 50(32):四则运算 [X5]=[X5]+[X3]
50 32 0 9 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X9]
50 3 1 0 5 5 4 0 ; 50(32):四则运算 [X5]=[X5]+[X4]
50 9 1 150 40 5 0 0 ; 50(32):Sprintf Str150=Cstr([X5]) FORMAT=Str40
50 3 0 2 20 6 2 0 ; 50(32):四则运算 [X20]=[X6]*2〔将Str20变成加减号的步骤,要全角改256,下面都要改〕
50 3 0 2 22 7 2 0 ; 50(32):四则运算 [X22]=[X7]*2
50 3 0 2 24 8 2 0 ; 50(32):四则运算 [X24]=[X8]*2
50 3 0 2 26 9 2 0 ; 50(32):四则运算 [X26]=[X9]*2
50 3 0 0 20 20 43 0 ; 50(32):四则运算 [X20]=[X20]+43〔要全角改-12383,上面都要改〕
50 3 0 0 22 22 43 0 ; 50(32):四则运算 [X22]=[X22]+43
50 3 0 0 24 24 43 0 ; 50(32):四则运算 [X24]=[X24]+43
50 3 0 0 26 26 43 0 ; 50(32):四则运算 [X26]=[X26]+43
50 34 0 40 70 250 20 -1 ; 50(32):处理背景 位置(40,70) Width=250 Height=20
;:Label1
50 32 0 12 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X12]
50 33 1 100 13 72 1797 0 ; 50(32):显示字符串 显示字符串100 ([X13],72)Color1797
50 32 0 16 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X16]
50 33 1 20 14 72 1797 0 ; 50(32):显示字符串 显示字符串20 ([X14],72)Color1797
50 3 0 0 12 12 10 0 ; 50(32):四则运算 [X12]=[X12]+10
50 3 0 0 13 13 48 0 ; 50(32):四则运算 [X13]=[X13]+48
50 3 0 0 14 14 48 0 ; 50(32):四则运算 [X14]=[X14]+48
50 3 0 0 16 16 2 0 ; 50(32):四则运算 [X16]=[X16]+2
50 4 0 0 12 140 0 0 ; 50(32):变量判断 If[X12]<140 then JMP=0 else JMP=1
36 256 -76 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label1
50 33 0 140 248 72 1797 0 ; 50(32):显示字符串 显示字符串140 (248,72)Color1797
50 37 0 7000 0 0 0 0 ; 50(32):延时 延时7000
0 ; 0(0)::空语句(清屏)
50 8 0 2980 200 0 0 0 ; 50(32):读对话到字符串 Str200=talk(2980)
50 8 0 2981 210 0 0 0 ; 50(32):读对话到字符串 Str210=talk(2981)
50 8 0 2982 220 0 0 0 ; 50(32):读对话到字符串 Str220=talk(2982)
50 8 0 2983 230 0 0 0 ; 50(32):读对话到字符串 Str230=talk(2983)
50 34 0 100 70 130 24 -1 ; 50(32):处理背景 位置(100,70) Width=130 Height=24
50 33 0 200 108 72 26211 0 ; 50(32):显示字符串 显示字符串200 (108,72)Color26211
50 35 50 0 0 0 0 0 ; 50(32):读取键盘 [X50]=键值
0 ; 0(0)::空语句(清屏)
50 34 0 100 70 130 24 -1 ; 50(32):处理背景 位置(100,70) Width=130 Height=24
50 33 0 210 108 72 26211 0 ; 50(32):显示字符串 显示字符串210 (108,72)Color26211
50 35 51 0 0 0 0 0 ; 50(32):读取键盘 [X51]=键值
0 ; 0(0)::空语句(清屏)
50 34 0 100 70 130 24 -1 ; 50(32):处理背景 位置(100,70) Width=130 Height=24
50 33 0 220 108 72 26211 0 ; 50(32):显示字符串 显示字符串220 (108,72)Color26211
50 35 52 0 0 0 0 0 ; 50(32):读取键盘 [X52]=键值
0 ; 0(0)::空语句(清屏)
50 34 0 100 70 130 24 -1 ; 50(32):处理背景 位置(100,70) Width=130 Height=24
50 33 0 230 108 72 26211 0 ; 50(32):显示字符串 显示字符串230 (108,72)Color26211
50 35 53 0 0 0 0 0 ; 50(32):读取键盘 [X53]=键值
0 ; 0(0)::空语句(清屏)
50 3 0 1 50 50 48 0 ; 50(32):四则运算 [X50]=[X50]-48
50 3 0 1 51 51 48 0 ; 50(32):四则运算 [X51]=[X51]-48
50 3 0 1 52 52 48 0 ; 50(32):四则运算 [X52]=[X52]-48
50 3 0 1 53 53 48 0 ; 50(32):四则运算 [X53]=[X53]-48
50 3 0 2 50 50 1000 0 ; 50(32):四则运算 [X50]=[X50]*1000
50 3 0 2 51 51 100 0 ; 50(32):四则运算 [X51]=[X51]*100
50 3 0 2 52 52 10 0 ; 50(32):四则运算 [X52]=[X52]*10
50 3 1 0 55 50 51 0 ; 50(32):四则运算 [X55]=[X50]+[X51]
50 3 1 0 55 55 52 0 ; 50(32):四则运算 [X55]=[X55]+[X52]
50 3 1 0 55 55 53 0 ; 50(32):四则运算 [X55]=[X55]+[X53]
;:Label2
50 0 28 30 0 0 0 0 ; 50(32):变量赋值 [X28]=30〔表格用〕
50 0 29 32 0 0 0 0 ; 50(32):变量赋值 [X29]=32〔表格用〕
50 0 30 -16475 0 0 0 0 ; 50(32):变量赋值 [X30]=-16475〔Str30就是"正"字〕
50 0 32 29869 0 0 0 0 ; 50(32):变量赋值 [X32]=29869〔Str32就是"負"字〕
50 34 0 144 60 36 44 -1 ; 50(32):处理背景 位置(144,60) Width=36 Height=44
50 39 0 2 28 40 150 66 ; 50(32):菜单选择 菜单个数2Str28()返回=[X40]显示位置(150,66)
50 4 0 2 40 0 0 0 ; 50(32):变量判断 If[X40]=0 then JMP=0 else JMP=1
36 256 -60 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label2〔按Esc无效〕
50 4 0 2 40 1 0 0 ; 50(32):变量判断 If[X40]=1 then JMP=0 else JMP=1
36 256 69 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label3〔选正的去Label3,选负的继续〕
50 3 0 2 60 5 2 0 ; 50(32):四则运算 [X60]=[X5]*2〔负转方便正查答案〕
50 3 1 1 61 5 60 0 ; 50(32):四则运算 [X61]=[X5]-[X60]
50 4 1 2 61 55 0 0 ; 50(32):变量判断 If[X61]=[X55] then JMP=0 else JMP=1
36 256 0 16 ; 36(24):跳转变量JMP是否为0否则跳转到:Label4
50 0 15 2978 0 0 0 0 ; 50(32):变量赋值 [X15]=2978
50 32 0 15 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X15]
;:Label4
50 8 0 2979 250 0 0 0 ; 50(32):读对话到字符串 Str250=talk(2979)
50 11 260 250 150 0 0 0 ; 50(32):字符串合并 Str260=Str250+Str150
50 36 0 260 108 72 26211 0 ; 50(32):显示字符串并等待击键 显示字符串260 (108,72)Color26211
-1 ; -1(FFFF):事件结束
;:Label3
50 4 1 2 5 55 0 0 ; 50(32):变量判断 If[X5]=[X55] then JMP=0 else JMP=1
36 256 0 16 ; 36(24):跳转变量JMP是否为0否则跳转到:Label5
50 0 15 2978 0 0 0 0 ; 50(32):变量赋值 [X15]=2978
50 32 0 15 3 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数3=[X15]
;:Label5
50 8 0 2979 250 0 0 0 ; 50(32):读对话到字符串 Str250=talk(2979)
50 11 260 250 150 0 0 0 ; 50(32):字符串合并 Str260=Str250+Str150
50 36 0 260 108 72 26211 0 ; 50(32):显示字符串并等待击键 显示字符串260 (108,72)Color26211
-1 ; -1(FFFF):事件结束
[ 本帖最后由 x0x 于 2007-1-19 10:05 编辑 ] |