我的24点

sxy

这种枚举法单对这个题倒是蛮实用..
如果要判断20个数能不能凑成24点,这种方法的代码就....

cc90042938

汗.......还可以啦....鼓励一下..

林的家人

10 PRINT "24点:1～99"
20 INPUT A,B,C,D
25 FOR I =1  TO 4:E =A:A =B:B =C:C =D =E
30 IF A =0  OR A >99  THEN 10
31 NEXT I:A$ ="+":B$ ="-":C$ ="*"$ ="/":E$ ="=24":F$ ="(":G$ =")"
32 IF A +B +C +D =24  THEN PRINT A;A$;B;A$;C;A$;D;E$
33 IF A *B *C *D =24  THEN PRINT A;C$;B;C$;C;C$;D;E$
39 FOR I =1  TO 4:E =A:A =B:B =C:C =D =E
40 FOR K =1  TO 3:E =B:B =C:C =D:D =E
41 FOR Q =1  TO 2:E =C:C =D:D =E
42 IF A +B -C -D =24  THEN PRINT A;A$;B;B$;C;B$;D;E$
43 IF A +B +C -D =24  THEN PRINT A;A$;B;A$;C;B$;D;E$
44 IF A *B +C -D =24  THEN PRINT A;C$;B;A$;C;B$;D;E$
45 IF A *B +C /D =24  THEN PRINT A;C$;B;A$;C;D$;D;E$
46 IF A *B *C +D =24  THEN PRINT A;C$;B;C$;C;A$;D;E$
47 IF A *B *C /D =24  THEN PRINT A;C$;B;C$;C;D$;D;E$
48 IF A *B *C -D =24  THEN PRINT A;C$;B;C$;C;B$;D;E$
49 IF A *B -C -D =24  THEN PRINT A;C$;B;B$;C;B$;D;E$
50 IF A *B /C -D =24  THEN PRINT A;C$;B;D$;C;B$;D;E$
51 IF A *B /C +D =24  THEN PRINT A;C$;B;D$;C;A$;D;E$
52 IF A *B -C /D =24  THEN PRINT A;C$;B;B$;C;D$;D;E$
53 IF A /B +C +D =24  THEN PRINT A;D$;B;A$;C;A$;D;E$
54 IF A /B -C -D =24  THEN PRINT A;D$;B;A$;C;B$;D;E$
55 IF A /B +C -D =24  THEN PRINT A;D$;B;A$;C;B$;D;E$
56 IF (A *B +C) *D =24  THEN PRINT F$;A;C$;B;A$;C;G$;C$;D;E$
57 IF (A *B +C) /D =24  THEN PRINT F$;A;C$;B;A$;C;G$;D$;D;E$
58 IF (A *B -C) *D =24  THEN PRINT F$;A;C$;B;B$;C;G$;C$;D;E$
59 IF (A /B +C) *D =24  THEN PRINT F$;A;D$;B;A$;C;G$;C$;D;E$
60 IF (A /B -C) /D =24  THEN PRINT F$;A;D$;B;B$;C;G$;D$;D;E$
61 IF (A /B +C) /D =24  THEN PRINT F$;A;D$;B;B$;C;G$;D$;D;E$
62 IF (A *B -C) /D =24  THEN PRINT F$;A;C$;B;B$;C;G$;D$;D;E$
63 IF (A *B +C) /D =24  THEN PRINT F$;A;C$;B;A$;C;G$;D$;D;E$
64 IF (A -B) *(C -D) =24  THEN PRINT F$;A;B$;B;G$;C$;F$;C;B$;D;G$;E$
65 IF C -D =0  THEN 70
66 IF (A +B) /(C -D) =24  THEN PRINT F$;A;A$;B;G$;D$;F$;C;B$;D;G$;E$
67 IF (A -B) /(C -D) =24  THEN PRINT F$;A;B$;B;G$;D$;F$;C;B$;D;G$;E$
68 IF (A *B) /(C -D) =24  THEN PRINT F$;A;C$;B;G$;D$;F$;C;B$;D;G$;E$
69 IF (A /B) /(C -D) =24  THEN PRINT F$;A;D$;B;G$;D$;F$;C;B$;D;G$;E$
70 NEXT Q
71 IF A *B +C *D =24  THEN PRINT A;C$;B;A$;C;C$;D;E$
72 IF A *B -C *D =24  THEN PRINT A;C$;B;B$;C;C$;D;E$
73 IF (A +B +C) /D =24  THEN PRINT F$;A;A$;B;A$;C;G$;D$;D;E$
74 IF (A +B -C) /D =24  THEN PRINT F$;A;A$;B;B$;C;G$;D$;D;E$
75 IF (A +B) *(C +D) =24  THEN PRINT F$;A;A$;B;G$;C$;F$;C;A$;D;G$;E$
76 IF (A -B) *(C +D) =24  THEN PRINT F$;A;B$;B;G$;C$;F$;C;A$;D;G$;E$
77 IF (A -B -C) /D =24  THEN PRINT F$;A;B$;B;B$;C;G$;D$;D;E$
78 IF (A +B +C) *D =24  THEN PRINT F$;A;A$;B;A$;C;G$;C$;D;E$
79 IF (A +B -C) *D =24  THEN PRINT F$;A;A$;B;B$;C;G$;C$;D;E$
80 IF (A -B -C) *D =24  THEN PRINT F$;A;B$;B;B$;C;G$;C$;D;E$
81 IF A /(B +C +D) =24  THEN PRINT A;D$;F$;B;A$;C;A$;D;G$;E$
83 IF A /(B +C *D) =24  THEN PRINT A;D$;F$;B;A$;C;C$;D;G$;E$
84 IF A /(B +C /D) =24  THEN PRINT A;D$;F$;B;A$;C;D$;D;G$;E$
85 IF A /(B *C +D) =24  THEN PRINT A;D$;F$;B;C$;C;A$;D;G$;E$
86 IF A /(B *C *D) =24  THEN PRINT A;D$;F$;B;C$;C;C$;D;G$;E$
87 IF B -C -D =0  THEN 89
88 IF A /(B -C -D) =24  THEN PRINT A;D$;F$;B;B$;C;B$;D;G$;E$
89 IF B -C *D =0  THEN 91
90 IF A /(B -C *D) =24  THEN PRINT A;D$;F$;B;B$;C;C$;D;G$;E$
91 IF B -C /D =0  THEN 93
92 IF A /(B -C /D) =24  THEN PRINT A;D$;F$;B;B$;C;D$;D;G$;E$
93 IF B *C -D =0  THEN 95
94 IF A /(B *C -D) =24  THEN PRINT A;D$;F$;B;C$;C;B$;D;G$;E$
95 IF B +C -D =0  THEN 99
96 IF A /(B +C -D) =24  THEN PRINT A;D$;F$;B;A$;C;B$;D;G$;E$
99 NEXT K : NEXT I