資源描述：
《turbo pascal 11教學版》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在教育資源-天天文庫。
1、2011年長沙市小學生計算機奧林匹克競賽決賽試題一、愛心捐贈：小明和小朋友們共同獻愛心捐贈的圖書共n類，每類m本。現(xiàn)在要將這些書全部分給各個希望小學，規(guī)定：分給每個希望小學的書數(shù)量相同，種類k盡量多，并且每類書數(shù)量=k。小明請你算算共能捐贈多少個希望小學？varm,n,k:longint;beginreadln(n,m);k:=n+1;repeatk:=k-1;until(nmodk=0)and(mmodk=0);writeln('xuexiao=',n*mdiv(k*k));readln;end.【輸入】nm（n，m<=10000）【輸出】xuex
2、iao=學校數(shù)【樣例】輸入：1254輸出：xuexiao=18二、報數(shù)游戲小明和小紅一起玩報數(shù)游戲：小明按1-A1循環(huán)報數(shù)，小紅按1-A2循環(huán)報數(shù)。兩人同時開始，并以同樣的速度報數(shù)，當兩人都報了N個數(shù)時，統(tǒng)計出兩人同時報相同數(shù)的次數(shù)，先算對者獲勝。請你算出正確答案，當他倆的裁判。varn,a,b,a1,a2,t:integer;beginreadln(n);readln(a1,a2);t:=0;a:=0;b:=0;repeatn:=n-1;a:=(a+1)moda1;ifa=0thena:=a1;b:=(b+1)moda2;ifb=0thenb:=a
3、2;ifa=bthent:=t+1;untiln=0;writeln(t);readln;end.2009年長沙市小學生計算機奧林匹克競賽決賽試題輸入：N（N<=100）A1A2（A1、A2取值范圍：2..10）輸出：一個整數(shù)例如：輸入：1023輸出：4N-1到0正好是N個2008年長沙市小學生計算機奧林匹克競賽決賽試題三、整數(shù)處理電腦老師讓小慧編程做一道題：輸入一個正整數(shù)A（A≤100000000），如果Ａ的個位數(shù)字是5，則統(tǒng)計Ａ能被5整除多少次？否則，統(tǒng)計A當中含有多少個“0”？你能做嗎？vara,t:longint;beginreadln(a)
4、;t:=0;ifamod10=5thenwhileamod5=0dobegina:=adiv5;t:=t+1;endelsewhilea>0dobeginifamod10=0thent:=t+1;a:=adiv10;end;writeln(t);readln;end.例如：輸入：125輸入：305160輸出：3輸出：22007年長沙市計算機奧林匹克競賽決賽試題四、判奇偶求和輸入一個正整數(shù)n,如果n是奇數(shù)，則求1～n之間所有的偶數(shù)之和；如果n是偶數(shù)，則求n所有的約數(shù)之和。輸入：n（標準整型）輸出：和值（測試數(shù)據(jù)會保證這個值在標準整型范圍）varn,i,
5、t,s:longint;beginreadln(n);t:=0;s:=0;fori:=1tondobeginifimod2=0thens:=s+i;ifnmodi=0thent:=t+i;end;ifnmod2=1thenwriteln(s)elsewriteln(t);readln;end.樣例1：輸入：11輸出：30樣例2：輸入：12輸出：28（1）擺正方形（文件名e1）用長a厘米，寬b厘米的長方形硬紙片擺成一個正方形（中間無空隙），至少要用幾個長方形硬紙片？輸入a,b,輸出長方形的個數(shù).Vara,b,c:longint;beginReadln(
6、a,b);C:=a-1;Repeatc:=c+1;Until(cmoda=0)and(cmodb=0);Writeln((c*c)div(a*b));readln;End.第十一課習題分析鞏固存在問題：（1）沒用longint（2）有人用枚舉例:輸入:64輸出:6練習1Readln(a,b);C:=a+1;Repeatc:=c-1;Until(amodc=0)and(bmodc=0);Writeln((a*b)div(c*c));輸入:6040輸出：6把一張長a厘米，寬b厘米的長方形紙板剪成邊長是整數(shù)厘米數(shù)的小正方形，且無剩余，最少可以剪成多少塊注意
7、括號（2）求數(shù)列的和（文件名：e2）已知數(shù)列5、7、11、17、25、…，輸入正整數(shù)n，編程輸出該數(shù)列的第n項和這n項的和。vara,b,n,i,s:longint;beginreadln(n);a:=5;s:=a;b:=0;fori:=2tondobeginb:=b+2;a:=a+b;s:=s+a;end;writeln(a);writeln(s);readln;end.存在問題：（1）1通不過（2）輸入輸出不符（3）輸出只有一項例:輸入:4輸出:1740有一列數(shù)1、3、5、7、9、1、3、5、7、9、1、3、5、7、9、……，輸入正整數(shù)n，求第n
8、個數(shù)及這n個數(shù)之和是多少?練習2varn,a,s,i:longint;beginreadln(n);a:=-
