《數(shù)據(jù)庫及應(yīng)用——VFP》-- 程序設(shè)計基礎(chǔ)ppt課件.ppt

第九課 面向過程程序設(shè)計基礎(chǔ) 1 本章要點 VisualFoxPro的工作方式程序文件的建立與編輯程序文件的調(diào)用程序的基本結(jié)構(gòu)常用的交互輸入語句分支結(jié)構(gòu)循環(huán)結(jié)構(gòu)過程與過程文件程序設(shè)計實例程序設(shè)計的一般問題程序調(diào)試工具 2 VFP提供了三種工作方式 即命令方式 菜單方式和程序文件方式 程序設(shè)計包括結(jié)構(gòu)化程序設(shè)計和面向?qū)ο蟮某绦蛟O(shè)計 1VFP編程基礎(chǔ) 命令方式 在 命令 窗口中 可以操作命令完成對數(shù)據(jù)庫的操作 系統(tǒng)環(huán)境的設(shè)置和建立 運行命令文件 菜單方式 通過系統(tǒng)菜單提供的菜單選項對數(shù)據(jù)庫進(jìn)行操作 對系統(tǒng)環(huán)境進(jìn)行設(shè)置以及建立 運行命令文件 程序文件方式 程序文件 簡稱程序 也叫命令文件 在VisualFoxPro環(huán)境下 利用程序文件方式進(jìn)行數(shù)據(jù)庫管理 是通過程序文件編輯工具 將對數(shù)據(jù)庫操作的命令和對系統(tǒng)環(huán)境進(jìn)行設(shè)置的命令 集中在一個以 PRG 為擴(kuò)展名的程序文件中 然后再通過菜單方式或命令方式運行該程序文件 3 創(chuàng)建 維護(hù) 調(diào)試程序 用菜單方式創(chuàng)建 運行程序1 啟動VFP 選擇 文件 菜單 再選擇 新建 2 在彈出的 新建 對話框中 選擇 程序 項 點擊 新建文件 3 在彈出的 程序1 prg 窗口中 點擊 保存 按鈕 4 存盤完畢后 點擊工具欄上的 運行 按鈕 在VFP主窗口中就可以顯示程序運行的結(jié)果 用菜單方式打開 修改程序1 啟動VFP 選擇 文件 菜單 再選擇 打開 在彈出的 打開 對話框進(jìn)行操作 4 程序是指示VFP執(zhí)行的一系列指令集合 把各種不同的命令 函數(shù) 匯集在一起 形成一個VFP的程序文件 prg 1 程序文件的建立與修改 命令格式 MODIFYCOMMAND 功能 打開文本編輯窗口 用來建立或修改程序文件 程序文件的擴(kuò)展名為 PRG MODIFYCOMMAND學(xué)生 打開或新建學(xué)生 PRGMODIFYCOMMAND 打開編輯窗口文件名 工程1 PRG 1VFP編程基礎(chǔ) 2 程序文件的執(zhí)行 DO說明 DO命令默認(rèn)運行 PRG程序 如果要運行的是 PRG程序 DO命令中的文件名只需取文件主名 要運行其它程序 文件名中需包括擴(kuò)展名 DO學(xué)生 注意 沒有createcommand命令 5 1VFP編程基礎(chǔ) 3 一個程序文件的基本構(gòu)成程序由若干條程序行組成 每一程序行由一條語句或命令組成 每一行都以鍵結(jié)束 程序可開始或行后可加注釋 4 程序書寫規(guī)則命令分行 應(yīng)在一行終了時鍵入續(xù)行符 然后按回車鍵 命令注釋 注釋行以符號 開頭 命令后也可添加注釋 這種注釋以符號 開頭 6 1VFP編程基礎(chǔ) 5 程序基本結(jié)構(gòu) 順序結(jié)構(gòu) 分支結(jié)構(gòu) 循環(huán)結(jié)構(gòu)6 程序末尾可加結(jié)束語句 如 cancel return quit等Return命令能使程序執(zhí)行結(jié)束并返回到調(diào)用它的上級程序繼續(xù)執(zhí)行 若無上級程序則返回到命令窗口 return命令允許缺省 Cancel命令能使程序運行終止 清除程序的私有變量并返回到命令窗口 Quit命令與文件菜單的退出命令功能相同 使用quit命令正常退出 就不會出現(xiàn)數(shù)據(jù)丟失或打開的文件被破壞等情況 還會自動刪去磁盤中的臨時文件 程序終止運行后將返回到WINDOWS 7 例 用程序方式顯示表student中的全部數(shù)據(jù)并邏輯刪除第2條記錄 1 在命令窗口鍵入modifycommandp1 prg 并回車 2 在命令程序編輯窗口依次輸入下列命令usestudentbrowsedeleterecord2return3 按CTRL W鍵保存程序4 在命令窗口輸入DOP1并回車執(zhí)行該程序 1VFP編程基礎(chǔ) 8 1 1輸入語句 p2 prg 一 ACCEPT TOAccept 輸入姓名 toxm只能接收字符型數(shù)據(jù) 輸入時不必加定界符如果指定的變量不存在 創(chuàng)建該變量 提示信息 省略則不顯示 usestudentaccept 請輸入記錄號 tohb val h gobdelebrowusereturn 9 二 INPUT TO可輸入數(shù)值型 字符型 邏輯型或日期型數(shù)據(jù) 字符型數(shù)據(jù)要加定界符 先表達(dá)式值 再賦內(nèi)存變量 其它與ACCEPT相同input 輸入要查詢的基本工資 togzclearuset1exclusiveinput 請輸入出生日期 tobdaydisplayallfor出生日期 bdayreturn非格式化輸出語句 10 2VFP程序的基本結(jié)構(gòu) VisualFoxPro系統(tǒng)的程序有兩個特點 一是程序控制流模式 由順序 選擇 循環(huán)三種基本結(jié)構(gòu)構(gòu)成 二是面向?qū)ο罂梢暬慕Y(jié)構(gòu)程序模塊 在每個模塊的內(nèi)部也是由程序控制流組成 常見的控制結(jié)構(gòu)如下 1 順序結(jié)構(gòu) 2 選擇結(jié)構(gòu) 3 循環(huán)結(jié)構(gòu)4 過程結(jié)構(gòu) 在許多應(yīng)用程序中 有一些程序段需要反復(fù)執(zhí)行多次 可將其與嵌入它的程序分開 形成獨立的程序序列 待使用時再調(diào)入程序中 11 2 1順序結(jié)構(gòu)程序設(shè)計 順序結(jié)構(gòu)是在程序執(zhí)行時 根據(jù)程序中語句的書寫順序依次執(zhí)行的命令序列 例 雞兔共籠 已知雞兔的總頭數(shù)為h 總腳數(shù)為f 求雞兔各多少只 算法 X 4h f 2Y f 2h 2程序 clearINPUT h TOhINPUT f TOfx 4 h f 2y f 2 h 2 共有雞 x 共有兔 yreturn 順序結(jié)構(gòu)程序設(shè)計 12 例 按基本入學(xué)成績查詢學(xué)生情況clear 清除屏幕上的所有顯示內(nèi)容 光標(biāo)回到屏幕坐上角 accept 請輸入文件名 tof1use f1 宏替換input 輸入要查詢?nèi)雽W(xué)成績 tochjlistfor入學(xué)成績 chjreturn 順序結(jié)構(gòu)程序設(shè)計 2 2順序結(jié)構(gòu)程序設(shè)計 13 2 3選擇結(jié)構(gòu) 選擇結(jié)構(gòu)選擇結(jié)構(gòu)又稱為分支程序結(jié)構(gòu) 是指在程序執(zhí)行過程中 根據(jù)一定的條件判斷來確定程序走向的一種程序結(jié)構(gòu) 選擇結(jié)構(gòu)一般分為單向選擇 雙向選擇和多向選擇三種格式 1 單向選擇語句格式 IFENDIF 分支程序設(shè)計 功能 當(dāng)條件表達(dá)式的值為真時 執(zhí)行 否則執(zhí)行ENDIF后面的語句 14 例 修改student表中的數(shù)據(jù) 將姓名為 申強(qiáng) 的專業(yè)由 新聞 改為 外貿(mào) xz USEstudentLOCATFOR姓名 申強(qiáng) iffound dispreplace專業(yè)with 外貿(mào) dispendifusereturn 15 2 雙向選擇語句格式 IFELSEENDIF功能 系統(tǒng)執(zhí)行該語句時 首先判斷條件表達(dá)式的值 若為真 則執(zhí)行 然后執(zhí)行ENDIF后的語句 若為假 則執(zhí)行 然后執(zhí)行ENDIF后的語句 說明 1F ELSE和ENDIF必須配對使用 且這三條子句應(yīng)各占一行 和中可以嵌套IF語句 16 If else endif 例 clearinput 請輸入x值 toxifx 0y x 1elsey 1 xendif 輸出y值 y xz2 輸入兩個數(shù)a b 將值較大的存入變量c中 并輸出 17 例 在表worker中查找名為 李華 的記錄 如果找到把該記錄加上刪除標(biāo)記 沒有找到則顯示 查無此人 提示信息 xz3 clearuseworkerexclusivelocateallfor姓名 李華 ifnoteof deletedisplayelse 查無此人 endifusereturn 18 3 多向選擇語句格式 DOcaseCase后的 若所有的的值均為假 則執(zhí)行OTHERWISE后面的語句序列 19 例 將百分制成績轉(zhuǎn)化成分?jǐn)?shù)等級 xz4 ClearInput 請輸入學(xué)生成績 ToCjDoCaseCaseCj 90 And Cj 80 And Cj 70 And Cj 60 And Cj 69 及格 CaseCj 60 不及格 Otherwise 輸入的成績不符合條件 EndcaseReturn 20 小結(jié) 1 If endif和doCase endcase必須配對使用 doCase與第一個case之間不應(yīng)有任何命令 2 可以是各種表達(dá)式或函數(shù)的組合 其值必須是邏輯值 3 可以由一個或多個命令組成 可以是條件控制語句組成的嵌套結(jié)構(gòu) 4 DoCase endcase命令 每次最多只能執(zhí)行一個 在多個case的值為真時 只執(zhí)行第一個值為真的 然后執(zhí)行Endcase的后面的第一條命令 21 在順序結(jié)構(gòu)和選擇結(jié)構(gòu)的程序中 每條語句只執(zhí)行一次 如果要反復(fù)執(zhí)行一個程序段 則要使用循環(huán)結(jié)構(gòu)程序設(shè)計 VFP提供了三種循環(huán)語句 DoWhile EnddoFor EndforScan Endscan 程序控制流模式 順序結(jié)構(gòu) 選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu) 9 2 3程序的基本結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 22 9 2 3程序的基本結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 在順序結(jié)構(gòu)和選擇結(jié)構(gòu)的程序中 每條語句最多只執(zhí)行一次 如果要反復(fù)執(zhí)行一段程序 則要使用循環(huán)結(jié)構(gòu)程序設(shè)計 23 程序控制流模式 順序結(jié)構(gòu) 選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu) 23 n 0s T Dowhiles T n n 1 現(xiàn)在圈數(shù)是 nIFn 3S F 累了ENDIFEnddo 你可以休息了 9 2 3程序的基本結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 開始跑步 你可以休息了 1 2 0 24 3 24 思考 循環(huán)體內(nèi)若沒有n n 1 會怎樣 什么時候結(jié)束呀 累死我了 開始跑步 25 0 注意 對跑步者來說 就是要跑無數(shù)圈 對于程序而言 若循環(huán)條件一直成立 則循環(huán)體部分執(zhí)行無數(shù)次 即 死循環(huán) 循環(huán)體循環(huán)條件 9 2 3程序的基本結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 25 語句格式1 DoWhile 循環(huán)體 EnddoDOWHILE與ENDDO必須配對 成為 循環(huán)體 執(zhí)行時 判斷是否成立 若條件成立就執(zhí)行循環(huán)體部分 否則就跳出循環(huán)語句 轉(zhuǎn)到ENDDO后執(zhí)行 1 Dowhile enddo 26 Dowhile enddo 求1 2 n的和放入變量s中 定義 i 1 s 0循環(huán)條件 i n循環(huán)體語句 s s ii i 1 27 Dowhile enddo input 請輸入n的值 toni 1s 0dowhilei ns s ii i 1enddo 1 2 3 n的和為 s 求1 2 n的和放入變量s中 編程求n s 1 s s i 編程求s 1 2 3 n xh1 prg 28 input 請輸入n的值 toni 1m 0s 1dowhilei ns s im m si i 1enddo 1 2 3 n 的和為 s 求1 2 3 n 將結(jié)果存入變量s中 29 2 For循環(huán) 計數(shù)循環(huán) 2 語句格式 For To step Loop 語句序列2 Exit 語句序列3 Endfor Next 功能 將循環(huán)變量賦初值 判斷循環(huán)變量的值是否超過終值 若超過終值則跳出循環(huán) 執(zhí)行ENDFOR后面的語句 否則執(zhí)行循環(huán)體內(nèi)的語句序列 當(dāng)遇到ENDFOR子句時 返回FOR語句 并將循環(huán)變量加上步長再一次與循環(huán)終值比較 如此重復(fù)執(zhí)行 直到循環(huán)變量的值超過循環(huán)終值 30 求1 2 n的和 input 請輸入n的值 tons 0fori 1tonstep1s s iendfor 1 2 3 n的和為 sreturn 求s n 31 編寫程序 計算n 并將結(jié)果存入變量s中 s 1Input 輸入n的值 tonfori 1to10step1s s iendfor s 步長是1Step可以省略 32 說明 當(dāng)省略步長值時 系統(tǒng)默認(rèn)步長為1 當(dāng)初值小于終值時 步長值為正值 當(dāng)初值大于終值時 步長值為負(fù)值 步長值不能為0 否則造成死循環(huán) 在循環(huán)體內(nèi)不要隨便改變循環(huán)變量的值 否則會引起循環(huán)次數(shù)發(fā)生改變 LOOP 和 EXIT 語句的功能和用法與條件循環(huán)中該語句的功能和用法相同 33 Dowhile enddo 例 修改表文件內(nèi)容USEsalDOWHILE NOT EOF 判斷是否到文件尾DOCASEcase工資 1000repl工資with150case工資 3000repl工資with工資 80case工資 5000repl工資with工資 50case工資 7000repl工資with工資 30ENDCASEskipENDDOReturn 34 語句格式2 DoWhile Loop Exit Enddo若執(zhí)行循環(huán)體部時遇到loop語句 則直接返回執(zhí)行do語句 并測試條件以決定是否繼續(xù)循環(huán) 若執(zhí)行循環(huán)體部時遇到exit語句 則不執(zhí)行下面的循環(huán)體語句序列 直接跳出循環(huán) 執(zhí)行enddo后面的語句 35 例 根據(jù)用戶輸入的記錄號在worker表中查詢記錄 并顯示記錄的內(nèi)容 USEworkerCounttondowhile T input 請輸入記錄號 0表示退出 toidocasecasein 記錄號太大 loopothergoidisplayendcaseenddocancel 36 3 庫文件掃描循環(huán)語句格式 Scan for while Loop Exit Endscan功能 在當(dāng)前打開的數(shù)據(jù)庫文件中按條件指定記錄 若條件滿足 則執(zhí)行循環(huán)體內(nèi)的語句序列 否則跳出循環(huán) 執(zhí)行ENDSCAN后面的語句 說明 該語句可方便地對當(dāng)前庫文件中所有滿足條件的記錄進(jìn)行處理 避免了在循環(huán)體內(nèi)重復(fù)執(zhí)行庫文件查詢等命令 LOOP 和 EXIT 語句的功能和用法與條件循環(huán)中該語句的功能和用法相同 3 庫文件掃描循環(huán) 37 例 查詢sal表文件中基本工資大于2000元的所有姓劉的職工信息 usesalexclusiveclearscanallfor工資 2000ifsubstr 姓名 1 2 劉 displayendifendscanusecancel 38 例 用SCAN型循環(huán) 統(tǒng)計sal表中工資超過3000元的人數(shù)Clearrc 0UseSalScanAllFor工資 3000rc rc 1Endscan 工資在3000元以上的人數(shù)為 rcUseReturn 39 例編程計算s 1 2 90 并求1 90之間的奇數(shù)之和 Store0Toi s tDoWhilei 90i i 1s s iIfint i 2 i 2 或i 2 0loopendift t ienddo 1 2 90 s 1 90之間的奇數(shù)和為 t 40 小結(jié) DoWhile和EndDo For和EndFor Scan和EndScan必須配對使用 2 可以是任何VFP命令或語句 也可以是循環(huán)語句 即可以為多重循環(huán) 3 應(yīng)是數(shù)值型的內(nèi)存變量或數(shù)組元素 4 Exit和Loop命令嵌入在循環(huán)體內(nèi) 可以改變循環(huán)次數(shù) 但是不能單獨使用 5 在各種循環(huán)語句的循環(huán)體中可以插入LOOP和EXIT語句 前者能使執(zhí)行轉(zhuǎn)向循環(huán)語句頭部繼續(xù)循環(huán) 后者則用來立即退出循環(huán) 轉(zhuǎn)去執(zhí)行ENDDO ENDFOR或ENDSCAN后面的語句 41 3子程序 子程序在程序設(shè)計中 常把重復(fù)書寫的一段程序獨立設(shè)計 這種具有相對獨立性和通用性的程序段稱為子程序 子程序能被程序多次調(diào)用 調(diào)用子程序的程序稱為主程序 使用子程序設(shè)計 大大簡化程序設(shè)計和調(diào)試過程 使程序結(jié)構(gòu)化 即模塊化 子程序?qū)嵸|(zhì)也是一個獨立的程序文件 以 prg為擴(kuò)展名 應(yīng)以獨立的程序文件存放在磁盤上 其設(shè)計與建立一般的程序文件的方法一樣 42 2 子程序的建立與調(diào)用DO說明 從指定的磁盤中 調(diào)出所指子程序并立即執(zhí)行 該子程序若不在當(dāng)前文件夾下 必須指明路徑 子程序的擴(kuò)展名 prg一般省略不寫 該子程序執(zhí)行完后 由其本身的RETURN語句控制返回調(diào)用它的主程序中去 主程序調(diào)用子程序 子程序又可調(diào)用另一個子程序 但子程序不可調(diào)用主程序 43 看一個簡單的參數(shù)傳遞的例子 主程序 MAIN0 PRG input 輸入p值 topDOsub0WITHp PRETURN子程序 SRSJ0 PRG PARAMETERSCC C CRETURN 44 子程序調(diào)用過程中的數(shù)據(jù)傳送為了使數(shù)據(jù)能夠共享 在程序調(diào)用過程中 子程序和主程序之間應(yīng)有數(shù)據(jù)的傳遞 稱為參數(shù)傳遞 參數(shù)傳遞是主程序在調(diào)用子程序時發(fā)送數(shù)據(jù)而子程序接受數(shù)據(jù)的過程 主程序可以用 with 向子程序傳遞參數(shù) DOWITH說明 調(diào)用子程序 用向子程序傳遞參數(shù) 使用內(nèi)存變量作參數(shù)時 可把被執(zhí)行的子程序的參數(shù)新值帶回 在子程序中的第一條語句中用下面的命令接受傳遞過來的參數(shù) 格式 PARAMETERS當(dāng)用參數(shù)調(diào)用命令時 被調(diào)用的子程序的第一語句必須PARAMETERS語句 45 參數(shù)傳遞的進(jìn)一步說明 中的參數(shù)應(yīng)與中的參數(shù)一一對應(yīng) 即參數(shù)個數(shù) 數(shù)據(jù)類型都要一致 但名稱可以不同 中的實參可以是常量 變量或表達(dá)式 但中的形參只能是變量 若實參是常量則數(shù)據(jù)不能回傳 若實參是表達(dá)式則將表達(dá)式對應(yīng)的值傳遞給子程序 無論是實參還是形參都不能是字段變量 需要傳遞字段變量的值時 可先賦值給一內(nèi)存變量 46 主程序 MAIN1 PRG input 英語成績 topinput 數(shù)學(xué)成績 toqinput 計算機(jī)成績 toka 0DOSRSJ1WITHP Q K a ARETURN子程序 SRSJ1 PRG PARAMETERSC D E aa E C D 3RETURN 47 4局部變量和全局變量 局部變量是指只能在說明它的程序及被它調(diào)用的下屬各級子程序中使用的內(nèi)存變量 全局變量是指在所有程序模塊中 都可以引用及修改的變量 甚至在命令窗口也可以引用 全局變量的定義 PUBLIC說明 內(nèi)存變量為全局變量 內(nèi)存變量必須在說明為全局變量之后 再賦值 全局變量可在主程序或子程序中定義 也可在命令窗口中定義 48 主程序MAIN3 PRGPUBLICi Ji 1J 0DOSUB3 i i J J K K 在MAIN3 PRG中的值 CANCEL子程序SUB3 PRGi i 2J i 1K i J i i J J K K 在SUB3 PRG中值 RETURN在上兩個程序中存在一個錯誤 可究竟錯在在那里 49 再看下面的兩個程序吧 主程序main4 PrgPublicI jI 1J 0DoSub4 I i j j k k 在main4 Prg中的值 Cancel子程序sub4 PrgPublicKI i 2J i 1K i j I i j j k k 在sub4 Prg中值 Return 50 1VFP程序 再改動一下上面二個程序主程序MAIN5 PRG publicI ji 1J 0DOSUB1 i i J J K K 在MAIN5 PRG中的值 CANCEL子程序SUB5 PRGPUBLICKi i 2J i 1K i J i i J J K K 在SUB5 PRG中值 RETURN這說明了什么問題 在主程序中定義的局部變量在其子程序中都有效 因為i j沒有使用public定義 所以i j只能是局部變量 但這樣就有一個問題 在主程序中建立的一個局部變量n 不小心在子程序也建立了一個同名的變量n 那么在調(diào)用子程序時 就會改變主程序中變量n的值 有什么辦法解決主程序和子程序中變量重名的問題呢 51 我們可以采用定義私有變量的方法 定義格式為 private功能 指定中的變量為本程序模塊中的私有變量 說明 私有變量也是局部變量 這些局部變量僅在定義它的程序中及該程序調(diào)用的子程序中起作用 并把同名的全局變量或上層模塊中定義同名變量隱藏起來 52 下例中表現(xiàn)了私有變量的作用 主程序MAIN4 PRGi 1J 0k 1doSUB4 i i J J K K 在MAIN1 PRG中的值 cancel子程序SUB4 PRGprivateKi i 2J i 1K i J i i J J K K 在SUB1 PRG中值 53 過程與自定義函數(shù)1 過程 過程文件的概念在調(diào)用多個子程序時 運行速度下降 且打開的文件數(shù)也受限制 將多個子程序組合起來 組成一個過程文件 提高程序運行效率 過程文件中的每個子程序稱為一個過程 一個過程也是一個程序文件 其后綴為 PRG 一個過程文件中可以包含多個過程 54 建立 格式格式 Procedure Parameters ReturnProcedure Parameters Return 說明 過程文件中的每個過程不再是一個單獨的命令文件 而是這個過程文件中的一個程序段 55 過程rsglgc Prg中的內(nèi)容 子程序1 ProcSub1AppeReturn 子程序2 ProcSub2ClearInput 請輸入要修改記錄的職工號 ToZghLocaFor職工號 zghEditReturn 56 5過程文件的調(diào)用 打開過程文件 SetProcedureTo調(diào)用過程 DoWith關(guān)閉過程文件 SetProcedureTo或CloseProcedure說明 調(diào)用一個過程前必須將過程文件打開 任何一個時刻只能打開一個過程文件 當(dāng)打開另一個過程文件時 原先打開的過程文件將自動關(guān)閉 57 例如 主程序mainproc prg如下 clearsetproceduretosubprocn 23m 9result 0doaddm n result resultdosubn m result resultdomulm n result resultcloseprocedurereturn 例如 過程文件subproc prg如下 procedureaddparaa b cc a breturnproceduresubparaa b cc a breturnproceduremulparaa b cc a breturn 58 6自定義函數(shù) 格式 function parameters return調(diào)用方式 說明 自定義函數(shù)與子程序概念基本相同 但其執(zhí)行結(jié)束后必須要返回一個函數(shù)值 自定義函數(shù)不能與系統(tǒng)函數(shù)和內(nèi)存變量重名 59 函數(shù)的使用 1 將函數(shù)作為一個獨立的文件主程序main prgclearsetdefaulttod input 請輸入第一條邊的長度 toainput 請輸入第二條邊的長度 tobinput 請輸入第三條邊的長度 tocresult mj a b c 面積為 resultreturn 計算三角形面積的自定義函數(shù) mj prgParaA b cP a b c 2S sqrt p p a p b p c ReturnS 60 2 將函數(shù)作為主程序中的一個程序段 主程序main prgclearinput 請輸入第一條邊的長度 toainput 請輸入第二條邊的長度 tobinput 請輸入第三條邊的長度 tocresult mj a b c 面積為 resultreturnfunctionmjparaa b cp a b c 2s sqrt p p a p b p c returns 61 文本輸出語句格式 textendtext功能 在屏幕上原樣顯示text和e