var n,i,j,p,f:integer;
a7:array[1..900] of string;
t:string;
procedure to7(x:integer; var s:string);
var xx:integer;
c:char;
begin
xx:=x;
while xx<>0 do begin
c:=chr(xx mod 7+48);
s:=c+s;
xx:=xx div 7;
end;
end;
function to2(xx,yy:string):string;
var i,l1,l2,l:integer;
x,y,f:string;
begin
f:=''; x:=xx; l1:=length(x); y:=yy; l2:=length(y);
if l1>l2 then begin
for i:=1 to l1-l2 do y:='0'+y;
l:=l1;
end else if l2>l1 then begin
for i:=1 to l2-l1 do x:='0'+x;
l:=l2;
end;
for i:=1 to l do
if x[i]=y[i] then f:=f+'0' else f:=f+'1';
to2:=f;
end;
function to10(x:string):integer;
var l,i,m,f:integer;
begin
m:=1; f:=0; l:=length(x);
for i:=1 to l do begin
if x[i]='1' then inc(f,m);
m:=m shl 1;
end;
to10:=f;
end;
begin
readln(n); f:=maxint;
for i:=1 to n do begin read(p); to7(p,a7[i]); end;
for i:=1 to n-1 do
for j:=i+1 to n do begin
t:=to2(a7[i],a7[j]);
p:=to10(t);
if abs(p-123)<abs(f-123) then f:=p;
end;
writeln(f);
end.
状态: Unaccepted
测评机： Xeost[5]
得分： 0分
提交日期： 2012-6-23 9:50:00
有效耗时： 该状态没有记录
测试结果1: 选手程序运行超过时限
测试结果2: 选手程序无输出
测试结果3: 选手程序无输出
测试结果4: 选手程序运行超过时限
测试结果5: 选手程序无输出
测试结果6: 选手程序无输出
测试结果7: 选手程序无输出
测试结果8: 选手程序运行超过时限
测试结果9: 选手程序无输出
测试结果10: 选手程序无输出
又是超时又是无输出的。。。。。。。。。。。。。
第二次提交，只在21行多加了个l:=l1
var n,i,j,p,f:integer;
a7:array[1..900] of string;
t:string;
procedure to7(x:integer; var s:string);
var xx:integer;
c:char;
begin
xx:=x;
while xx<>0 do begin
c:=chr(xx mod 7+48);
s:=c+s;
xx:=xx div 7;
end;
end;
function to2(xx,yy:string):string;
var i,l1,l2,l:integer;
x,y,f:string;
begin
f:=''; x:=xx; l1:=length(x); y:=yy; l2:=length(y); l:=l1;
if l1>l2 then begin
for i:=1 to l1-l2 do y:='0'+y;
l:=l1;
end else if l2>l1 then begin
for i:=1 to l2-l1 do x:='0'+x;
l:=l2;
end;
for i:=1 to l do
if x[i]=y[i] then f:=f+'0' else f:=f+'1';
to2:=f;
end;
function to10(x:string):integer;
var l,i,m,f:integer;
begin
m:=1; f:=0; l:=length(x);
for i:=1 to l do begin
if x[i]='1' then inc(f,m);
m:=m shl 1;
end;
to10:=f;
end;
begin
readln(n); f:=maxint;
for i:=1 to n do begin read(p); to7(p,a7[i]); end;
for i:=1 to n-1 do
for j:=i+1 to n do begin
t:=to2(a7[i],a7[j]);
p:=to10(t);
if abs(p-123)<abs(f-123) then f:=p;
end;
writeln(f);
end.
状态: Accepted
测评机： Xeond[6]
得分： 100分 [我要评价一下题目~]
提交日期： 2012-6-23 9:57:00
有效耗时： 3282毫秒
测试结果1: 通过本测试点|有效耗时390ms
测试结果2: 通过本测试点|有效耗时219ms
测试结果3: 通过本测试点|有效耗时297ms
测试结果4: 通过本测试点|有效耗时343ms
测试结果5: 通过本测试点|有效耗时250ms
测试结果6: 通过本测试点|有效耗时313ms
测试结果7: 通过本测试点|有效耗时391ms
测试结果8: 通过本测试点|有效耗时281ms
测试结果9: 通过本测试点|有效耗时407ms
测试结果10: 通过本测试点|有效耗时391ms
就完美AC了。。。。。。。。。。。。。