【09 NOIP 模拟】light

来自本人百度空间 2009-09-16 22:13

开灯(light.pas/c/cpp)

【题目描述】

        在一条无限长的路上，有一排无限长的路灯，编号为1，2，3，4，……。

        每一盏灯只有两种可能的状态，开或者关。如果按一下某一盏灯的开关，那么这盏灯的状态将发生改变。如果原来是开，将变成关。如果原来是关，将变成开。

        在刚开始的时候，所有的灯都是关的。

        小明每次可以进行如下的操作：

        指定两个数，a，t（a为实数，t为正整数）。将编号为[a]，[2*a]，[3*a]，……，[t*a]的灯的开关各按一次。其中[k]表示实数k的整数部分。

        在小明进行了n次操作后，小明突然发现，这个时候只有一盏灯是开的，小明很想知道这盏灯的编号，可是这盏灯离小明太远了，小明看不清编号是多少。

        幸好，小明还记得之前的n次操作。于是小明找到了你，你能帮他计算出这盏开着的灯的编号吗？

【输入格式】

        第一行一个正整数n，表示n次操作。

        接下来有n行，每行两个数，ai，ti。其中ai是实数，小数点后一定有6位，ti是正整数。

【输出格式】

        仅一个正整数，那盏开着的灯的编号。

【输入样例】

        3

        1.618034 13

        2.618034 7

        1.000000 21

【输出样例】

        20

【数据规模】

        记T=t1+t2+t3+……+tn。

        对于30%的数据，满足T<=1000

        对于80%的数据，满足T<=200000

        对于100%的数据，满足T<=2000000

        对于100%的数据，满足n<=5000，1<=ai<1000，1<=ti<=T

        数据保证，在经过n次操作后，有且只有一盏灯是开的，不必判错。

下面是自己给出的程序，仅仅是模拟，希望大牛看到后，可以指点小弟怎么优化~

program light(input,output);
var
        i,i1,j,k,n,t1,z1:longint;
        z:real;
        a:array[1..10000000] of real;
        b:array[1..10000000] of boolean;
        c:array[1..1000] of integer;
        t:array[1..10000000] of integer;

function change(z:real):longint;
var     i1:longint;
begin
        i1:=0;
        while i1<z do inc(i1);
        change:=i1;
end;{change}

begin
        assign(input,'light.in');
        reset(input);
        assign(output,'light.out');
        rewrite(output);

        readln(n);
        for i :=1 to n do
            readln(a[i],t[i]);
        close(input);

        k:=1;
        for i:=1 to n do writeln(a[i],' ',t[i]);
        fillchar(b,sizeof(b),false);
        for i:=1 to n do begin
            for j:=1 to t[i] do begin
                z:=int(a[i]*j);
                z1:=change(z);
                write('deng---->',z1,'        ');
                if z1>k then k:=z1;
                b[z1]:=not(b[z1]);
                for i1:=1 to k do write(b[i1]:8);
                writeln;
            end;
        end;{doit}
        t1:=0;
        for i:=1 to k do
            if b[i] then begin
                t1:=t1+1;
                c[t1]:=i;
            end;
        for i:=1 to t1 do writeln(c[i]);
        close(output);
end.

有些测试用的输出没有去除

左边的只过了7个点，后来发现，好像可以简化，下面的程序过了10个点
program light(input,output);
var
        i,i1,j,k,n,t1,z1:longint;
        z:real;
        a:array[1..200000000] of real;
        b:array[1..200000000] of boolean;
        c:array[1..1000] of integer;
        t:array[1..200000000] of integer;

function change(z:real):longint;
var     i1:longint;
begin
        i1:=0;
        while i1<z do inc(i1);
        change:=i1;
end;{change}

begin
        assign(input,'light.in');
        reset(input);
        assign(output,'light.out');
        rewrite(output);

        readln(n);
        for i :=1 to n do
            readln(a[i],t[i]);
        close(input);

        k:=1;
        fillchar(b,sizeof(b),false);
        for i:=1 to n do begin
            for j:=1 to t[i] do begin
                z:=int(a[i]*j);
                z1:=change(z);
                if z1>k then k:=z1;
                b[z1]:=not(b[z1]);
            end;
        end;{doit}
        t1:=0;
        for i:=1 to k do
            if b[i] then begin
                t1:=t1+1;
                c[t1]:=i;
            end;
        for i:=1 to t1 do writeln(c[i]);
        close(output);
end.