出什么错

Var a,b,c,d,e,f,g,h,i,j,k,l,m,n,O,T,W,U,R,S,Y,x:longint;

begin

readln(a,b);

readln(c,d);

readln(e,f);

readln(g,h);

readln(i,j);

readln(k,l);

readln(m,n);

O:=b+a;

T:=c+d;

W:=e+f;

U:=g+h;

R:=i+j;

S:=k+l;

Y:=m+n;

if T>O then x:=2 else x:=1;

if W>T then x:=3 else x:=2;

if U>W then x:=4 else x:=3;

if R>U then x:=5 else x:=4;

if SS then x:=7 else x:=6;

writeln(x);

end.

2 条评论

  • @ 2014-07-25 15:00:49

    var
    i,s,sx,a,b:longint;
    begin
    s:=0;
    sx:=8;
    for i:=1 to 7 do
    begin
    readln (a,b);
    if a+b>sx then
    begin
    sx:=a+b;
    s:=i;
    end;
    end;
    write (s);
    end.

  • @ 2010-03-15 10:34:59

    你是才学吧..我大概知道你是哪里错了..

    Var a,b,c,d,e,f,g,h,i,j,k,l,m,n,O,T,W,U,R,S,Y,x:longint;

    begin

    readln(a,b);

    readln(c,d);

    readln(e,f);

    readln(g,h);

    readln(i,j);

    readln(k,l);

    readln(m,n);

    O:=b+a;

    T:=c+d;

    W:=e+f;

    U:=g+h;

    R:=i+j;

    S:=k+l;

    Y:=m+n;

    if T>O then x:=2 else x:=1;

    if W>T then x:=3 else x:=2;

    if U>W then x:=4 else x:=3;

    if R>U then x:=5 else x:=4;

    if SS then x:=7 else x:=6;

    writeln(x);

    end.

    我只举一个例子..

    如果O>W>T>U>S>R>Y

    那么 你的程序会输出3而不是1.

    但实际上答案是1..

    你这样的枚举不但会使你的程序看起很丑..而且会漏掉很多情况..

    我建议你最好用一个循环做..

    如果不懂.. 可以加我QQ 529989111

  • 1

信息

ID
1113
难度
2
分类
模拟 点击显示
标签
递交数
11398
已通过
6744
通过率
59%
被复制
39
上传者