浅谈贪心算法.docVIP

贪心算法 贪心算法是一种用来求最优解的算法，主要思想是将问题分为数个步骤，用一个贪心标准逐步求出每一步骤的最优解，最终产生全局最优解。贪心算法的优点是效率高，缺点是最终产生的解不一定是最优解。 均分纸牌（NOIP2002提高组第1题） 问题描述： 有 N 堆纸牌，编号分别为 1，2，…, N。每堆上有若干张，但纸牌总数必为 N 的倍数。可以在任一堆上取若干张纸牌，然后移动。移牌规则为：在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。现在要求用最少的移动次数S使每堆上纸牌数都一样多。 输入格式： N a[1], a[2], …, a[N] 输出格式： S 算法分析： 从第1堆到第N堆纸牌，按从左到右的顺序，若第i堆纸牌数a[i]大于平均数k，则将多出的纸牌移到第i+1堆上；若a[i]小于k，则将缺少的纸牌数移到第i+1堆上（缺少的纸牌数可由右侧传递给左侧，次数相同）。 例：n=4 a[1..4] = 4 6 10 8 4 ——〉 6 ——〉 10 ——〉 8 -3 -4 -1 （等于右给左2）（右给左4）（右给左1） 源程序： Var a: Array[1..100]Of Integer; i, n, t, s: Integer; Begin ReadLn(n); For i := 1 To n Do Read(a[i]); For i := 1 To n Do t := t + a[i]; t := t Div n; {求平均数} For i := 1 To n-1 Do If a[i] t Then Begin Inc(s); {计数} a[i+1] := a[i+1] + (a[i] - t); End; WriteLn(s); End. 在用贪心算法解题时，需要注意两方面，一是问题是否适用于贪心算法，二是应选用怎样的贪心标准。在学习贪心法时，一定要多读多练，才能进步。贪心题做得越多，理解越深，思路越广，利用贪心法解题的能力也就越强。 部分背包问题 问题描述： 有一个容量为n的背包，有m件物品可供选择，可以任意切割为整数个单位，它们的价值分别是v[1]…v[n],所占空间分别是w[1]…w[n],求怎样选择，所得物品总价值s最大。 输入格式： n, m v[1], v[2], …, v[n] w[1], w[2], …, w[n] 输出格式： s 算法分析： 这是一道简单的贪心题，可利用数组k记录每个物品的单位价值，按价值排序，从大价值到小价值选择，直到剩余空间n=0。需要注意整型与实型在使用上的细节。 源程序： Var a, v, w: Array[1..100]Of Integer； k: Array[1..100]Of Real; i, j, n, m, t:Integer; h, s: Real; Begin ReadLn(n, m); For i := 1 To m Do Read(v[i]); For i := 1 To m Do Read(w[i]); For i := 1 To m Do k[i] := v[i] / w[i]; {求单位价值} For i := 1 To m-1 Do For j := i+1 To m Do If k[i] k[j] Then Begin h := k[i]; k[i] := k[j]; k[j] := h; t := v[i]; v[i] := v[j]; v[j] := t; t := w[i]; w[i] := w[j]; w[j] := t; End; {排序} For i := 1 To m Do Begin If n = 0 Then Break；{没有剩余空间，结束} If w[i] = n Then Begin n := n – w[i]; w[i] := 0; s := s + v[i]; v[i] := 0; k[i] := 0; End Else Begin s := s + k[i] * n; Break; End; {两种情况} End; WriteLn(s:0:2); End. 牛奶问题 问题描述： 牛奶商总是希望花最少的成本，赚取最大的利润。在一个牛奶采购市场里，有n个农民，他们分别拥有k[1]…k[n]单位奶，单位价格分别是v[1]…v[n]。已知牛奶商需要m单位牛奶，假如他有无限的钱，应该怎样选择，才会花费最少的钱s。 输入格