子程序——函數(shù)(編輯修改稿)
2025-08-14 21:09 本頁面
【文章內(nèi)容簡介】 出現(xiàn)在表達(dá)式中。 （自定義）過程 ? 自定義函數(shù)通常被設(shè)計成求一個函數(shù)值，一個函數(shù)只能得到一個運算結(jié)果。若要設(shè)計成 能得到若干個運算結(jié)果 ,或完成一系列處理 ,就需要自定義“ 過程 ”來實現(xiàn)。 [例 ] 把前面［例 ］ (輸入三個不同的整數(shù) ,按由小到大排序 )改為下面用自定義過程編寫的 Pascal程序 : Program exp43。 Var a,b,c: integer。 Procedure Swap (var x,y: integer)。 {自定義交換兩個變量值的過程 } Var t : integer。 Begin ｛過程體｝ t:=x。 x:=y。 y:=t {交換兩個變量的值 end。 Begin {主程序 } Write(39。input a,b,c=39。)。 Readln(a,b,c)。 if a＞ b then swap (a,b)。 ｛調(diào)用自定義過程｝ if a＞ c then swap (a,c)。 if b＞ c fhen swap (b,c)。 Writeln (a:6, b:6, c:6)。 Readln End. ? 從作用來看，過程與函數(shù)是相似的，都能將復(fù)雜的問題劃分成一些目標(biāo)明確的小問題來求解，只不過 函數(shù)有值返回而過程則沒有 。自定義過程的一般格式如下 : ? Procedure 過程名 (形式參數(shù)表 )。 ｛過程首部｝ 局部變量說明部分； begin 語句部分 。 ｛過程體部分｝ end。 [例 ]如果一個自然數(shù)除了 1和本身 ,還有別的數(shù)能夠整除它 , 這樣的自然數(shù)就是合數(shù)。例如 15,除了 1和 15,還有 3和 5能夠整除 ,所以 15是合數(shù)。14,15,16是三個連續(xù)的合數(shù) ,試求連續(xù)十個最小的合數(shù)。 解：從 14,15,16三個連續(xù)合數(shù)中可看出 ,它們正好是兩個相鄰素數(shù) 13和17 之間的連續(xù)自然數(shù) ,所以求連續(xù)合數(shù)問題可以轉(zhuǎn)化為求有一定跨度的相鄰兩個素數(shù)的問題。因此，求連續(xù)十個最小的合數(shù)可用如下方法： ①從最小的素數(shù)開始，先確定第一個素數(shù) A。 ② 再確定與 A相鄰的后面那個素數(shù) B。(作為第二個素數(shù) )； ③檢查 A,B的跨度是度否在 10 以上 ,如果跨度小于 10,就把 B 作為新的第一個素數(shù) A,重復(fù)作步驟② 。 ④ 如果 A、 B跨度大于或等于 10，就打印 A、 B之間的連續(xù) 10個自然數(shù)，即輸出 A+1, A+2, A+3 ?, A+10。 Program exp44。 var a,b,s,n: integer。 yes: boolean。 procedure sub(x: integer。var yy: boolean)。 {過程：求 x是否為素數(shù) } var k,m: integer。 { 用 yy邏輯值轉(zhuǎn)出 } begin k:=trunc(sqrt(x))。 for m:=3 to k do if odd(m) then {判斷奇數(shù)的函數(shù) odd，布爾類型 } if x mod m=0 then yy:=false。 end。 begin {主程序 } b:=3。 repeat
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1