noip普及组复赛入门训练1答案.docVIP

PASCAL复习2 1. 字符统计(文件名 ZFTJ.PAS) 读入一组字符，以“？”作为结束标志，统计其中元音字母、辅音字母、数字和其它符号个数（“？”作为结束标志，不计算个数）。如输入字符为 SouA56#s?,则输出YY=3，FY=2，SZ=2，QT=1。 输入输出样例： 输入：SouA56#sEenTk3? 输出：YY=5，FY=5，SZ=3，QT=2 var s1,S2,S3,S4,t:longint; c:char; begin S1:=0;S2:=0;S3:=0;S4:=0; while c? do begin read(c); if ((c=a) and (c=z)) or ((c=A) AND (C=Z)) THEN if (c=a) or (c=e) or (c=i) OR (c=o) or (c=u) or (c=A) OR (c=E) OR (c=I) OR (c=O) OR (c=U) THEN S1:=S1+1 ELSE S2:=S2+1 ELSE IF (c=0) and (c=9) then s3:=s3+1 ELSE S4:=S4+1; end; writeln(YY=,S1,FY=,S2,SZ=,S3,QT=,S4-1); END. 2．取数（QS.PAS） 问题描述：我们来玩一个游戏：自然数1到N，按顺序列成一排，你可以从中取走任意个数，但是相邻的两个不可以同时被取走。如果你能算出一共有多少种取法，那么你会被天神Lijiganjun奖励。输入格式：输入一个自然数n（1 n 50）。 输出格式：多少种取法。 输入输出样例： 输入： 5↙ 输入：10 输出： 13 输出： 144 var i,n:integer;a,b,c:INTEGER; begin readln(n); a:=1; b:=1; for i:=1 to n do begin c:=a; a:=b; b:=c+a; end; writeln(b); end. 3. 网袋重量（WDZL.PAS） 小明有一个能装N公斤物品的网袋。现有大白菜A一棵重5公斤，猪肉B一块2公斤，鱼C一条3。5公斤，酱油D连瓶1。7公斤，白糖E一袋1公斤，菜油F一桶5。1公斤，设计一程序，使小明的网袋所装的重量最大。输入N重量，输出最大重量和所装物品。 输入输出样例： 输入： 12↙ 输入：15 输出： 11.80 输出： 14.80 A D F A B D E F var a,b,c,d,e,f,y,i,N:integer; x,max:real; t:longint; begin READ(N); max:=0; for a:=0 to 1 do for b:=0 to 1 do for c:=0 to 1 do for d:=0 to 1 do for e:=0 to 1 do for f:=0 to 1 do begin x:=a*5+b*2+c*3.5+d*1.7+e*1+f*5.1; if (x=N)and(xmax) then begin t:=a+b*10+c*100+d*1000+e*10000+f*100000; max:=x; end; end; writeln(max:0:2); for i:=0 to 5 do begin y:=t mod 10; t:=t div 10; if y=1 then write(chr(ord(a)+i):3); end; writeln; readln; end. 4. 连续数和（LXSH.PAS） 若干个连续自然数之和是1136，输出这些自然数，统计这些自然数中数字3的个数有多少个？ 输入输出样例： 20 21 22 23 24 …… 50 51 GS=13 var x,y,s,n,t,i,s1,s2:integer; begin for x:=1 to 1135 do begin y:=x;s:=0;s:=s+y; while s1136 do begin y:=y+1;s:=s+y end; if (s=1136) then for i:=x to y do begin write(i:4);if i mod 2=1 then s1:=s1