零基础学算法
文章平均质量分 70
tedzheng13
这个作者很懒,什么都没留下…
展开
-
等额本金-逆推
等额本金是递归逆推的一个方法: 父亲准备4年的生活费,使且整存零取的方式,控制每月底只能提取1000元,假设银行年利息为1.71% 思路: 第48个月取出1000,则要先求出47个月时银行存款的具体金额: 第47个月的存款=1000/(1+1.71%/12) 第47个月的存款=(第47个月的存款+1000)/(1+1.71%/12) ........ 第1个月的存款=(第2个月的存款转载 2015-11-22 09:34:41 · 698 阅读 · 0 评论 -
FIBONACCI-顺推
公元1202年欧洲数学家伦纳德·斐波那契在他所著的《珠算的书》(Liber Abbaci)中有这样一道习题:假定每对兔子每个月生出一对兔子。新生的兔子一个月后有了生育能力,再过一个月又生出一对兔子。那么买一对新生的兔子回来,一年后有多少对兔子? 显然,第一个月有一对,第二个月还是一对,第三个月有两对,第四个月有三对,第五个月有五对……容易推得,某月的兔子数正好是前两个月兔子数之和。如果用F(n)转载 2015-11-21 19:37:25 · 279 阅读 · 0 评论 -
枚举法-填数
在奥数中会有如下的题目: 算 法 描 述 题 X 算 题 题 题 题 题 解法: 假设每个数字都从0-9循环 直到计算出的结果与真实结果相等 pesudeocode: 算=i1:法=i2:描=i3:述=i4:题=i5 for i1=1 to 9 for i2=0 to 9 for i3=0 to 9 for i转载 2015-11-22 09:50:01 · 361 阅读 · 0 评论 -
二分法猜价格
'//程序用逐步法猜价格 '//假设价格都是整数,没有小数 Sub GP_Step() Dim Price&, i&, Guess&, Step& ' 正确价格,变量,猜想值 Dim Min&, Max& ' 最小值,最大值 Min = 1: Max = 999 With Sheet1 Price = .Cells(3, 1) For i = Min To Max Step = Ste转载 2015-11-20 16:36:15 · 856 阅读 · 0 评论 -
十进制转为二进制
用递归的方法将十进制转换为低进制 '//此程序只适合10转2 Public str$ '转换后字符 Sub Convert() Dim n&, b& '需转换字符,转换进置 With Sheet5 n = .Cells(3, 1) '原始10进制值 b = 2 '需转换成进制 '//将十进制转换为二进制 .Cells(3, 2) = Ten2Two(n, b) End With E转载 2015-11-24 17:48:25 · 472 阅读 · 0 评论