零件分组pascal程序
这题就是把长度排序,长度相等,就把重的放后面,最后看重量有一个地方下降了,就分组加一。
var
tj,n,i,j:longint;
c,w,s:array[0..1000]of longint;
begin
readln(n);
for i:=1 to n do
read(c[i],w[i]);
for i:=1 to n-1 do//要用冒泡,不知道为什么我用快排就错了
begin
for j:=i+1 to n do
if (c[i]>c[j])or(c[i]=c[j])and(w[i]>w[j]) then
begin
c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
w[0]:=w[i];w[i]:=w[j];w[j]:=w[0];
end;
end;
tj:=0;
for i:=1 to n do
begin
j:=1;
while s[j]>w[i] do inc(j);
if j>tj then inc(tj);
s[j]:=w[i];
end;
write(tj);
end.