遼師大版信息技術(shù)九年函數(shù)與過程1(編輯修改稿)
2025-01-03 00:17 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 or i:=2 to k do t:=t * i。 fac:=t。 End。 Begin write(‘Please input m,n:’)。 read (m,n)。 if (n=0) and (nm) then begin cmn:= fac(m) div (fac(n)*fac(mn))。 writeln(‘ c( ’,m, ‘,’,n, ‘)=’, cmn ) end else writeln(‘Input error!’) End. ?過程定義的一般格式 : PROCEDURE 過程名 (形式參數(shù)表 )。 ｛過程首部｝ 變量說明部分 ； BEGIN 過程體 。 END。 注意：過程的結(jié)果由參數(shù)送回，可以包括多個(gè) ?過程調(diào)用的一般格式： 過程名 (實(shí)在參數(shù)表 ) 例 3:輸入三個(gè)不同的整數(shù) ,按由小到大排序 。 Program exam3。 Var a,b,c: integer。 Procedure swap (VAR x,y:integer)。 {自定義過程 } Var t:integer。 Begin ｛過程體｝ t:=x。 x:=y。 y:=t {交換兩個(gè)變量的值 } End。 Begin {主程序 } write(‘input a,b,c=’)。 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)。 wri
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1