遼師大版信息技術(shù)九年《函數(shù)與過程》1-文庫吧
2025-10-25 00:17 本頁面
【正文】 n1,n2,n3三個(gè)數(shù)中的最大數(shù) t1。第二次調(diào)用這個(gè)函數(shù)求出 t1與 n4,n5三個(gè)數(shù)中的最大數(shù)，也就是前三個(gè)數(shù)的最大數(shù) (已在 t1中 )和后面二個(gè)數(shù)再求一次，就得到五個(gè)數(shù)的最大數(shù)。 Program Exam1_b。 Var n1,n2,n3,n4,n5,t1: integer。 Function max(x1,x2,x3: integer): integer。 ｛自定義函數(shù) Max｝ Var xx: integer。 ｛函數(shù)內(nèi)部變量說明｝ Begin ｛函數(shù)體｝ if x1＞ x2 then xx:＝ x1 else xx:＝ x2。 if x3＞ xx then xx:＝ x3。 max:＝ xx End。 Begin ｛主程序｝ write(39。Input 5 numbers:39。)。 readln(n1,n2,n3,n4,n5)。 ｛輸入五個(gè)數(shù)｝ t1:＝ max(n1,n2,n3)。 ｛用函數(shù)求 n1, n2, n3的最大數(shù)｝ t1:＝ max(n4,n5,t1)。 ｛用函數(shù)求 n4, n5, t1 的最大數(shù)｝ writeln(39。Max number :39。, t1)。 End. 例 2:編寫一個(gè)求組合數(shù) 的函數(shù) ,計(jì)算公式 為 (0nm) C n m m! n! (mn)! Program Exam2。 Var m,n,cmn : integer。 Function fac(k : integer) : integer。 Var i, t : integer。 Begin t:=1。 f
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1