【新手進(jìn)階】之一：基礎(chǔ)算法（一）

roych · 發(fā)表于 2015-1-26 15:51:28

看到這題目，大家第一反應(yīng)可能是，我需要學(xué)嗎？跟編程有關(guān)系嗎？對(duì)于這兩個(gè)問(wèn)題，我的回答是：不需要學(xué)，但建議學(xué)；跟編程有關(guān)系，但并非充分條件。就好比下象棋，不懂棋譜，不代表不能贏，但在殺法上可能就有區(qū)別了，懂棋譜的可能更容易妙招迭出；同樣地，不懂算法，不代表不會(huì)編程。不過(guò)，如果想編寫(xiě)出一個(gè)更優(yōu)雅的程序，還是學(xué)學(xué)算法吧。

說(shuō)到算法，大多數(shù)都顯得枯燥艱澀，向來(lái)曲高和寡。其實(shí)，算法也并不是那么復(fù)雜，現(xiàn)在我手頭上這本就淺顯易懂得多了，只是不知道為什么市面上關(guān)于這方面的書(shū)籍都是那么無(wú)趣。只是，這個(gè)日本人定位的是科普讀物，所以，代碼部分只能由我動(dòng)手寫(xiě)了（當(dāng)然，算法中的變量名稱(chēng)也根據(jù)我寫(xiě)的函數(shù)來(lái)定的）。

先申明一下，這部分只說(shuō)基礎(chǔ)算法，不涉及任何技巧，所以不要拿數(shù)學(xué)或者系統(tǒng)函數(shù)等等來(lái)說(shuō)事兒。

關(guān)于自然數(shù)求和：

先列出步驟：
先將結(jié)果lngRes初始化為0。
對(duì)lngRes求和，i為加數(shù)。
重復(fù)執(zhí)行4、5，直至i>intN。
計(jì)算lngRes+i的值，存入lngRes里。
每次i值加1。

根據(jù)步驟寫(xiě)下的代碼是：

Function getSum(ByVal intN As Long) As Long
Dim i As Long
Dim lngRes As Long
Do Until i > intN
lngRes = lngRes + i
i = i + 1
Loop
getSum = lngRes
End Function

復(fù)制代碼

至此，第一個(gè)算法就算完成了。很簡(jiǎn)單是嗎？接下來(lái)，以斐波那契數(shù)列為例，簡(jiǎn)單介紹下遞歸算法（這里不打算細(xì)說(shuō)，詳細(xì)請(qǐng)參考之前我發(fā)的帖子），步驟如下：

令數(shù)組s(0)=0,s(1)=1。
i從2開(kāi)始。
當(dāng)i<=intN時(shí)，重復(fù)執(zhí)行步驟4、5。
令s(i)=s(i-1)+s(i-2)
每次i+1

按照步驟，可以定義一個(gè)從s(2 to intN)的數(shù)組，不過(guò)考慮到我們還預(yù)先定義了s(0)和s(1)，所以干脆定義一個(gè)s(intN)【大部分?jǐn)?shù)組都是默認(rèn)序號(hào)從0開(kāi)始的】，在執(zhí)行循環(huán)時(shí)區(qū)分開(kāi)來(lái)即可。于是有：

Function getFib(ByVal intN As Long) As Long
Dim i As Long
Dim s() As Long
ReDim s(intN)
For i = 0 To intN
If i = 0 Then
s(i) = 0
ElseIf i = 1 Then
s(i) = 1
Else
s(i) = s(i - 1) + s(i - 2)
End If
Next
getFib = s(intN)
End Function

復(fù)制代碼

todaynew · 發(fā)表于 2015-1-26 16:42:25

文字有些偏多，讀起來(lái)有些不易。

風(fēng)中漫步 · 發(fā)表于 2015-1-26 17:00:04

迫切需要掃盲.感謝斑竹.
文字確多,已經(jīng)習(xí)慣淺閱讀了.

roych · 發(fā)表于 2015-1-26 17:03:43

看來(lái)還是拆開(kāi)好點(diǎn)~~~

風(fēng)中漫步 · 發(fā)表于 2015-1-26 17:10:58

{:soso_e100:}主要是電子屏看久了眼睛很難受

zhidao · 發(fā)表于 2015-1-26 18:55:28

聽(tīng)說(shuō)算法是一個(gè)軟件的靈魂

天涯淪落20131 · 發(fā)表于 2015-1-27 09:52:38

我一直在看你發(fā)的貼！

roych · 發(fā)表于 2015-1-27 09:56:59

天涯淪落20131 發(fā)表于 2015-1-27 09:52
我一直在看你發(fā)的貼！

多謝支持！

today_suny · 發(fā)表于 2016-1-5 22:45:49

喜歡掃盲，代碼看了好幾遍才懂了

ej1213 · 發(fā)表于 2018-6-8 17:05:10

xiexie

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access經(jīng)典源碼培訓(xùn)群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒(méi)設(shè)置居住地]

[模塊/函數(shù)] 【新手進(jìn)階】之一：基礎(chǔ)算法（一）

評(píng)分

本帖被以下淘專(zhuān)輯推薦:

群介紹
主題無(wú)相 (隨機(jī)顯示版	同地區(qū)群塊其他地區(qū))