1、题目集锦,程序设计基础习题,1.输入100个数，求输入数的平均值，并统计高于平均值的个数。,function inputdata ( arraya1100) n=100 beginfor i 1 to 100 step 1 do read ai end,function inputdata(array a1n) beginfor i 1 to n step 1 do read (ai) end,应有空格,续一：,function pingjunzhi(array a110) begini 1sum 0while n=100 do beginsum sum +aii i+1endwrite(su
2、m)f sum/100 end,1、无返回值 2、平均值f没有使用上 3、函数参数应为n 4、循环变量n应为i 5、write（sum）多余,return sum/n,续一修正：,function pingjunzhi(array a1n) begini 1sum 0while i=n do beginsum sum + aii i+1endreturn （sum/n） end,续二：,function jishu (arraya1100) beginf pingjunzhi(array a1100count 0if aif then begin count count+1i i+1endwr
3、ite (count) end,1、无返回值 2、函数参数应为n 3、漏掉循环，错误严重，不可饶恕 4、write（count）应改为返回值 5、函数调用不应有array,续二修正：,function jishu (array a1n) beginf pingjunzhi( a1n ）count 0 i 1while if then count count+1i i+1endreturn (count) end,主程序,beginarraya1100inputdata(a1100)pingjunzhi(a1100)jishu(a1100)end,主程序,beginarray a1100inpu
4、tdata(a1100)write（pingjunzhi(a1100)）write（jishu(a1100)） end,2、输入12个数，首先将其放入一维数组中，然后把数组元素顺序放入3*4维数组中。,BEGINaaray1jfor j to 1 to 12 do read a1ji 1 for j 1 to 12 dobeginwrite a1jif j mod 4=0 then writelnend END,beginarray a112array b1314for j 1 to 12 do read aji 1 for m 1 to 3 dofor n 1 to 4 dobeginbmn
5、 aii i+1 end end,3、将九九乘法表中的得数按行列位置存储到一个二维数组中。,BEGINarray1919for i 1 to 9 do for j 1 to i do read aiji 1 j 1repeataiaj j*i until ji then writeln END,beginarray a1919for i 1 to 9 do for j 1 to 9 do aij j*i end,注意语法 不要想当然！,4、输入10个数，按升序选择法输出，并输出输入时对应的序号 。,BEGINarraya110n=10for i 1 to 10 step 1 do read a
6、iwrite i (先在第一行写入输入时的序号）writelnfor i 1to n-1do for j i+1to n step 1 do if aiaj then begin temp ai，aj aj， aj ajendfor i 1 to 10 dowrite ai （输出结果在第二行，两行对应） END,4、输入10个数，按升序选择法输出，并输出输入时对应的序号 。 （修正）,BEGINarray a1110，array a2110， n 10for i 1 to n step 1 dobegin read a1i ，a2i i endfor i 1 to n-1 do for j
7、i+1 to n step 1 do if a1ia1j then begin temp a1i，a1i a1j， a1j temptemp a2i，a2i a2j， a2j tempendfor i 1 to n dobegin write (a1i, a2i) , writeln end END,2、输入12个数，首先将其放入一维数组中，然后把数组元素顺序放入3*4维数组中。,Function c (array b1314) Beginfor i 1 to 12 doread(ai)for i 1 to 3 do beginfor j 1 to 4 dowrite (bij)writeln
8、end end,function c (array a112, array b1314) beginm 1for i 1 to 3 do for j 1 to 4 dobeginbij amm m+1end end,3、将九九乘法的得数按行列位置存储到一个二维数组中,Function c (array b1919) Beginfor i 1 to 9 do begin for j 1 to 9 dod i*jread(d)endfor m 1to 9 dobegin for n 1 to 9 dowrite(bmn)writelnend end,function c (array b1919)
9、 beginfor i 1 to 9 do for j 1 to 9 dobij i*j endbeginarray bbb1919)c(bbb1919) end,1.输入100个数，求输入数的平均值，并统计高于平均值的个数。,function number (array a1n) begin n 100sum 0count 0for i 1 to n do beginread (ai)sum sum+ai endd sum/n for i 1 to n do if aid then count count+1 return (d ,count) end,1、n是参数，值是传入的，不应再赋值
10、2、数组a是参数，应该在调用程序中输入，不应该在这里输入 3、不能返回两个值,1.输入100个数，求输入数的平均值，并统计高于平均值的个数。,function number (array a1n) begin sum 0count 0for i 1 to n-2 do sum sum+ai d sum/(n-2) for i 1 to n-2 do if aid then count count+1 an-1 d an count end,1.输入10个数，按升序排列输出并输出其输入时对应的序号 。,function sort (array a1n) beginn 10for i 1 to 10 doread (ai)for i 1 to n-1 dobegink ifor j i+1 to n do if akaj then k jtemp ai，ai ak，ak tempwrite(k)endfor i 1 to n doreturn (ai) end,1、n是参数，值是传入的，不应再赋值 2、数组a是参数，不应再输入 3、write(k)不能正确输出序号，事实上只输出了9个数值。 4、不能返回n个值，事实上只返回a1一个值。,
