我快要死了..帮我吧,牛哥牛姐们

type

arr=array[1..4] of real;

var

s:string;

d:arr;

i,k,j:integer;

r:array[1..3,1..4] of real;

procedure try(k:integer;d:arr);

var

e:arr;

i,j,l,x:integer;

a,b,t:real;

begin

if k=1 then

if d[1]=24 then begin

write(1);

halt;

end;

for i:=1 to k-1 do

for j:=i+1 to k do

begin

a:=d[i];b:=d[j];

if a

5 条评论

  • @ 2009-07-27 07:37:55

    为什么

    把改成if s[j]='k' then ..就只有60分了,为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么为什么

  • @ 2009-07-27 07:21:48

    f s[j]='1')and(s[j]

  • @ 2009-07-26 20:12:16

    改正后只有40分,牛哥牛姐们帮忙看下...

    编译通过...

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

     ├ 错误行输出

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

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

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

     ├ 错误行输出

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

     ├ 错误行输出

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

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

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

     ├ 错误行输出

    ├ 测试数据 09:答案错误...  ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 10:答案错误...  ├ 标准行输出

     ├ 错误行输出

    type

    arr=array[1..4] of integer;

    var

    s:string;

    d:arr;

    i,k,j:integer;

    r:array[1..3,1..4] of integer;

    procedure try(k:integer;d:arr);

    var

    e:arr;

    i,j,l,x:integer;

    a,b,t:integer;

    begin

    if k=1 then

    if d[1]=24 then begin

    write(1);

    halt;

    end;

    for i:=1 to k-1 do

    for j:=i+1 to k do

    begin

    a:=d[i];b:=d[j];

    if a

  • @ 2009-07-26 19:40:48

    ????

    什么??????

    过不了,弄了一下午还是说超时.

    牛哥帮我发现原因吧!

  • @ 2009-07-26 13:56:13

    我的

    能AC的假AC程序

    如果过了话,请看24点狂想曲,你就知道你AC的是多么幸运

    #include

    #include

    #include

    using namespace std;

    float number[10];

    int search(int n)

    {

    int i,j;

    float a,b;

    if(n==1)

    {

    if(number[0]==24)

    return 1;

    else

    return 0;

    }

    for(i=0;i>c;

    number[i]=10;

    }

    else {

    number[i]=c-'0';}

    }

    if(search(4))

    cout

  • 1

信息

ID
1134
难度
8
分类
搜索 点击显示
标签
(无)
递交数
9082
已通过
852
通过率
9%
被复制
7
上传者