怎么会CE啊,

var

        ch:char;

        s:string[11];

        n,m,i,j,k,p,r,ans,w,x,y:longint;

        a:array[0..21,1..4] of longint;

        b:array[0..21] of char;

        vis:array[0..11,'0'..'z'] of boolean;

        f:array[0..12] of longint;

        g:array[0..11,0..11] of char;

        c:array[0..11,1..2] of longint;

function check(x,y,t:longint):boolean;

var

        j:real;

begin

        if (x>=a[t,1])and(x=a[t,2])and(y

3 条评论

  • @ 2013-05-01 22:27:52

    前面加 type dds=string[11];
    procedure Print(t:longint;s:string[11]); 改为 procedure Print(t:longint;s:dds);

  • @ 2012-08-20 06:33:45

    大段代码请使用 http://paste.ubuntu.com/。。。

  • @ 2012-08-19 16:01:33

    上面没贴好,

    var 

                            ch:char; 

                            s:string[11]; 

                            n,m,i,j,k,p,r,ans,w,x,y:longint; 

                            a:array[0..21,1..4] of longint; 

                            b:array[0..21] of char; 

                            vis:array[0..11,'0'..'z'] of boolean; 

                            f:array[0..12] of longint; 

                            g:array[0..11,0..11] of char; 

                            c:array[0..11,1..2] of longint; 

    function check(x,y,t:longint):boolean; 

    var 

                            j:real; 

    begin 

                            if (x>=a[t,1])and(x=a[t,2])and(y

  • 1

信息

ID
1709
难度
8
分类
模拟 | 搜索 | 枚举 点击显示
标签
(无)
递交数
369
已通过
47
通过率
13%
上传者