【導(dǎo)讀】硬件系統(tǒng)由輸入設(shè)備、輸出設(shè)備、存儲(chǔ)器、運(yùn)算器和控制器組成。是計(jì)算機(jī)的核心部分。我們平時(shí)所說的486、586、奔騰Ⅲ、奔騰Ⅳ指的是CPU的檔次。件、工具軟件以及其它的應(yīng)用軟件。RAM為隨機(jī)存儲(chǔ)器，ROM為只讀存儲(chǔ)器。隨機(jī)對其進(jìn)行讀寫操作，但當(dāng)電源關(guān)閉后，RAM中的數(shù)據(jù)將會(huì)全部消失。指令序列或程序。計(jì)算機(jī)病毒的預(yù)防措施有哪些？子，在網(wǎng)上實(shí)行刪除數(shù)據(jù)和竊取密碼等惡意操作；作為正式用戶，不應(yīng)該使用盜版軟件；（規(guī)定嚴(yán)格的管理制度，保證運(yùn)行環(huán)境無病。幕等都是媒體，它向人們傳遞各種信息。

　　

【正文】 滿足時(shí)，執(zhí)行 ELSE 部分的語句組 2，然后由 END IF 出口。 三、有關(guān)塊 IF 的結(jié)構(gòu)說明： IFTHEN 必須寫在一行上，并且 THEN 是該行的結(jié)尾，語句組 1 不能與 IFTHEN寫在一行上。 語句組 1 和語句組 2及 ELSE可以空缺。 ELSE 和語句組 2可以寫在一行上。 塊 IF 結(jié)構(gòu)以 IFTHEN 開頭，以 END IF 結(jié)束。 [NextPage] 167。4 1 FORNEXT 循環(huán) 一、 FORNEXT 語句的格式 : FOR 〈循環(huán)變量〉 =〈初值〉 TO 〈終值〉 STEP 〈步長值〉 〈循環(huán)體〉 NEXT 〈循環(huán)變量〉 對格式的幾點(diǎn)說明： FOR 為循環(huán)說明語句，由它說明循環(huán)變量的初值 、終值以及從循環(huán)變量的初值向循環(huán)變量的終值 變化時(shí)，每循環(huán)一次的增量，即步長值各是多少。同時(shí)還說明循環(huán)的次數(shù)。循環(huán)的次數(shù)=INT((終值 初值 )/步長值 +1) FOR 與 NEXT 之間的為循環(huán)體，表示重復(fù)執(zhí)行的部分。 NEXT 為循環(huán)終端語句，程序每執(zhí)行到此表示完成了一次循環(huán)，這時(shí)循環(huán)變量就要增加一個(gè)步長 值。 循環(huán)變量的初值、終值及步長值可以是具體的數(shù)值，也可以是已賦過值的變量或表達(dá)式。其中步 長值不能為 0。 當(dāng)步長值為 1時(shí)，語句中的 STEP 1 可以省略不寫。 FOR 與 NEXT 中的循環(huán)變量必須是同一個(gè)變量。 二、 FORNEXT 語句的執(zhí)行過程 : 循環(huán)變量取初值； 將循環(huán)變量的值與終值進(jìn)行比較，如果沒有超過終值，則接著執(zhí)行 35 步操作，否則跳過 35 步 操作，而執(zhí)行第 6步操作； 執(zhí)行循環(huán)體； 遇 NEXT 語句，循環(huán)變量增加一個(gè)步長值； 返回執(zhí)行第 2步操作； [NextPage] 循環(huán)終止，執(zhí)行 NEXT 后續(xù)語句。 三、 FORNEXT 的使用說明 : “超過”的具體含義是指循環(huán)變量沿變化的方向，大于或小于終值時(shí)停止循環(huán)，沒有等于的含 義。 規(guī)律小結(jié)： 初值 值終，步長為正， 循環(huán)變量的值 終值時(shí)停止循環(huán) 初值 值終，步長為負(fù)， 循環(huán)變量的值 終值時(shí)停止循環(huán) 循環(huán)變量通常用來控制循環(huán)次數(shù)，但當(dāng)循環(huán)變量的值在循環(huán)體中被改變時(shí)，循環(huán)次數(shù)也將被改 變。 在循環(huán)結(jié)構(gòu)程序中使用轉(zhuǎn)移語句時(shí)，只能從循環(huán)體內(nèi)轉(zhuǎn)到循環(huán)體外，反之不行。 在循環(huán)體中使用循環(huán)語句，為多重循環(huán)。 多重循環(huán)的執(zhí)行過程為：外層循環(huán)每執(zhí)行一次，內(nèi)層循環(huán)將執(zhí)行一遍。 多重循環(huán)結(jié)構(gòu)使用轉(zhuǎn)移語句時(shí)，可以從內(nèi)層循環(huán)體轉(zhuǎn)向外層循環(huán)體或循環(huán)以外，反之不行。 在循環(huán)體中沒有任何語句，為空循環(huán)，起延時(shí)的作用。 四、應(yīng)用舉例 例 1：求 S=1+2+3+?? +100 (QB401) 例 2：讓計(jì)算機(jī)給小學(xué)生出 100道簡單的兩位數(shù)的加法運(yùn)算題，學(xué)生輸入答案，計(jì)算機(jī)自動(dòng)來打分。 (QB402) RND函數(shù)和 INT 函數(shù)配合可給出某一范圍內(nèi)的隨機(jī)整數(shù)小結(jié)如下： 給出 [A， B]內(nèi)的隨機(jī)整數(shù)用 INT((BA+1)*RND)+A 例 3：給一個(gè)整數(shù) A，判斷它是否是素?cái)?shù) (質(zhì)數(shù) )。 (QB403) 判斷素?cái)?shù)的其本方法是：把 A作被除數(shù)，以 2 ～ (A1)作為除數(shù)，一個(gè)一個(gè)地相除，如果都除不盡， A 就是素?cái)?shù)，否則不是素?cái)?shù)。實(shí)際上，只要除到 SQR(A)就可以了。 [NextPage] 例 4：找水仙花數(shù)。 (QB404) 水仙花數(shù)是指一個(gè)三位數(shù)，其各位數(shù)字的立方和正好等于該數(shù)本身。如：153=13+53+33 ，所以 153 是一個(gè)水仙花數(shù)。 利用 INT 函數(shù)進(jìn)行各位的分離，小結(jié)如下： I=INT(X/100) 分離出百位 J=INT((XI*100)/10) 分離出十位 K=XI*100J*10 分離出各位 例 5：按定義找出 500以內(nèi)的完全數(shù)。 完全數(shù) (又叫完備數(shù)或完數(shù) )是指一個(gè)自然數(shù)如果它的各因子之和正好等于該數(shù)本身。如： 6=1+2+3，所以 6是一個(gè)完全數(shù)。又如： 8的因子是 1， 2， 4，而 1+2+4=7，所以 8 不是完全數(shù)。 (QB405A) 定理：若 2i1 是一個(gè)素?cái)?shù)，則 (2i1)*2i1 必為一個(gè)完全數(shù)。 (QB405B) 例 6：找 100以內(nèi)的同構(gòu)數(shù)。 (QB406) 同構(gòu)數(shù)是指一個(gè)自然數(shù)它的平方最后幾位正好是它本身。如： 252=625，所以 25 是同構(gòu)數(shù)。 REM qb401 CLS s = 0 FOR x = 1 TO 100 s = s + x NEXT x PRINT s=。 s END [NextPage] REM qb402 CLS RANDOMIZE TIMER FOR i = 1 TO 100 a = INT(90 * RND) + 10 b = INT(90 * RND) + 10 PRINT a。 +。 b。 =。 INPUT x IF x = a + b THEN s = s + 1 NEXT i PRINT s=。 s END REM qb403 CLS INPUT m=。 m FOR x = 2 TO SQR(m) IF m / x = INT(m / x) THEN PRINT m。 is not a prime number.: END NEXT x PRINT m。 is a prime number. END [NextPage] REM qb404 CLS FOR x = 100 TO 999 i = INT(x / 100) j = INT((x i * 100) / 10) k = x i * 100 j * 10 IF i * i * i + j * j * j + k * k * k = x THEN PRINT x。 NEXT x END REM qb405A CLS FOR m = 1 TO 500 s = 0 FOR j = 1 TO m / 2 IF m / j = INT(m / j) THEN s = s + j NEXT j IF m = s THEN PRINT m NEXT m END REM qb405B CLS i = 1 FOR m = 1 TO 4 [NextPage] 10 i = i + 1 x = 2 ^ i 1 y = 1 FOR k = 2 TO SQR(x) IF x / k = INT(x / k) THEN y = 0 NEXT k IF y = 0 THEN 10 PRINT x * 2 ^ (i 1) NEXT m END REM qb406 CLS FOR i = 1 TO 99 IF i 10 THEN k = 10 ELSE k = 100 d = i * i IF d INT(d / k) * k = i THEN PRINT i, d NEXT i END 167。4 2 DO 循環(huán)結(jié)構(gòu) 一、 DO 的一般格式 格式： DO WHILE 條件 循環(huán)體 LOOP 前測試當(dāng)型循環(huán)結(jié)構(gòu)。 WHILE 的作用：當(dāng)條件為真時(shí) 循環(huán)，為假時(shí)停止循環(huán)。 [NextPage] 二、 DO 循環(huán)舉例 例 1：用級(jí)數(shù)π 2/6=1+1/22+1/32+1/42+?? +1/N2 求π的近似值。 (QB441) 分析：將上式改為：π 2 = 6*(1+1/22+1/32+1/42+?? +1/N2 ) 先求括號(hào)中的值： P = 1+1/22+1/32+1/42+?? +1/N2 則π 2 = 6*P, π=SQR(6*P) 例 2：求自然數(shù)的平方和 S，使 S 的值不超過 1000。 (QB442) 例 3：求 2020年到 2050年之間的所有閏年。 (QB443) 閏年的條件： (1)能被 4整除，但不能被 100整除； (2)能被 4 整除，又能被 400整除。 例 4：隨機(jī)產(chǎn)生 100 個(gè)兩位的整數(shù)，將其中能被 3整除并且又能被 5整除的數(shù)輸出。(QB444) REM qb441 CLS INPUT n=。 n p = 0 i = 1 DO WHILE i = n p = p + 1 / (i * i) i = i + 1 LOOP PRINT pai=。 SQR(p * 6) END REM qb442 CLS s = 0: x = 1 [NextPage] DO UNTIL s 1000 s = s + x * x x = x + 1 LOOP PRINT x=。 x 1, s=。 s x END REM qb443 CLS y = 2020 DO IF y / 4 = y / 4 THEN IF y / 100 y / 100 OR y / 400 = y / 400 THEN PRINT y。 yes!, ELSE PRINT y。 no!, END IF ELSE PRINT y。 no!, END IF y = y + 1 LOOP UNTIL y 2050 END REM QB444 CLS RANDOMIZE TIMER [NextPage] i = 0 DO WHILE i 100 x = INT(RND * 90) + 10 IF x / 3 = INT(x / 3) AND x MOD 5 = 0 THEN PRINT x。 i = i + 1 LOOP PRINT PRINT i=。 i END CLS REM QB445 INPUT x s = x max = x: min = x DO i = i + 1 INPUT x s = s + x IF x max THEN max = x IF x min THEN min = x LOOP UNTIL i = 9 PRINT zhdf。 (s max min) / 8