實(shí)驗(yàn)六    循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

一、實(shí)驗(yàn)?zāi)康?
1. 掌握循環(huán)語(yǔ)句的應(yīng)用。
2. 熟練掌握循環(huán)程序設(shè)計(jì)的基本方法。
3. 掌握程序設(shè)計(jì)調(diào)試的方法與技巧，能對(duì)操作過(guò)程中的程序所出現(xiàn)的錯(cuò)誤進(jìn)行處理。

二、實(shí)驗(yàn)內(nèi)容及上機(jī)步驟
【上機(jī)題一】
編寫(xiě)程序，要求程序計(jì)算出500以內(nèi)的所有素?cái)?shù)之和并輸出結(jié)果。
【上機(jī)步驟】
本題的知識(shí)點(diǎn)是FOR循環(huán)語(yǔ)句的嵌套使用，程序代碼如下：
SET TALK OFF
CLEAR
sum1=0
FOR i=2 TO 500
Prime=.T.
FOR j=2 TO i－1
IF MOD(i，j)=0
Prime=.F.
EXIT
ENDIF
ENDFOR
IF prime
sum1=sum1＋i
ENDIF
ENDFOR
?”500以內(nèi)素?cái)?shù)之和為：”,sum1
RETU

【上機(jī)題二】
編寫(xiě)程序，程序功能為：求指定自然數(shù)的階乘。
【上機(jī)步驟】
本題的知識(shí)點(diǎn)是循環(huán)結(jié)構(gòu)程序設(shè)計(jì)方法，程序代碼如下：
CLEAR
INPUT ‘輸入一個(gè)自然數(shù)’ TO n
fac＝1
FOR i＝1 TO n
fac＝fac*i
ENDFOR
? n,’的階乘是：’,fac
RETURN

【上機(jī)題三】
編寫(xiě)程序，程序功能為打印由’*’組成的圖形，圖形如下：
               *
              ***
*****
*******
*****
***
 *
【上機(jī)步驟】
輸入以下程序并運(yùn)行。
CLEAR
num_count＝1
row＝3
col＝40
FOR i＝1 TO 9
@row，col SAY REPLICATE(‘*’,num_count)
row＝row＋1
IF row－2<6
col＝col－1
num_count＝num_count＋2
ELSE
num_count＝num_count-2
ENDIF
ENDFOR