《高中信息技術 奧林匹克信息學競賽班進階篇 pascal-04 子程序課件.ppt》由會員分享，可在線閱讀，更多相關《高中信息技術 奧林匹克信息學競賽班進階篇 pascal-04 子程序課件.ppt（13頁珍藏版）》請在裝配圖網(wǎng)上搜索。

PASCAL 子程序 過程 子程序 過程 單獨寫成一個程序段 可以多次調(diào)用 可以通過參數(shù)處理不同的數(shù)據(jù) procedureabc x integer begin end 過程名 參數(shù)表 子程序的內(nèi)容 過程 子程序 programex701 varu v integer procedurep1 x y integer vari j integer beginfori 1toxdobeginj y i write j end end Beginu 6 v 5 p1 u v writeln u u v v u v p1 u v writeln end End 過程在程序中的位置及調(diào)用 過程 子程序 無參過程 Programdraws procedureline constlength 10 vari integer beginfori 1tolengthdowrite writeln end Beginline writeln Hello line End 輸出 Hello 過程 子程序 有參過程 Programdraws procedureline length integer vari integer beginfori 1tolengthdowrite writeln end Beginline 10 writeln Hello line 8 line 5 End 輸出 Hello 過程 子程序 參數(shù) 值參 變參 procedureline x integer 值參 procedureline vary integer 變參 過程 子程序 值參和變參的區(qū)別 Programzc varn integer procedureA x integer vari integer beginfori 1toxdowrite writeln x x 10 end Beginread n A n writeln n n End 輸入 5 輸出 n 5 5 5 x 15 5 復制 值參 15 過程 子程序 值參和變參的區(qū)別 Programzc varn integer procedureB varx integer vari integer beginfori 1toxdowrite writeln x x 10 end Beginread n B n writeln n n End 輸入 5 輸出 n 15 5 5 x 15 變參 沒有開新的空間 5 15 過程 子程序 vara b integer x y integer procedurefun a b integer vark integer begink a a b b k end begina 3 b 6 x a y b fun x y writeln No 1 a b fun a b writeln No 2 a b end 例 2007年聯(lián)賽第4題 指向內(nèi)存地址 該地址的內(nèi)容 輸出 No 1 36No 2 36 忘了 值參 過程 子程序 全局變量和局部變量 在主程序說明的為全局變量 在子程序說明的為局部變量 當全局變量和局部變量同名時 子程序中的變量不影響全局變量 僅在該子程序中有效 過程 子程序 Programsame varx integer procedurelet varx integer beginx 1 writeln x end Beginx 0 let writeln x End 全局變量和局部變量同名 運行結(jié)果 輸出 10 局部變量 全局變量 計算機內(nèi)存 函數(shù) 函數(shù) 和過程類似 都是獨立的程序段 不同之處在于它會返回一個值 functionabc x integer boolean begin abc end 函數(shù)名 參數(shù)表 給函數(shù)賦值 函數(shù)類型 函數(shù) programarea 求五邊形面積 varL1 L2 L3 L4 L5 L6 L7 s real functionts a b c real real 計算三角形面積ts varp real beginp a b c 2 ts sqrt p p a p b p c 海倫公式 end Beginread L1 L2 L3 L4 L5 L6 L7 輸入各邊長 s ts L1 L2 L6 ts L6 L3 L7 ts L7 L4 L5 計算五邊形面積 writeln area s 輸出面積 End