正文內容

遼師大版信息技術九年函數與過程1(編輯修改稿)

2026-01-03 00:17 本頁面

　

【文章內容簡介】 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 過程名 (形式參數表 )。｛過程首部｝變量說明部分； BEGIN 過程體。 END。注意：過程的結果由參數送回，可以包括多個 ?過程調用的一般格式：過程名 (實在參數表 ) 例 3:輸入三個不同的整數 ,按由小到大排序。 Program exam3。 Var a,b,c: integer。 Procedure swap (VAR x,y:integer)。 {自定義過程 } Var t:integer。 Begin ｛過程體｝ t:=x。 x:=y。 y:=t {交換兩個變量的值 } End。 Begin {主程序 } write(‘input a,b,c=’)。 readln(a,b,c)。 if a＞ b then swap (a,b)。｛調用自定義過程｝ if a＞ c then swap (a,c)。 if b＞ c fhen swap (b,c)。 wri

點擊復制文檔內容

教學課件相關推薦

遼師大版信息技術九年函數與過程1(編輯修改稿)

遼師大版信息技術七下在ppt中插入聲音和視頻1-資料下載頁

遼師大版信息技術八上編輯數據-資料下載頁

遼師大版信息技術三上第1課走進信息世界課件-資料下載頁

遼師大版信息技術七下初步體驗影片制作過程1-資料下載頁

遼師大版信息技術四上第6課設計藝術字標題課件1-資料下載頁

遼師大版信息技術五上第1課走進創作樂園課件-資料下載頁

遼師大版信息技術六上第1課遨游logo王國-資料下載頁

遼師大版信息技術八下遮罩層動畫-資料下載頁

蘇科版初中信息技術上冊信息與信息技術1-資料下載頁

遼師大版信息技術八下acdsee看圖軟件-資料下載頁

遼師大版信息技術七上qq即時通信與郵件ppt課件-資料下載頁

遼師大版信息技術三上第5課認識鍵盤-資料下載頁

遼師大版信息技術八下制作音樂mtv動畫-資料下載頁

遼師大版信息技術七上無處不在的信息－信息的概念-資料下載頁

遼師大版信息技術七上控制面板ppt課件-資料下載頁

遼師大版信息技術九年函數與過程1-文庫吧

遼師大版信息技術九年函數與過程1-wenkub

遼師大版信息技術九年函數與過程1(已修改)

遼師大版信息技術九年函數與過程1(編輯修改稿)