大师们,这题怎么做?
freepascal吧
全部回复
仅看楼主
level 1
jyrth 楼主
植物大战僵尸这款游戏中,有一种植物武器叫辣椒炸弹,在草坪中的任意一格摆放它可以把草坪中该行上的所有僵尸瞬间消灭,也就是说,如果在第i行中任意位置摆放一个炸弹,第i行中的所有僵尸就瞬间都被杀死了。现在我们假定草坪有r行c列,草坪中有n只僵尸,僵尸不移动,现在给你k个樱桃炸弹,要求只能使用这K个炸弹来消灭这些僵尸,请问最多可以杀死多少只僵尸。(快速排序)
2013年08月18日 08点08分 1
level 9
(⊙o⊙)…
2013年08月19日 00点08分 2
?
2013年08月19日 01点08分
回复 jyrth :我也不会
2013年08月19日 01点08分
level 3
好难的样子
2013年08月27日 09点08分 3
level 7
樱桃炸弹?辣椒炸弹?
2013年08月29日 03点08分 4
火爆辣椒吧
2015年10月05日 12点10分
level 5
僵尸的位置有规律吗
2013年11月20日 12点11分 5
level 4
(-__-)b
2015年10月29日 12点10分 6
level 1
搜索
2015年11月08日 05点11分 7
level 5
有规定每格只能站一个僵尸吗?
2016年07月29日 07点07分 8
level 5
如果所有僵尸站在同一格,一个全杀[滑稽]
2016年07月29日 07点07分 9
level 1
贪心吧
[滑稽]
2016年08月11日 08点08分 10
level 11
快排后取前k个
2016年08月16日 10点08分 11
level 2
idon'tno
2016年11月03日 12点11分 12
level 3
var r,c,k,n,t,j,i,a1,s,b1:longint;
a,b:array[1..10000] of longint;
begin
read(r,c,k,n);
for i:=1 to n do
begin
read(a1,b1);
inc(a[a1]);b[a1]:=a1;
end;
for i:=1 to r-1 do
for j:=i+1 to r do
if (a[i]<a[j])or((a[i]=a[j])and(b[i]>b[j])) then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
for i:=1 to k do inc(s,a[i]);
writeln(s);
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]>b[j] then
begin
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
for i:=1 to k do
write(b[i],' ');
end.
2017年08月03日 11点08分 14
1