高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal-02 循環(huán)語句課件.ppt

《高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal-02 循環(huán)語句課件.ppt》由會(huì)員分享，可在線閱讀，更多相關(guān)《高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal-02 循環(huán)語句課件.ppt（16頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

PASCAL基本語句 For語句 循環(huán)語句 1 for語句 s 0 s置初值0 fori 1to100dos s i writeln s s 輸出累加和s For語句 for語句 s 0 fori 100downto1dos s i writeln s s For語句 for語句注意事項(xiàng) 控制變量不能為real型 for語句的步長(zhǎng)是一定的 不要在循環(huán)體內(nèi)改變循環(huán)控制變量 如 fork 1to100dobegink 3 循環(huán)體中改變了循環(huán)變量k的值 end For語句 for語句注意事項(xiàng) for語句執(zhí)行完 控制變量無定義 因此for語句的后續(xù)語句不能認(rèn)為控制變量的值是終值而加以利用 當(dāng)初值超過終值時(shí) 不執(zhí)行循環(huán) 循環(huán)次數(shù)為0 例1 換零錢 例 換零錢把一張一元鈔票換成一分 二分和五分的硬幣 每種至少一枚 問有哪幾種換法 分析 采用窮舉法解決 令五分錢硬幣的個(gè)數(shù)為k k的取值范圍為1 19 二分錢硬幣的個(gè)數(shù)為j j的取值范圍為1 49 一分錢硬幣的個(gè)數(shù)則為100 k 5 j 2 n為計(jì)數(shù)器 累計(jì)兌換方案的總數(shù) 這樣利用二重循環(huán)就可以得到每一種組合 例1 換零錢 programs100 vari j k n integer beginn 0 計(jì)數(shù)器n清0 fork 1to19do 五分硬幣的個(gè)數(shù) forj 1to49dobegin 二分硬幣的個(gè)數(shù) i 100 k 5 j 2 一分硬幣的個(gè)數(shù) ifi 1thenbegin 想想 為什么要加這一判斷 writeln 1fen i 2fen j 5fen k n n 1 計(jì)數(shù)器加1 end if end writeln total n end For語句 for語句嵌套 打印 陣 while語句 While語句 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end 輸出 147101316 while語句 不小心出現(xiàn)死循環(huán)怎么辦 按Ctrl Break強(qiáng)制中斷程序運(yùn)行 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end 注意防止死循環(huán) 循環(huán)體中必須有修改WHILE后面的循環(huán)終止條件操作 while語句 例 求最大公約數(shù) 輾轉(zhuǎn)相除法 如果x可以被y整除 即xmody 0 則y為x和y的最大公約數(shù) 否則 設(shè)z為x除以y的余數(shù) z xmody 再設(shè)x y y z 看x可以被y整除 若能整除 則y為x和y的最大公約數(shù) 否則 繼續(xù)輾轉(zhuǎn)相除下去 while語句 例 求最大公約數(shù) 輾轉(zhuǎn)相除法 例如 x 24y 15xyz 24 15 1 9 15 9 1 6 6 1 3 6 3 2 0 while語句 例 求最大公約數(shù) 輾轉(zhuǎn)相除法 vara b c longint beginreadln a b whileamodb0dobeginc amodb a b b c end writeln b end repeat語句 repeat until語句 repeat語句 repeat until語句 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end vari longint begini 1 repeatwriteln i i i 3 untili 50 end repeat語句 試商法判斷質(zhì)數(shù) 輸入一個(gè)大于1的整數(shù)N 若為質(zhì)數(shù) 輸出 T 否則輸出 F varx i integer f boolean beginreadln x f true i 2 ifx 2thenrepeatifxmodi 0thenf false i i 1 until i sqrt x or f false iff truethenwriteln T elsewriteln F end i能否被x整除 沒必要從2檢測(cè)到n 1 x a b a b 24 2 12 3 8 4 6