【文章內(nèi)容簡介】 ELSE R= ENDIF ENDIFENDIFTAX=P*R? 稅金為： ,TAX?????????【 例 】 編程實現(xiàn)輸入三個數(shù)，輸出最大的數(shù)input 1: to ainput 2: to binput 3: to cif ab if ac ?a else ?c endifelse if bc ?b else ?c endifendif4．多分支選擇語句 ? 多向分支語句，即根據(jù)多個條件表達(dá)式的值，選擇執(zhí)行多個操作中的一個對應(yīng)執(zhí)行 。（ 1）語句格式：DO CASE? CASE〈條件表達(dá)式 1〉? 語句序列 1〉? CASE〈條件表達(dá)式 2〉? 語句序列 2〉 ? … … ? CASE〈條件表達(dá)式 N1〉? 〈語句序列 N1〉］ ? ［ OTHERWISE? 〈語句序列 N〉］ENDCASE? （ 2）語句功能： 該語句根據(jù)給出的 N個〈條件表達(dá)式〉的值，選擇 N+1個〈命令行序列〉中的一個執(zhí)行。當(dāng)所有 CASE中〈條件表達(dá)式〉的值都是假時，如果有 OTHERWISE項，則執(zhí)行〈命令行序列 N+1〉，再執(zhí)行 ENDCASE后面的第一條命令；否則，直接執(zhí)行 ENDCASE后面的第一條命令。 ?【例】 假設(shè)收入（ P）與稅率（ R）的關(guān)系如下表，編程求稅金。 0 P＜ 800R= 800 ≤ P ＜ 2023 2023≤P ＜ 5000 P≥5000 INPUT 請輸入收入： TO PDO CASECASE P800 R=0CASE P2023 R=CASE P5000 R=OTHERWISE R=ENDCASETAX=P*R? 稅金為： ,TAX給出一百分制成績，要求輸出成績等級 ‘A’、 ’B’、 ’C’、 ’D’、 ’E’。 90分以上為 ‘A’， 80~89分為 ‘B’， 70~79分為 ‘C’，60~69分為 ‘E’。INPUT 請輸入 X值： TO XDO CASECASE X=90 ?39。A39。CASE X=80 ?39。B39。CASE X=70 ?39。C39。CASE X=60 ?39。D39。OTHERWISE ?39。E39。ENDCASEINPUT 請輸入 X值： TO XIF X=90 ?39。A39。ELSE IF X=80 ?39。B39。 ELSE IF X=70 ?39。C39。 ELSE IF X=60 ?39。D39。 ELSE ?39。E39。 ENDIF ENDIF ENDIFENDIF? IF… … ENDIF和 DO CASE… … ENDCASE 必須配對使用， DO CASE與第一個 CASE〈條件表達(dá)式〉之間不應(yīng)有任何命令。? 〈條件表達(dá)式〉可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。 ?? 〈語句序列〉可以由一個或多個命令組成，可以是條件控制語句組成的嵌套結(jié)構(gòu)。? DO CASE… …ENDCASE 命令，每次最多只能執(zhí)行一個〈語句序列〉。在多個 CASE項的〈條件表達(dá)式〉值為真時，只執(zhí)行第一個。使用選擇語句應(yīng)注意的幾點(diǎn) 循環(huán)結(jié)構(gòu) 一個循環(huán)結(jié)構(gòu)一般應(yīng)具備如下幾個條件：（ 1）循環(huán)的初始條件：給循環(huán)變量賦初值；（ 2）循環(huán)頭：循環(huán)語句的起始，設(shè)置、判斷循環(huán)條件；（ 3）循環(huán)尾：循環(huán)語句的結(jié)尾；（ 4） 循環(huán)體：位于循環(huán)頭和循環(huán)尾之間、循環(huán)控制重復(fù)執(zhí)行的語句序列 循環(huán)結(jié)構(gòu) 循環(huán) 繼續(xù) 表達(dá)式循環(huán)變量 初值 表達(dá)式要反復(fù)執(zhí)行的語句 循環(huán)變量 變化 表達(dá)式 下一條語句不滿足循環(huán)結(jié)構(gòu) 1． DO WHILE循環(huán)語句【格式 1】 DO WHILE 條件表達(dá)式 語句序列 ENDDO 【例】編程求 1＋ 2＋ 3＋ …… ＋ 100S=0 用于累加和I=1 循環(huán)變量DO WHILE I=100 ENDDO? 1＋ 2＋ 3＋ …… ＋ 100＝ ,SS=S+I I=I+1將 100改為N呢？（ N從鍵盤輸入）【例】編程求 13＋ 57…… 101S=0I=1f=1DO WHILE I=101 s=① I=② f=fENDDO? 13＋ 57…… 101＝ ,Ss=s+i*fi=i+2記錄指針控制的循環(huán)? 實現(xiàn)這種循環(huán)的方法：利用邏輯表達(dá)式.()作為控制條件，在循環(huán)體內(nèi)設(shè)置指針移動指令，當(dāng)記錄指針指向表中最后一條記錄后面時，條件 .()為 .F.，退出循環(huán)? DO WHILE ()[語句序列 ]skip ENDDO【例】用表記錄指針控制循環(huán)，編寫程序求表 JBQK中最高工資和最低工資。clearuse jbqkstore 基本工資 to ma,miDO WHILE .NOT. EOF() ma=max(基本工資 ,ma) mi=min(基本工資 ,mi) SKIPENDDO?最高工資 =,ma?最低工資 =,mireturn【例】用表記錄指針控制循環(huán)，編寫程序顯示表 JBQK中男職工的信息。clearuse jbqkDO WHILE .NOT. EOF() if 性別 =男 display endif SKIPENDDOusereturn【格式 2】 DO WHILE 條件表達(dá)式 語句序列 1 [LOOP] 語句序列 2 [EXIT] 語句序列 3 ENDDO ?LOOP語句：強(qiáng)行返回到循環(huán)開始語句。?EXIT語句：強(qiáng)行跳出循環(huán)，接著執(zhí)行 ENDDO后的語句 【例】編程顯示 JBQK表中除 “何兵 以外的所有記錄。USE JBQKDO WHILE .NOT. EOF() IF 姓名 ==何兵 SKIPLOOPENDIFDISPLAY SKIPENDDO【例】輸入一個數(shù)，判斷是否為素數(shù)。（ 除 1以外，只能被 1和它本身整除的自然數(shù)叫素數(shù)， 2是唯一的偶素數(shù) ）INPUT 輸入一個數(shù)： TO Ni=2DO WHILE iN IF MOD(N,i)=0 N能被 i整除 ?str(n)+不是素數(shù) EXIT ENDIF i=i+1ENDDOIF i=N 以上的 DO WHILE循環(huán)為正常退出?str(n)+是素數(shù) ENDIF循環(huán)結(jié)構(gòu)的實現(xiàn)循環(huán)實現(xiàn)要點(diǎn)： (1) 找出什么要反復(fù)執(zhí)行 (2) 重復(fù)到何時結(jié)束重復(fù)步驟： 1 輸入一個數(shù) 2 對正數(shù)求和共重復(fù) 100次例：從鍵盤輸入 100個整數(shù)，求其中正數(shù)之和。store 0 to s,i,xdo while i100input 請輸入一個數(shù)： to xif x0s=s+xendifi=i+1enddo?正數(shù)之和為 +str(s,3)【格式】FOR 循環(huán)變量 =初值 TO 終值 [STEP步長 ] 循環(huán)體 [LOOP][EXIT] ENDFOR 2． FOR循環(huán)語句 使用 FOR循環(huán)語句的有關(guān)說明：① 省略 STEP 步長 ，則〈步長〉為默認(rèn)值 1；② 〈初值〉、〈終值〉和〈步長〉都可以是數(shù)值表達(dá)式，但這些表達(dá)式僅在循環(huán)語句開始執(zhí)行時計算一次。循環(huán)語句執(zhí)行過程中，初值、終值和步長是不會改變的，并由此確定循環(huán)的次數(shù)；③ 可以在循環(huán)體內(nèi)改變循環(huán)變量的值，但會改變循環(huán)執(zhí)行次數(shù)；④ EXIT和 LOOP命令可以出現(xiàn)在循環(huán)體內(nèi)。執(zhí)行LOOP命令時，結(jié)束本次循環(huán)，循環(huán)變量增加一個步長值，返回 FOR循環(huán)頭判斷循環(huán)條件是否成立。執(zhí)行 EXIT命令時 ,程序跳出循環(huán)，執(zhí)行循環(huán)尾后面的語句 for語句循環(huán)變量賦初值在范圍內(nèi)？循環(huán)體for循環(huán)后的語句循環(huán)變量 +1NYFOR… ENDFOR語句流程圖【例】從鍵盤輸入 10個數(shù)，編程找