子程序——函數(shù)(參考版)
2025-07-21 21:09本頁(yè)面
【正文】 End. 。 if (yes=true) and(ok=true)then writeln(i:5,sub3(i):5) end。 Begin for i:=100 to 999 do begin sub1(i,yes)。 sub3:=a+b+c。 b:=(na*100)div 10。 Var a,b,c:integer。 end。 k:=trunc(sqrt(x))。 var k,m:integer。 Procedure sub2(x:integer。 if (n div 100)=(n mod 10) then yy:=true。var yy:boolean)。 yes,ok:boolean。 Program exam43。 readln end. [練 ]如果一個(gè)數(shù)從左邊讀和從右邊讀都是同一個(gè)數(shù)，就稱為回文數(shù)。 {調(diào)用過程求 n的各質(zhì)因數(shù)的數(shù)字之和 } if t1=t2 then write(n:6)。 {調(diào)用過程是否素?cái)?shù) } if not yes then {如果非素?cái)?shù)就 … } begin sub1(n,t1)。 yes:=true。 begin {主程序 } for n:=1 to 500 do begin t1:=0。 for m:=2 to k do if x mod m=0 then yy:=false。 {過程：判斷 x是否為素?cái)?shù) } var k,m: integer。 procedure sub3(x: integer。 t:=t+tt。 while x1 do if x mod xx=0 then begin tt:=0。 {過程：分解質(zhì)因數(shù) } var xx,tt:integer。 procedure sub2(x: integer。 x:=x div 10。 var t:integer)。 yes: boolean。 program exp45。 解： ①設(shè) n為所要求的合數(shù)，讓 n在 1～ 500間循環(huán)做以下步驟； ②用 t1， t2分別累計(jì)合數(shù) n及 n的質(zhì)因數(shù)的各位數(shù)字之和，初值均為 0； ③調(diào)用過程 SUB3進(jìn)行非素?cái)?shù)判定，以布爾變量 yes的真假值判定是否， yes的初值為 true，如果為 (not true)非素?cái)?shù)，就做步驟④，⑤，⑥；否則取新的 n值，重復(fù)步驟③； ④調(diào)用 SUB1，求 n的各數(shù)字之和，傳送給 t1； ⑤調(diào)用 SUB2，求 n的各質(zhì)因數(shù)，對(duì)于每個(gè)質(zhì)因素都通過 SUB1求它各位數(shù)字之和，將所有各質(zhì)因數(shù)字傳送給 t2。即某合數(shù)的各位數(shù)字之和等于它所有質(zhì)因數(shù)的各數(shù)字之和。 ? 調(diào)用過程的格式為： 過程名（實(shí)在參數(shù)表） ； ? 調(diào)用過程名后面圓括號(hào)內(nèi)的實(shí)在參數(shù)與定義過程的形參表必須相對(duì)應(yīng)，調(diào)用過程相當(dāng)于一個(gè)獨(dú)立語(yǔ)句，可單獨(dú)使用。本程序過程 SUB中的 x是由調(diào)用過程的實(shí)在參數(shù) b傳入值，進(jìn)行處理后，不需傳出；而 yy是把過程處理結(jié)果用邏輯值傳出，供調(diào)用程序使用。值形參只能從外界向過程傳 入 信息 ,但不能傳出信息 。 ? 過程 SUB(x: integer。 readln end. ? 程序中的過程 SUB,用來確定 b是否為素?cái)?shù)。 for n:=a+1 to a+10 do write(n:6)。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1