路橋中學(xué)信息學(xué)競(jìng)賽第三次測(cè)試參考程序-展示頁(yè)
2025-06-16 22:53本頁(yè)面
【正文】 【參考程序】var i,m,n:longint。 pull(a,b)。 a:=17。==:?39。B:39。39。A:39。end。 pull(a,a2)。 a2:=a213。==:39。 B:39。39。A:39。exit。OK39。,a2)。,b:2,39。,39。,a,39。 writeln(39。begin b2:=13b。procedure pull(a,b:byte)。本次出題同學(xué)對(duì)照表：丁 磊：高一（3）oi3_1oi3_2oi3_3陳牡軍：高一（4）oi3_4oi3_5oi3_6oi3_7夏自遠(yuǎn)：高一（4）oi3_8oi3_9oi3_10王少聰：高一（5）oi3_11oi3_12下面是我的程序代碼，僅供參考，歡迎交流！program oi3_1。路中信息學(xué)第三次測(cè)試（2007122星期日下午1：30—4：30）參考程序 《路中信息學(xué)競(jìng)賽第三次測(cè)試》參考程序（時(shí)間：2007年12月2日星期日：下午1:30—4:30）再次感謝為本次次考試出題的所有同學(xué)：丁磊、陳牡軍、夏自遠(yuǎn)、王少聰，這次題型總體感覺(jué)題型新穎、來(lái)源于平時(shí)練習(xí)及改編，質(zhì)量較高。仍然希望能將好傳統(tǒng)延續(xù)下去。 【參考程序】{如何分析本題是關(guān)鍵！是道好題}var a,b:byte。var t,a2,b2:byte。 a2:=ab2。A:39。39。 B:39。==:39。 if a2=15 then begin writeln(39。)。 end else begin if a213 then begin writeln(39。,a2,39。,39。,0:2,39。,a213)。 end。 end。begin writeln(39。,17,39。,39。,13,39。)。 b:=0。end.program oi3_2。function gbs(m,n:longint):longint。begin if mn then begin t:=m。 n:=t。 t:=m。 gbs:=t。begin read(m)。 m:=gbs(m,n)。 writeln(m)。 【參考程序】{此題做法與oi3_9有相通之處}var {為避免思路重復(fù)，本題我借用了字串處理，希望大家熟習(xí)！} n,d:longint。var flag1,flag2:boolean。 s1:string。begin flag1:=true。 m:=n。 len:=lengt
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1