来自本人百度空间 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.