3pascal基礎訓練題

1、第3課16*求n個數(shù)中最大值和最小值。樣例：輸入553256167輸岀MIN=2MAX=5programxxy016;varn,1,min,max,x:integer;beginreadln(n);read(x);min:=x;max:=x;fori:=2tondobeginread(x);ifxmaxthenmax:=x;ifxvminthenmin:=x;end;writeln(4min=,min);writelnCmax=,max);readIn;readIn;end.17、*編寫將1?1000之間(含1000)所有能被7整除的數(shù)累加并輸岀結果。Programxxy017;VarI,s:

2、integer;BeginS:=0;Fori:=lto1000doIfImod7=0thes:=s+l;Writeln(s);Readln;Readln;End.10%,編程計算2005年生產，編程求出第n項。18、*編寫程序實現(xiàn)輸入已知整數(shù)N,計算：1+1/2+1/3+.+1/N的值Programxxy018;VarN,I:integer;S:real;BeginReadln(n)S:=0;Fori:=lto1000dos:=s+l/I;Writeln(s:0:2);Readln;Readln;End.19、*某化肥廠1999年生產化肥3886萬噸，該廠計劃年增長率為多少噸化肥？Progra

3、mxxy019;VarI:integer;S:real;BeginS:=3886;Fori:=2000to2005dos：二s*(l+0.1);Writeln(s:0:2);Readln;Readln;End.20、*知faibonacai(費波那契)數(shù)列的前幾項0、1、1、2、3、5、8.參考答案：programxxy020;varn,i,a,b,s:longint;beginreadln(n);a:=0;b:=l;fori:=3tondobegins:=a+b;a:=b;b:=s;end;writeln(s-,s:10);readln;end.21、*求數(shù)列al,a2,a3,a4,a20。

4、已知al=O,a2=l,a3=l,a4=al+2*a2+a3,a5=a2+2*a3+a4參考答案：programxxy021;varn,i,a,b,c,s:longint;beginreadln(n);a:=0;b:=l;c:=l;fori:=3tondobegins:=a+2*b+c;a:=b;b:=c;c:=s;end;writeln(s-,s:10);readln;end.22、*編程求100-300之間有多少個其各位數(shù)字之和為5的倍數(shù)的整數(shù)。參考答案：programxxy022;vari,a,b,c,tot:integer;begintot:=0;fori:=100to300dobeg

5、ina:=idiv100;b:=(imod100)div10;c:=imod10;if(a+b+c)mod5=0thenbeginwrite(i:6);tot:=tot+l;end;end;writeln(totay=,tot);readln;end.參考答案：23、輸入20個數(shù)，統(tǒng)計其中正、負和零的個數(shù)programxxy023;varn,i,x,a,b,c:integer;beginreadln(n);a:=0;b:二0;c:=0;fori:=ltondobeginread(x)ifx0thena:=a+l;ifx=0thenb:=b+l;ifx0thec:=c+l;end;writelnCa=,a);writelnCb=,b);writeln(tc=,c);readln;readln;end.24*計算*1!+2!+3!+.+n!的值參考答案：programxxy024;varn,i,s,p:longint;beginreadln(n);p：=l；s:=0;fori:=ltondobeginp:=p*i;s:=s+p;end;writeln(s=,s);readl