《fp09实例.ppt

综合实例分析 内容 循环、数组等的综合应用 常见算法 function find(array x[1..n], key) begin a ← 1 b ← n f ← 0 while (a＝b and f=0) do begin k ← (a+b) div 2 if x[k]=key then f ← k else if keyx[k] then a ← k+1 else b ← k-1 end return (f) end 算法 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 算法 写出主程序 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. * Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 【例1】给出日期 y、m、d，计算该日期是该年的第几天？ 算法分析： 对于 1 至 m-1 月进行整月天数计算，每月的天数不相同，需要用条件语句判断； 对于 m 月，按实际天数 d 计算； Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 算法 begin read ( y, m, d ); k←1, s←0 while k= m-1 do begin case k of case 1,3,5,7,8,10,12: s←s+31 case 2: if (leap(y)=1) then s←s+29 else s←s+28 case 4,6,9,11 :s←s+30 end k ← k+1 end s ← s+d write(y,年，m,月,d,日是第,s,天) end Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 我们居住的地球总是绕着太阳旋转的。地球绕太阳转一圈需要365天5时48分46秒。我们把这一段长度称为“回归年”。为了使用方便，我们将365天作为公历平年的一年。这样平均每年要多出5小时48分46秒，累积4年就有23小时15分4秒，几乎接近一天的时间；如果累积400年，就会多出97天来，久而久之会出现寒暑颠倒，历法会失去实用价值。怎么办呢？唯一的办法是设置某一年为闰年，每逢闰年的就比平年增加一天，成为366天。这样经过3333年才有一天的误差。 背景知识 经过研究对公历的闰年设置作出这样的规定：凡非整百的公元纪年年数能被 4 整除的定为闰年；而整百的公元年份要能被400 整除的才能定为闰年。这样每 400 年中刚巧是97 个闰年，这样的做法可在 400 年中减少 3 个闰年。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 闰年算法 function leap(y) begin result ← 0 if (y mod 400 = 0 ) then result ← 1 if ((y mod 4=0) and (y mod 100 0)) then result ← 1 return( result ) end Evaluation only. Created with Aspose