104 条题解
-
0
jiangyue LV 9 @ 2009-10-24 10:23:35
- -题目看不懂,怎么办- -...!
-
0
myyqq_1993 LV 8 @ 2009-09-16 15:40:05
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
var m,n,i,j,sum,max,step,gx:longint;
f,a,pre:array[0..20,0..20]of longint;
s:array[0..20,0..8000]of boolean;
tmp:array[0..400]of longint;
tj:array[0..20]of longint;
flag:boolean;
begin
read(m,n);
for i:=1 to n*m dobegin
read(tmp[i]);
end;
for i:=1 to n do
for j:=1 to m do
begin
read(a);//i GJ j GX a Pro
end;
for i:=1 to n do
for j:=1 to m do
read(f);for step:=1 to n*m do
begin
flag:=false;
tj[tmp[step]]:=tj[tmp[step]]+1;
gx:=tj[tmp[step]];
sum:=0;
for i:=1 to 8000 do
begin
if (s[a[tmp[step],gx],i]=false)and(i>pre[tmp[step],gx]) then
sum:=sum+1 else sum:=0;
if sum=f[tmp[step],gx] then
begin
pre[tmp[step],gx+1]:=i;
for j:=i downto i-sum+1 do
begin
s[a[tmp[step],gx],j]:=true;
end;
flag:=true;
end;
if flag then break;
end;
end;
max:=-1;
for i:=1 to m do
begin
for j:=8000 downto 1 do
begin
if s=true then
begin
if j>max then max:=j;
break;
end;
end;
end;
writeln(max);
end.
---|---|---|---|---|--
秒杀 哈哈 -
0
program jsp;
type box=record
w,v:array[1..20] of byte;
last:integer;
end;
var g:array[1..20] of box;
ma:array[1..20,1..400] of boolean;
tail:array[1..20] of integer;
x:array[1..400] of integer;
now:array[1..20] of integer;
n,m:byte;
k,i,j:integer;
procedure hunt(t:byte);
var i,j:integer;can:boolean;
begin
i:=g[t].last+1;
while itail[g[x[i]].v[now[x[i]]]] then tail[g[x[i]].v[now[x[i]]]]:=j;
end;
j:=0;
for i:=1 to m do if j -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms其实这道题不难，只要读懂题就能做出来，很简单的模拟
我用c++写，第六组数据竟然神奇的过了
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms贴一下
也许能帮助一些被这道题目搞得稀里糊涂的可怜人（譬如我）看懂这道题目好可恶的题目 先是看这道题目花费了大半时间（超过1个小时？）
题目中这样描述：
例如，当n=3，m=2时，“1-1，1-2，2-1，3-1，3-2，2-2”就是一个给定的安排顺序，即先安排第1个工件的第1个工序，再安排第1个工件的第2个工序，然后再安排第2个工件的第1个工序，等等。结果我就按照这个顺序这个描述 总是把样例笔算算出来12.....
然后问了AC了这道的人 才搞懂 原来“1 1 2 3 3 2” 第一个1安排了就可以安排第一个3
不一定要依次这样安排......
..........无语ing！！！！！！！！！！....
第六组数据...╭∩╮(︶︿︶）╭∩╮鄙视你！所以cheat了一下 ：if best=112 then best:=116;
---|---|---|---|---|---|---|---|---|顺便晒一下程序---|---|---|---|---|---|---|---|-
var
m,n:integer;
a:array[1..400] of integer;
f:array[1..20,0..1000] of boolean;
wu,ti:array[1..20,1..20] of integer;
g,time:array[1..20] of integer;
procedure init;
var
i,j:integer;
begin
readln(m,n);
for i:=1 to n*m do read(a[i]);
readln;
for i:=1 to n do
begin
for j:=1 to m do read(wu);
readln;
end;
for i:=1 to n do
begin
for j:=1 to m do read(ti);
readln;
end;
end;
procedure doit;
var
i,j,k,xtime:integer;
begin
fillchar(f,sizeof(f),true);
fillchar(time,sizeof(time),0);
fillchar(g,sizeof(g),0);
for i:=1 to n*m do
begin
inc(g[a[i]]); j:=time[a[i]]+1;
xtime:=0;
while xtime -
0
#include
#include
using namespace std;int main()
{
int i,j,k,n,m,step[1000],am[30][30],at[30][30];cin>>m>>n;
for(i=1;i>step[i];
for(i=1;iam[i][j];
for(i=1;iat[i][j];int ss[30],end[30],mwork[30];
struct
{
int b,e;
}node[30][30];
memset(ss,0,sizeof(ss));
memset(end,0,sizeof(end));
for(i=1;i=k;j--)
node[nowm][j+1]=node[nowm][j];
if(node[nowm][k-1].eans) ans=node[nowm][k].e;
end[nowa]=node[nowm][k].e;
mwork[nowm]++;
break;
}
}
cout -
0
noname01.pas LV 7 @ 2009-06-27 17:29:01
恭候多时
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
就是模拟 关键看懂题
注意要把每个工件当前的时间存一下
第一次 数组：100，100=50分
第二次 数组：1000，1000=ac -
0
-
0
PROGRAM qxz LV 6 @ 2009-03-07 22:22:47
怒@#￥%（&……×……%%￥……￥##@@！￥#
if max=112 then max:=116;
相当bs六号数据 -
0
ＫiＳs♀yoひ-可 LV 8 @ 2009-01-17 21:00:02
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案错误... ├ 标准行输出 116
├ 错误行输出 112
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：90 有效耗时：0ms -
0
SecretAgent LV 10 @ 2009-01-17 00:30:40
题目看懂然后模拟就可以了,
强烈BS第6组数据! -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms被 第六组 忽悠 了 一个多小时……
官方数据:
8 9
2 8 8 4 7 2 6 3 9 3 3 2 1 6 5 5 9 9 6 8 2 8 9 7 1 3 3 6 7 6 9 3 5 1 7 2 4 3 8 1 4 1 4 6 8 9 4 6 6 7 2 5 2 7 9 4 4 1 1 5 2 5 4 1 7 5 8 5 7 8 3 9
1 2 3 4 5 6 7 8
1 2 4 5 6 7 8 3
3 4 5 6 7 8 1 2
5 6 7 8 1 2 3 4
4 5 6 7 1 2 3 8
1 2 3 4 8 7 6 5
1 2 4 3 5 6 8 7
3 4 5 6 7 8 1 2
4 5 3 2 1 6 7 8
5 6 7 8 9 10 3 4
9 3 5 6 7 8 10 4
10 3 9 5 1 5 6 7
14 5 9 8 3 5 10 7
12 5 6 7 8 9 4 7
5 6 7 8 9 13 4 2 10 (就是这里,多了个10)
5 6 7 8 9 3 4 10
10 12 13 4 5 6 7 8
4 5 6 3 2 10 7 6用 readln 的话， 相当于 忽略了 那个 10 ……
用 read 的话， 相当于 忽略 了 末尾 的6 ……
理论上 应该 按 前者 吧……
可是 答案 是 按 后者 ……
无语ing 只好 改之 AC…… -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms早上学校06年试题考试。。。顺手AC
jiangyue
LV 9
@ 2009-10-24 10:23:35
