题解 - Vijos

0

葱_头 LV 10 @ 2008-11-01 17:33:13

R987989 Accepted 100 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 17:30:22

R987975 Unaccepted 80 From 葱_头－

　P1134 FPC Vag 6K 2008-11-1 17:27:05

R987952 Unaccepted 80 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 17:21:54

R987947 Unaccepted 80 From 葱_头－

　P1134 FPC Vag 6K 2008-11-1 17:20:52

R987927 Unaccepted 70 From 葱_头－

　P1134 FPC Vag 6K 2008-11-1 17:15:08

R987924 Unaccepted 0 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 17:13:56

R987908 Unaccepted 70 From 葱_头－

　P1134 FPC Vijos Dragon 2008-11-1 17:10:26

R987889 Unaccepted 60 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 17:06:46

R987875 Unaccepted 70 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 17:02:08

R987853 Unaccepted 60 From 葱_头－

　P1134 FPC Vijos Dolphin 2008-11-1 16:59:00

为了此题贡献了2点AC率....

不是数字的扑克牌有 A J Q K

我忘了A 所以错了后面的5次 ...对于运算考虑到所有的情况

下面 Kidst 说的很好 ....

哭 = =

0

蓝皮猪 LV 3 @ 2008-10-31 08:55:03

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

好爽；；

0

lemon_cn LV 3 @ 2008-10-23 13:33:47

除法前判断一步有没有余数

没有余数再除

0

酱紫 LV 3 @ 2008-10-21 21:42:15

var i:integer;

p:boolean;

x:array[1..4] of real;

ch:char;

procedure dfs;

var i,j,k,num:integer;

p2:boolean;

c1,c2:real;

begin

num:=0;

j:=0; p2:=false;

for i:=1 to 4 do

begin

if x[i]=-maxint then inc(num);

if abs(x[i]-24)

0

牛超 LV 6 @ 2008-10-18 20:07:02

其实蛮短的

0

曹操 LV 8 @ 2008-10-15 15:30:56

var

d,a:real;

b:array[1..4] of real;

s:string;

i,j,k,tot:integer;

procedure done(wei:integer);

var

i1,j1,k1,l:integer;

x,y:real;

begin

if wei=4 then begin

for l:=1 to 4 do

if (abs(b[l]-24)

0

Iek.Chan LV 4 @ 2008-10-13 20:21:45

45行。。

AC鹅。。

我不说话了。。

0

zhangbo0216 LV 5 @ 2008-10-12 09:38:55

楼下正解

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

0

24点测试机 LV 3 @ 2008-10-11 11:40:22

Var

s:String;

x:Array[1..3] Of Integer;

y:Integer;

Begin

ReadLn(s);

Randomize;

x[1]:=random(2);

x[2]:=random(2);

x[3]:=random(2);

y:=random(4)+1;

WriteLn(x[y]);

End.

0

DFS LV 8 @ 2008-10-10 17:51:43

1是用‘A'表示的！！！！WA在这里了！！

（加上这一句正好200行。）

枚举四个数的排列顺序

枚举四个数的运算顺序

枚举三个运算符

0ms Ac

var

aa,bb,cc,dd,i,p,can:integer;

s,s1:string;

n:array[1..4]of integer;

procedure work(a,b,c,d:integer);

var

ab,bc,cd,abc,bcd,abcd:real;

op1,op2,op3:integer;

begin

{1}for op1:=1 to 4 do

begin

case op1 of

1:ab:=a+b;

2:ab:=a-b;

3:ab:=a*b;

4:if b=0 then continue else ab:=a/b;

end;

for op2:=1 to 4 do

begin

case op2 of

1:abc:=ab+c;

2:abc:=ab-c;

3:abc:=ab*c;

4:if c=0 then continue else abc:=ab/c;

end;

for op3:=1 to 4 do

begin

case op3 of

1:abcd:=abc+d;

2:abcd:=abc-d;

3:abcd:=abc*d;

4:if d=0 then continue else abcd:=abc/d;

end;

if abs(abcd-24)

0

唐钰小宝 LV 10 @ 2008-10-08 23:11:35

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

dfs0ms!大胆的搜吧！

0

ltw LV 7 @ 2008-10-06 18:34:19

问个问题：是否限制中间运算结果必须为整数？

比如说：1 5 5 5

(5-(1/5))*5=24

这样中间结果有小数出现，是否允许？

0

clnmsq LV 3 @ 2009-09-22 12:37:36

我是当年的cln love msq

世纪第一程序，只得80分啊。。。。。。。。。。。

var

long,i,j,k,l:integer;

bool:boolean;

num:real;

s:string;

a:array[1..4] of integer;

b:array[1..4] of boolean;

begin

randomize;

readln(s);

s:=s+' ';

long:=length(s);

j:=1;

k:=1;

for i:=1 to long do

if copy(s,i,1)=' '

then begin

if copy(s,j,i-j)='A' then a[k]:=1

else if copy(s,j,i-j)='2' then a[k]:=2

else if copy(s,j,i-j)='3' then a[k]:=3

else if copy(s,j,i-j)='4' then a[k]:=4

else if copy(s,j,i-j)='5' then a[k]:=5

else if copy(s,j,i-j)='6' then a[k]:=6

else if copy(s,j,i-j)='7' then a[k]:=7

else if copy(s,j,i-j)='8' then a[k]:=8

else if copy(s,j,i-j)='9' then a[k]:=9

else if copy(s,j,i-j)='10' then a[k]:=10

else if copy(s,j,i-j)='J' then a[k]:=11

else if copy(s,j,i-j)='Q' then a[k]:=12

else if copy(s,j,i-j)='K' then a[k]:=13;

j:=i+1;

inc(k);

end;

repeat

inc(l);

i:=random(3)+1; j:=random(3)+1; k:=random(3)+1;

if i=1 then num:=a[1]+a[2] else if i=2 then num:=a[1]-a[2] else if i=3 then num:=a[1]*a[2] else num:=a[1]/a[2];

if j=1 then num:=num+a[3] else if j=2 then num:=num-a[3] else if j=3 then num:=num*a[3] else num:=num/a[3];

if k=1 then num:=num+a[4] else if k=2 then num:=num-a[4] else if i=3 then num:=num*a[4] else num:=num/a[4];

if (num=24) or (abs(num-24)

0

boyzkk LV 10 @ 2008-09-25 19:45:29

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

可能我的方法有点烦了：先枚举4个数的全排列，然后每次作一个深度为3的搜索，枚举每两个数之间的符号。

0

zkkmj LV 8 @ 2008-09-25 19:41:02

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：运行时错误...| 错误号: 200 | 被零除

├ 测试数据 08：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

编译通过...

├ 测试数据 01：答案错误...程序输出比正确答案长

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...程序输出比正确答案长

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...程序输出比正确答案长

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

?

把调试的东西输出了，但是：

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案错误...　├ 标准行输出 0

　├ 错误行输出 1

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

WHY？

原来是我读入写错了，饿

AC，

0

LV.唱响 LV 8 @ 2008-09-23 12:13:59

...

晕，原来1用A来代替的...

没注意，给WA了两次...

改了之后就给A了...

5KB的程序，超级WS!

0

孤独的鹰 LV 8 @ 2008-09-19 11:47:47

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

楼下是我大号

0

sto LV 9 @ 2008-09-19 11:46:30

写恶心了。再水的题都不要轻视。本人wa了n次

澳淄楼下的大牛

ps：楼上是我小号

0

Gessica$ LV 8 @ 2008-09-19 11:10:53

24点问题题解

By Gessica$

今天做了一个24点问题，经LBN的指点，采用一个暴力搜索的方法。这个题很多人认为由于顺序不定而且要加括号，所以在处理时会很麻烦。但是仔细分析一下，这个题的数字无序，可以加括号。虽然条件多，但是同时也是一个“宽松”的条件。因为这样，我们可以将算法变为任意枚举两个数字进行运算，直到枚举到只剩下一个为止，这样编程的复杂度就简单多了。（Orz LBN）

代码如下：

Proceudre cal(p,x:longint; f:arrtype);

Var I,j,k:longint;

B:arrtype;

Begin

If p=4 then

Begin

If x=24 then print(1);

Exit;

End;

For i:=1 to 4 do

If f[i]0 then

For j:=1 to 4 do

If (ij)and(f[j]0) then

For k:=1 to 4 do

Case k of

1:begin

B:=f;

B[i]:=b[i]+b[j];

Cal(p+1,b[i],b);

end;

2:begin

B:=f;

B[i]:=b[i]-b[j];

Cal(p+1,b[i],b);

end;

3:begin

B:=f;

B[i]:=b[i]*b[j];

Cal(p+1,b[i],b);

End;

4:begin

B:=f;

If b[i] mod b[j] =0 then

Begin

B[i]:=b[i] div b[j];

Cal(p+1,b[i],b);

End;

End;

End;

End;

虽然比较长但是好写，一遍AC。

有时题目的条件多，但是也会留出一个余地。

0

Wzm LV 3 @ 2008-09-17 22:13:58

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

最暴力的DFS也0ms，大家放心搜

题解

170 条题解

24点游戏

信息

状态

开发

支持

题解

170 条题解

24点游戏

信息

状态

开发

支持

还没有账户？

登录