主题：NOIP2005 的 答案
想飞の菜鸟
[专家分：0] 发布于 2005-12-15 13:04:00
[em18]
本人参加NOIP2005复赛，不知各位赛友答案如何？我得了200多分，但第3题我认为是对的，不知各位赛友答案如何？请上贴！
回复列表 （共10个回复）
沙发
blackmark [专家分：210] 发布于 2005-12-24 23:49:00
那欢迎到我们学校来参加冬令营啊！
板凳
想飞の菜鸟 [专家分：0] 发布于 2005-12-25 11:02:00
?????????
3 楼
想飞の菜鸟 [专家分：0] 发布于 2005-12-25 11:03:00
拜托，我才小学
4 楼
想飞の菜鸟 [专家分：0] 发布于 2005-12-25 11:09:00
你是哪儿的？？
5 楼
rolandlee [专家分：40] 发布于 2006-01-02 19:48:00
第三题 其实就是冒泡
6 楼
林记 [专家分：1680] 发布于 2006-01-02 22:54:00
第三题,动态
7 楼
michaellyz [专家分：270] 发布于 2006-01-13 17:49:00
上海普及:var
a : array[0..1000] of longint;
t,m,i,j,x,y : longint;
begin
assign(input,'medic.in'); reset(input);
assign(output,'medic.out'); rewrite(output);
readln(t,m);
fillchar(a,sizeof(a),0);
for i := 1 to m do begin
readln(x,y);
for j := t-x downto 0 do
if a[j]+y > a[j+x] then a[j+x] := a[j]+y;
end;
writeln(a[t]);
close(input); close(output);
end.
8 楼
michaellyz [专家分：270] 发布于 2006-01-13 17:50:00
上海提高:const
max = 50000;
var
a,t : array[0..max] of longint;
b : array[1..max,1..2] of longint;
i,k,n,maxn : longint;
procedure p_end;
begin
close(input); close(output); halt;
end;
begin
assign(input,'fire.in'); reset(input);
assign(output,'fire.out'); rewrite(output);
readln(n);
for i := 1 to n do readln(b[i,1],b[i,2]);
a[0] := 1; k := 1;
for i := 1 to n do begin
a[i] := b[a[i-1],k];
if b[a[i],1] = a[i-1]
then k := 2
else if b[a[i],2] = a[i-1]
then k := 1
else begin writeln(-1); p_end; end;
if (i < n) and (a[i] = 1) then begin writeln(-1); p_end; end;
end;
if a[n] <> 1 then begin writeln(-1); p_end; end;
fillchar(t,sizeof(t),0);
for i := 1 to n do inc(t[(a[i]-i+n)mod n]);
maxn := 0;
for i := 0 to n-1 do if t[i] > maxn then maxn := t[i];
fillchar(t,sizeof(t),0);
for i := 1 to n do inc(t[(a[i]+i)mod n]);
for i := 0 to n-1 do if t[i] > maxn then maxn := t[i];
writeln(n-maxn);
p_end;
end.
9 楼
zjszsyn [专家分：0] 发布于 2006-03-02 16:56:00
有回吗
10 楼
编程黑客 [专家分：1660] 发布于 2006-03-14 22:28:00
能说说题目吗?我没有考试耶!
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — NOIP2005 的 答案