pascal語言程序設(shè)計(jì)教案-分支結(jié)構(gòu)編程練習(xí).ppt

第五節(jié) 分支結(jié)構(gòu)程序設(shè)計(jì),現(xiàn)實(shí)生活中，事物的發(fā)展總是按照一定順序來進(jìn)行的，這種順序反映到程序設(shè)計(jì)上，叫做順序結(jié)構(gòu)。 但是，有的時(shí)候，事物的發(fā)展卻不是一帆風(fēng)順的，會有各種意外發(fā)生，在解決這類問題的時(shí)候，我們要盡量把各種情況都考慮進(jìn)去，針對不同的情況采取不同的措施，這就出現(xiàn)了分支的情況。這種現(xiàn)象反映到程序設(shè)計(jì)上，就叫做分支結(jié)構(gòu)。,2.行李托運(yùn)問題 鐵路托運(yùn)：物品實(shí)重不超過50kg的，托運(yùn)費(fèi)按0.15元/kg計(jì)算，超過50kg的，超過部分按0.1元/kg加收運(yùn)費(fèi)，試用流程圖表示計(jì)費(fèi)過程。,開始,輸入物品實(shí)重W,W=50?,計(jì)算運(yùn)費(fèi)S=W0.15+（W-50）0.1,輸出運(yùn)費(fèi)S,結(jié)束,是,否,Program exa01; Var w,s:real; Begin Writeln(please enter ? Kg:); Readln(w); If w=50 Then s:=w*0.15 Else s:=w*0.15+(w-50)*0.1; Writeln(s); End.,計(jì)算運(yùn)費(fèi)S=W0.15,作業(yè)：,1、對照流程圖在TurboPascl中編寫程序 2、將程序及運(yùn)行結(jié)果截圖粘貼至ppt最后新插入的幻燈片上。 要求： 題目1：測試數(shù)據(jù)需要三個，任意的正數(shù)、負(fù)數(shù)、0. 題目2：測試數(shù)據(jù)需要三個，50、任意大于及小于50的數(shù) （上節(jié)課作業(yè)：“網(wǎng)絡(luò)課堂作業(yè)上傳下載 找到自己班級文件夾 05文件夾下”） 作業(yè)提交： “網(wǎng)絡(luò)課堂作業(yè)上傳下載 找到自己班級文件夾 將此ppt改名為“學(xué)號姓名.ppt”上傳,試一試：請寫出程序流程圖,從鍵盤讀入一個數(shù)，判斷它的正負(fù)。如果大于等于0輸出“It is a zhengshu.”，如果小于0輸出“It is a fushu.”,開始,輸入一個數(shù)N,N=0？,輸出： “It is a zhengshu.”,結(jié)束,是,否,輸出： “It is a fushu.”,練一練：超市自動計(jì)費(fèi)程序 某超市為了促銷，規(guī)定：購物不足50元的按原價(jià)付款，超過50元的， 超過部分按九折付款。請幫超市設(shè)計(jì)一個程序完成自動計(jì)費(fèi)，寫出 它的程序流程圖。,開始,輸入購物金額A,A50？,需付款額M=A,結(jié)束,是,否,需付款額為M=50+（A-50）*0.9,試一試：請寫出程序流程圖,從鍵盤讀入一個數(shù)，判斷它的正負(fù)。如果大于等于0輸出“It is a zhengshu.”，如果小于0輸出“It is a fushu.”,開始,輸入一個數(shù)N,N=0？,輸出： “It is a zhengshu.”,結(jié)束,是,否,輸出： “It is a fushu.”,練一練：超市自動計(jì)費(fèi)程序 某超市為了促銷，規(guī)定：購物不足50元的按原價(jià)付款，超過50元的， 超過部分按九折付款。請幫超市設(shè)計(jì)一個程序完成自動計(jì)費(fèi)，寫出 它的程序流程圖。,開始,輸入購物金額A,A50？,需付款額M=A,結(jié)束,是,否,需付款額為M=50+（A-50）*0.9,例：行李托運(yùn)問題 鐵路托：物品實(shí)重不超過50kg的，托運(yùn)費(fèi)按0.15元/kg計(jì)算，超過50kg的，超過部分按0.1元/kg加收運(yùn)費(fèi)，試用流程圖表示計(jì)費(fèi)