程序填空解讀課件

1、程序填空程序填空程序填空題的特點(diǎn)是初賽試題中最難的題目。這些程序都具有高效,規(guī)范的特點(diǎn),如果你讀懂了,會(huì)有一種“恍然大悟”的感覺。題目中會(huì)明確交代程序的目的（功能），還有的問題會(huì)明確告訴所使用的算法。但也有些問題需要選手揣摩題目使用的算法，有時(shí)題目會(huì)獨(dú)創(chuàng)一些算法，即在教科書中找不到的算法.將一些關(guān)鍵的語句或變量、函數(shù)等去掉，讓選手去填寫。有的空不止一種填法，如i:=i+1，可以用inc(i)表示，i:=i-1可以用dec(i)表示，while p=true可以用 while p表示，ab可以用not a=b或b0(2)(-b+sqrt(m)/(2*a)(3)3(4)m=0(5)-b/(2*a)

2、參考答案(1) m0例題2三角形內(nèi)切圓的面積題目描述:給出三角形三邊的邊長(zhǎng)，求此三角形內(nèi)切圓（如上圖所示，三角形的內(nèi)切圓是和三角形三邊都相切的圓）的面積。輸入:三個(gè)正實(shí)數(shù)a、b、c（滿足a+bc，b+ca，c+ab）, 表示三角形三邊的邊長(zhǎng)。輸出:三角形內(nèi)切圓的面積，結(jié)果四舍五入到小數(shù)點(diǎn)后面2位。輸入樣例:3 4 5輸出樣例:3.14例題2三角形內(nèi)切圓的面積程序：program program1;vara, b, c, r, s, t: real;beginread(a, b, c);s := ( ) / 2;t := (s * (s - a) * (s - b) * (s - c);r :=

3、 t / s;writeln(3.1415927 * r * : 0 : );end.程序：參考答案a+b+cSqrtr參考答案a+b+c例題3判斷質(zhì)數(shù)題目描述:給出一個(gè)正整數(shù)，判斷這個(gè)數(shù)是否是質(zhì)數(shù)。輸入:一個(gè)正整數(shù)n(1 n 10000)。輸出:如果n是質(zhì)數(shù)，輸出”YES”；否則，輸出”NO”。輸入樣例:10輸出樣例:NO例題3判斷質(zhì)數(shù)程序：var : integer;begin read(n); if n = 2 then writeln( ) else if ( ) or (n mod 2 = 0) then writeln(NO) else begin i := 3; while i

4、* i 0 或 bi0IK mod 8=0 每輸出8個(gè)后換一行 分析：數(shù)組bx指的是x輸入的次數(shù)，如輸入5個(gè)整數(shù)，分別是0,0,0,99,2，則b0=3,b2=1,b99=1，而b1等其余的98個(gè)數(shù)組元素全部為0 程序中的第三個(gè)空所涉及的while循環(huán)，輸出重復(fù)的整數(shù)，如上述實(shí)例，b0=3，則將輸出三個(gè)0參考答案bx+1 由鍵盤輸入一個(gè)奇數(shù) P (P100,000,000)，其個(gè)位數(shù)字不是5，求一個(gè)整數(shù) S，使 PS = 1111.1 ( 在給定的條件下,解 S 必存在)。要求在屏幕上依次輸出以下結(jié)果: （1）S 的全部數(shù)字。除最后一行外，每行輸出 50 位數(shù)字。（2） 乘積的數(shù)字位數(shù)。 例1

5、：輸入p=13，由于13*8547=111111，則應(yīng)輸出（1）8547，（2）6 例2：輸入p=147，則輸出結(jié)果應(yīng)為（1）755857898715041572184429327286470143613 （2）42，即等式的右端有42個(gè)1。 程序： 例題5,NOIP2006 由鍵盤輸入一個(gè)奇數(shù) P (P100,000,000program ex402; var p,a,b,c,t,n:longint; begin while (true) do begin writeln (Input p, the last digit is 1 or 3 or 7 or 9:); readln(p); if (p mod 20)and(p mod 50) then ; 如果輸入的數(shù)符合要求，結(jié)束循環(huán) end; a:=0; n:=0; while (ap) do begin a:=a*10+1; inc(n); end; t:=0; repeat b:=a div p; write(b:1); inc(t); if ( ) then writeln; c:= ; a:= ; inc(n); until c=0; dec(n); writeln; writeln(