浅谈贪心算法.doc

贪心算法 贪心算法是一种用来求最优解的算法，主要思想是将问题分为数个步骤，用一 个贪心标准逐步求出每一步骤的最优解，最终产生全局最优解。贪心算法的优 点是效率高，缺点是最终产生的解不一定是最优解。 均分绒牌（N0IP2002提壽组第1题） 问題描述： 有N堆纸牌，编号分别为1, 2,…，No每堆上有若干张，但纸牌总数必为N的倍数。可 以在任一堆上取若干张纸牌，然后移动。移牌规则为：在编号为1堆上取的纸牌，只能移 到编号为2的堆上；在编号为N的堆上取的纸牌，只能移到编号为N-1的堆上；其他堆 上取的纸牌，可以移到相邻左边或右边的堆上。现在要求用最少的移动次数S使每堆上纸牌 数都一样多。 输入格式： N a[l], a[2],…，a[N] 输出格式： S 算冻分析： 从第1堆到第N堆纸牌，按从左到右的顺序，若第i堆纸牌数a[i]人于平均数k,则将多出 的纸牌移到第1+1堆上；若a[i]小于k,则将缺少的纸牌数移到第1+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]0f Integer; i, n, t, s: Integer; Begin ReadLn（n）; Fori := 1 To n Do Read（a[i]）; Fori := 1 To n Dot:=t + a[i]; t := t Div n; ｛求平均数｝ For i := 1 To n-1 Do If a[i] <> tThen Begin Inc⑸；｛计数｝ a[i+1] := a[i+1] + (a[i]-t); End; WriteLn(s); End. 在用贪心算法解题时，需要注意两方面，一是问题是否适用于贪心算法，二是 应选用怎样的贪心标准。在学习贪心法时，一定要多读多练，才能进步。贪心 题做得越多，理解越深，思路越广，利用贪心法解题的能力也就越强。 部分背包问題 问题描述： 有一个容量为n的背包，有m件物品可供选择，可以任意切割为整数个单位，它们的价值分 别是v[l]—v[n],所占空间分别是w[l]—w[n],求怎样选择,所得物品总价值s最大。 输入格式： n, m v[l], v⑵,…，v[n] w[l], w[2],…，w[n] 输出格式： s 算法分析： 这是一道简单的贪心题，可利用数组k记录每个物品的单位价值，按价值排序，从人价值到 小价值选择，直到剩余空间n=0。需要注意整型与实型在使用上的细节。 源程序： Var a, v, w: Array[1 ..100]0f Integer ； k: Array[1..100]0f Real; i, j, n, m, t:lnteger; 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] := kO]; k[j] := h; t ：= v[i]; v[i] :=v[j];vD] :=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[l]…k[n]单位奶，单位价格分别是v[l]???v[n]。已知牛奶商需要m单位牛奶, 假如他有无限的钱，应该怎样选择，才会花费最少的钱s。 输入格式： n, m v[l], k[l] v[2], k[2] v[n], k[n] 输出格式： s 算法分析： 这道题与上一道题类似，先排序比较单位价格，再从低价到高价选择，直到买完。 源程序: Var v, k:Array[1..100]Of Integer