小学组Pascal语言试题（一）
一、单项选择。（每小题1.5分，共15分）
1.下面是某同学定义的变量名，合符Pascal语法的是（）。
A．integer B. x1 B. 2x D. x*y
2．假定所有变量均为实型，算式的正确Pascal表达式是（）。
A.(u+a)/((b-v)/(c-w)+u*d)
B. (u+a)/(b-v)/(c-w)+u*d
C. u+a/b-v/c-w+u*d
D. (u+a)/((b-v/c-w)+u*d)
3. 有如下的变量说明
var x,y,z:integer;
a:real;
则下面的赋值语句中正确的是（）
A．x=y div 7; B. x:=y/z; C. a:=x*y; D. x+y:=z;
4. 设a,b,c,d均为整型变量，对于下面的程序段
a:=0;
b:=0;
readln(a,b);
read(c);
readln(d);
若从键盘输入：
1
2 3 4
5 6 7
其中，表示“回车”，则a,b,c,d中的数应为下面哪一组？（）
A.1,2,3,4
B.1,2,3,5
C.1,2,5,6
D.1,0,3,5
5. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。
A. d:=n mod 100
B. d:=n div 100;
C. d:=n div 100 mod 10;
D. d:=n mod 100 div 10
6.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。
A．x=2*y B. x/y=2 C. x mod y=0 D. x mod y=1
7. Pascal表达式“2008 div 5 mod -2”的结果是：
A. 8
B. -1
C. 0
D. 1
8. 设实型变量pi已赋值为3.14159，下面不能输出3.14的语句是( )。
A. write(pi:0:2);
B. writeln(pi:1:2);
C. write(pi:2:2);
D. writeln(pi:2);
9．下列程序段的输出结果是（）。
Var x,s:integer;
Begin
x:=2005;
s:=0;
while x<>0 do
begin
s:=s+x mod 10;
x:=x div 10;
end;
writeln(s);
end.
A. 0
B. 7
C. 10
D.2005
10．下列程序段执行后能打印两行“Very good!”的是( )：
A.
i:=0;
repeat
writeln(‘Very good’);
i:=i+2;
until i=4; B.
i:=0;
repeat
writeln(‘Very good’);
i:=i+2;
until i<4;
B.
i:=0;
repeat
writeln(‘Very good’);
i:=i+2;
until i>4; D.
i:=0;
repeat
writeln(‘Very good’);
i:=i+2;
until i=5;
二、问题求解。（7分）
A,B,C,D,E,F 6人参加了小学信息学竞赛，甲、乙、丙、丁四人猜测谁能获得一等奖。甲说：“冠军不是A就是B。”
乙说：“冠军绝不是C。”
丙说：“D，E，F都不可能是冠军。”
丁说：“冠军可能是D，E，F中的一个。”
比赛结果公布后发现，这4个人所说的话中，只有一个人的猜测是正确的。谁是第一名呢？________
三、写出程序的运行结果。(第1-4小题每题5分，第5小题每题8分，共28分)
1．
program xx1;
var a,b,c,d,sum : integer;
begin
readln(a,b,c,d);
a := a mod 23;
b := b mod 28;
c := c mo
d 33;
sum := a * 543 + b * 121 + c * 128 - d;
sum := sum + 2005;
sum := sum mod 2005;
if (sum <> 0 ) then sum := 2005;
writeln(sum);
end.
输入：283 102 23 320
输出____________
2．
program xx2;
var
s,i:ingeger;
begin
s:=0;
for i:=1 to 100 do
if (i mod 3=0)and (i mod 4=0) then s:=s+i; writeln('s=',s)
end.
3.
Var
a,b,c,d,e:integer;
begin
a:=79 ; b:=34; c:=57; d:=0 ; e:=1;
if (ac) then
d:=d+e
else
if (d+10
d:=e+10
else
d:=a-e;
writeln(d);
end.
输出：___________________
4．
program xx4;
var n,i,a1,a2,a3:integer;
begin
readln(n); a1:=1; a2:=1;
write(a1:8,a2:8);
for i:=3 to n do
begin
a3:=a1+a2;
a1:=a2;
a2:=a3;
write(a3:8)
end;
end.
输入:10
输出:______________
5．
program xx5;
var p，q，s，t：integer；
begin
readln(p)；
for q:=p+1 to 2*p do
begin
t:=0；
s:=(p*q) mod (q-p)；
if s=0 then
begin
t:=p+q+(p*q)div(q-p)；
write(t：4)；
end；
end；
writeln;
end.
输入：12
输出：_____________
四、根据题意补充完善程序。(每空2分，共20分)
1．求满足下列条件的两位数：将此两位数的个位数和十位数字进行互换，可以得到一个新的数，要求新数与原数之和小于100（每行输出6个满足要求的数）。
Program xx6;
var
x1,x2,a,b,k:integer;
begin
k:=0;
for a:=__ ①_ to 99 do
begin
x1:= ②;
x2:= ③;
b:=x1*10+x2;
if ④then
begin
k:=k+1;
write(a:4);
if ⑤then writeln;
end;
end.
2．现在有一批长方形的木板，编程找出面积最大的那块，并输出它的长、宽和面积。输入要求：从键盘输入长方形的长和宽，当长和宽中有一个值小于等于0时结束。
输出要求：输出面积最大的长方形的长、宽和面积。
program xx7;
var
a,b,c,max,x,y:integer;
begin
write(‘a,b=’); readln(a,b);
①;
while (a>0) and ②do
begin
c:=____ ③____;
if c>max then
begin
x:=a;
____④______;
max:=c;
end;
_____⑤______ ;
end;
writeln(‘Chang=’, x);
wrtiteln(‘Kuan=’, y);
writeln(‘Mianji=’,max);
end.
一、选择题。(1.5×10＝15分)
题号1 2 3 4 5 6 7 8 9 10
答案B A C C D C D D B A
二、问题求解。（7分）
第一名是C
二、写出程序的运行结果。(5+5+5+5+8=28分) 1．2005
2．S=432
3．78
4．1 1 2 3 5 8 13 21 34 55
5. 181 110 87 76 66 62 61 60
三、根据题意补充完善程序。(10×2=20分)
1.
①10
②a mod 10
③a div 10
④a+b<100
⑤k mod 6 2.
①max:=0
②b>0
③a*b
④y:=b
⑤readln(a,b) 或read(a,b)
小学组Pascal语言试题（二）(
一、单项选择。（每小题1.5分，共15分）
1. 下面Pascal标识符中合法的是：（）
A. err?2
B. read*
C. hello
D. 8df
2. 已知有如下说明：
var x,y:integer;
r,s: real;
下面赋值语句合法的是：（）
A. s:=x+r;
B. x:=s;
C. y:=x+r/s;
D. x:=x DIV s;
3. 设a的值为5，b的值为10，则表达式(a-4) mod b的结果为：
A. 0
B. 10
C. 5
D. 1
4. 下面哪些运算符的运算结果类型一定是real类型（）
A. ＋
B. －
C. ×
D. /
5.下面哪些运算符必须是integer类型的操作数（）
A. ＋
B. div
C. /
D. *
6. 有程序段：x:=7;y:=3;x:=x+y;y:=x-y;x:=x-y,执行后，变量x的值是( )
A. 7
B. 3
C. 10
D. 4
7. 变量a的类型为整型，语句write(a)和write(‘a’)的执行结果：（）
A.一样
B.不一样
C.可能一样，可能不一样
D.以上都不对
8. 以下各程序段哪个不是计算1+2+3+4+…的前N项和：（）
A. sum:=0;
readln(n);
for I:=1 to n do
sum:=sum+i;
B. sum:=0;
readln(n);
i:=1;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
C. sum:=0;
readln(n);
i:=0;
repeat
i:=i+1;
sum:=sum+i;
until i>n;
D. sum:=0;
readln(n);
i:=0;
while i
begin
i:=i+1;
sum:=sum+i;
end;
9. 从四个选项中选出下面程序段实现的计算公式。（）
sum:=0;i:=0;
repeat
sum:=sum+i;
i:=i+2;
until i>10;
writeln(‘sum=’,sum:6:4);
A. 2+4+6+…+10
B. 2+4+6+…+12
C. 2+4+6+…+8
D. 1+3+5+7+…+9
10. 从四个选项中选出下面程序段的计算结果。（）
sum:=0;i:=0;j:=1;
while i<５do
begin
i:=i+1;
j:=j*i;
sum:=sum+j;
end;
writeln(sum);
A.15
B. 120
C.153
D.33
二、解决问题（5×2=10分）
1．老师出了两道题，全班４０人中，第一题有３０人对，第２题有１２人未做对，两题都做对的有２０人。
（１）第２题对第１题不对的有几个人？
（２）两题都不对的有几个？
2．小王、小张、小李三人工作后分别当了医生、教师和战士。只知道：小李比战士年纪大，小王和教师不同岁，教师比小张年龄小。请问谁是医生？谁是教师？谁是战士？
三、写出程序的运行结果。(每小题5+5+5+5+7+8，共35分)
1.
program xjg1;
var
a,i:integer;
begin
a:=68;
write(a,':(1');
for i:=2 to a div 2 do
if a mod i=0 then
write(',',i);
writeln(')');
end.
输出：__________________
2.
program xjg2;
var
a,b,r:integer;
begin
a:=12;b:=16;
r:=a mod b;
while r<>0 do
begin
a:=b;b:=r;
r:=a mod b;
end;
writeln(b);
end.
输出：__________________ 3.
program yd;
var d, p: integer;
begin
p:=1;
d:=6;
while d>1 do
begin
p:=2*(p+1);
d:=d-1
end;
writeln(p)
end.
输出：
4．
program t4;
var
a,b,n:integer;
begin
n:=100;
a:=0;b:=0;
repeat
a:=a+1;
b:=b+a;
until b>n;
writeln(a);
end.
输出：__________________
program t5;
var
m,n,i,hi,lo:integer;
begin
m:=9;n:=8;
I:=n;hi:=0;lo:=0;
repeat
I:=I-1;lo:=lo+m;
If lo>=10 then
begin
Lo:=lo-10;
Hi:=hi+1;
End;
until I=0;
Write(hi:4,',',lo:4);
end.
输出：
6.
program t6;
var
a,b,c,d,e:integer;
begin
a:=1; b:=a+2; c:=b+3; d:=c+4; a:=d+5;
for e:=1 to 3 do
begin
if a mod 2=0 then a:=a div 2+d
else a:=a div 2+d+1;
b:=a+2; c:=b+3; d:=c+4; a:=d+5;
end;
writeln(a);
end.
输出：__________________
四、根据题意补充完善程序。(每空2分，共10分)
判断质数
题目描述:
给出一个正整数，判断这个数是否是质数。
输入:
一个正整数n(1 ≤n ≤100)。
输出:
如果n是质数，输出”YES”；否则，输出”NO”。输入样例:
10
NO
程序：
program tk;
var
①: integer;
p:boolean;
begin
read(n);
if n = 2 then
writeln(②)
else
if (③) or (n mod 2 = 0) then
writeln('NO')
else
begin
i := 3; p:=true;
while ④do
begin
if ⑤then
p:=false;
i:=i+2;
end;
if p=true then writeln('YES') else wirteln(‘NO’);
end;
end.
一、选择题。(1.5×10＝15分)
题号1 2 3 4 5 6 7 8 9 10
答案C A D D B B B C A C
二、解决问题。（5×2=10分）
1. （１）第２题对第１题不对的有（8 ）个人。
（２）两题都不对的有（ 2 ）个人。
2. （小张）是医生，（小李）是教师，（小王）是战士。
三、写出程序的运行结果。(5+5+5+5+7+8=35分)
1．输出：68:(1,2,4,17,34)
2. 输出：4
3．输出：94
4．输出：14
5．输出：7, 2
6．输出：95
四、根据题意补充完善程序。(5×2=10分)
(1) n,i (或i,n);
(2) ‘yes’;
(3) n=1 ;
(4) i
(5) n mod i=0
小学组Pascal语言试题（三）(2014-10-23 10:10:09)转载▼
标签：教育it 分类：Pascal语言
一、单项选择。（每小题2分，共20分）
1.下列标识符中，正确的是：
A. a+b
B. name
C. 4ab
D. if
2. 下列的变量说明中，哪个是不正确的？
A.
Var a,b,c:integer;
x,y:real;
B.
Var x1:integer;
x2:integer;
C.
Var s,t:real;
a,s,b:integer;
D.
Var sum,total:integer;
3. 将数学式子(a+b)×c÷d写成Pascal表达式，正确的是：
A.(a+b)×c÷d
B.a+b*c/d
C.(a+b)×c/d
D.(a+b)*c/d
4.已有如下变量说明：
var a,b:integer;
x,y: real;
下面的赋值语句中，计算机能接受的是：
A. a:=a+b;
B. a:=a/b;
C. b:=y;
D. x:=x div y;
5. 下面运算符中，运算结果一定是integer类型的是：
A. ＋
B. －
C.div
D. /
6. 设整型变量i的的值为12，实型变量A的值为-4
7.28，执行语句writeln(i:4,A:8:2)的结果是：
A. 12□□-47.28□□
B. 12□-47.2800
C. 12口口口口-47.28
D. 口口12口口-47.28
7. 下面关于FOR循环的叙述中，不正确的是：
A．在循环体中不能改变循环控制变量的值
B．循环控制变量可以是任意的数据类型
C．FOR循环分为递增型和递减型两种
D．在执行过程中初值和终值不会改变
8. 有如下程序段:
read(a,b,c);
readln(d,e);
readln;
readln(f,g);
其中,所有变量均为整型。如果输入的数据如下：
1 2
3 4 5 6 7 8
9 10
11
12 13
则变量f的值为：
A.10
B.11
C.12
D.13
9. 有如下程序段：
S:=0; i:=1;
while i<=5 do
begin
s:=s+i; i:=i+1;
end;
执行该程序段后，变量i的值为：
A. 1
B. 3
C. 5
D. 6
10.对于下面的程序段：
x:=28; y:=20 ; z:=30;
if x>y then
z:=x+y;
x:=y; z:=x+y; y:=z;
执行该程序段后，变量y的值为：
A. 28
B. 30
C. 40
D. 48
二、解决问题（4+6=10分）
1．观察下列数的规律，然后填空。
0，1，2，5，12，29，_________
2．有红、黄、蓝、绿四种颜色的旗子，每次取三面从上到下挂出，可以有多少种不同的挂法？
三、写出程序的运行结果。(每小题5+5+6+8+8，共32分)
1.
program xjg1;
var x,a,b,c:integer;
begin
readln(x);
if (x>=100) and (x<=999) then
begin
a:=x div 100;
b:=(x-a*100) div 10;
c:=x mod 10;
x:=c*100+b*10+a;
writeln(x);
end
else writeln('Input error!');
end.
输入：927
2．
program xjg2;
var x,i,sum1, sum2: integer；
begin
repeat
readln(x);
until x>0;
sum1:=0；sum2:=1；
if x mod 2=1 then
for i:= 1 to 5 do
sum1:=sum1+i
else
for i:=1 to 5 do
sum2:=sum2*i；
writeln(sum1:5, sum2:5);
end．
输入：68
3.
program xjg3;
var
x,a,b,c:integer;
begin
readln(x);
a:=0; b:=1; c:=1;
while b
begin
c:=c+100; a:=a*2007; b:=b+c;
end;
writeln(b:5,c:5)；
end.
输入：2007
4．
program xjg4;
var x,i,s,max:integer;
begin
read(x); max:=x; s:=x;
for i:= 2 to 10 do
begin
read(x);
if s>=100 then s:=0;
s:=s+x;
if s>max then max:=s;
end;
writeln('max=',max)
end.
输入:182 13 50 120 7 8 22 86 24 35
5.
program xjg5;
var x,i,m1,m2: integer；
begin
m1:=32767; m2:=m1;
for i:=1 to 10 do
begin
read(x);
if x
begin
m2:=m1; m1:=x;
end
else
if x
end;
writeln(m1:6,m2:6);
end．
输入：23 89 128 53 18 536 45 67 173 100
四、根据题意补充完善程序。(每空2分，共18分)
1. 出租车计费器。
某城市的出租车计费方法是：起步价为6元，可以行驶3公里；3公里以后，每多增加1公里，按每公里1.2元计算。下面的程序可以实现的功能是：输入出租车行驶的公里数，计算机自动计算出顾客应付的车费（结果保留1位小数）。
样例1：
输入 3
输出 6 样例2:
输入 5
输出8.4
请将下面的程序填写完整。
program JiFei;
var
x: integer;
y: ①;
begin
readln(x);
if ②then
y:=6
else
y:= ③
writeln(y:5:④) ；
end.
2．求完数。
对于一个大于1的数，如果该数正好等于其因子之和，就称它为“完数”。例如6的因子是1，2，3，并且6=1+2+3，所以6是一个“完数”。
下面的程序实现的功能是：判断输入的数是否为完数。若是，则输出“Yes”，否则输出“No”。请将程序填写完全。
program wanshu;
var
x,s,i: integer;
begin
repeat
readln(x);
until ①
s:=0；
for i:=1 to ②DO
if x mod i=0 then
③
if ④then
writeln(‘Yes’)
else
writeln( ⑤)
end.
参考答案
一、选择题。(2×10＝20分)
题号1 2 3 4 5 6 7 8 9 10
答案B C D A C D B B D C
二、解决问题。（4+6=10分）
1. 找规律，填数。0，1，2，5，12，29，__70___
2. 有红、黄、蓝、绿四种颜色的旗子，每次取三面从上到下挂出，可以有___24___种不同的挂法？
三、写出程序的运行结果。(5+5+6+8+8=32分)
1．729
2. 0 120
3．2107 601
4．max=183
5．18 23
四、根据题意补充完善程序。(2×9=18分)
1．出租车计费器。
①real
②x<=3
③6+(x-3)*1.2
④1 2．求完数。
①x>1 或x>=2
②x-1 或x div 2
③s:=s+i
④s=x
⑤‘No‘
小学组Pascal语言试题（四）
顺序结构，标准函数，ASCII，基本算法，选择结构与循环结构预热
说明：1.本卷分为I,II,III三卷,共100分,19题, 80分钟内完成。
2.答题时切勿启动IDE,切勿Compile,切勿利用这种Path填上Answer。
3.尽力完成III卷的问题。
I卷(共5题,15个测试点,25分,20分钟内完成)
(本卷侧重于对程序的阅读与理解,难度中等)
一、读程序写结果,并写一个可依此代码解决的问题。(4个测试点，共6分) Program wp2_1_1;
Var
x,y,a,b:integer;
Begin
For x:= 10 to 99 do
Begin
a:=x div 10;
b:=x mod 10;
Y:=b*10+a;
if y-x=36 then writeln(x);
End;
Readln;
End.
运行结果:
编造问题:
2004 年小学《育苗杯》复赛试题 (每题 8 分，共 120 分 ) 班别 :_________ 姓名 :______________ 成绩 :______________ 1、一个数的 5 倍再除以 6，商 5 余 5，这个数是 ________。 2、 9999.6 ＋999.6＋ 99.6＋9.6＋ 0.6＝_________ 。 3、学校插花组同学要赶制花篮 70 个，已经做了 5 天，共做花篮 40 个。余下的要赶在 2 天做 完，这样每天比原来平均多做 ________个花篮。 （ ...... ） 。 4、 2 2004 － 2 2003 ＝ 2 5、若 [ 6.8－（ 1.6＋□÷ 0.9 ]÷ 8.4＝ 0.5，其中□＝ ________。 6、先观察下面的算式，找出规律再按要求填数。 9×9＋ 19＝ 100 99×99＋ 199＝ 10000 999×999＋ 1999 ＝ 1000000 ?? 那么， 99?99× 99? 99＋199? 99 的结果末尾有 ______个零。 2004 个 2004 个 2004 个 7、 1＋ 3－4－ 5＋ 6＋ 8－9－ 10＋ 11＝1，请写出式子等于 1 的简便过程。 原式＝ ____________________ ＝ ____________________ ＝ ____________________ 8、布袋里装有三种颜色的铅笔各 10 支（三种颜色的笔完全混放在布袋里） ，至少取出 ______ 支才能保证三种颜色的笔都取到。 9、有甲、乙、丙、丁四人给灾区捐款是丙的 4 倍减 40 元，丁捐的钱是丙的 丙捐 ________元；丁捐 ________元。 1000 4 倍的 元。已知甲捐的钱是丙的 4 倍加 40 4 倍，请回答甲捐 ________元；乙捐 元，乙捐的钱 ________元； 10、现有 3 角邮票七张， 5 角邮票四张，用它们可以付出 ________种不同的邮资。 11、某电视机维修站有五个技工和一个工程师共 6 人，工程师每月的工资比全站 （ 6 个人计算） 的平均工资高 1500 元，已知每个技工每月的工资为 1800 元，那么，这位工程师每月的工资是 ________元。 12、某电子产品加工厂原计划 5 人 16 天生产 2400 打计算 机芯片，后来由于订货增加，采用新工艺生产，工效是原来 的 1.5 倍，但还需要 8 人 20 天才能完成生产任务。这样，后来生产的增加数是原计划生产数的 ________倍。 13、下图的面积单位是平方米。按图中标注部分面积的数 量，算出其中阴影部分的面积是 ________平方米。 14、有黑白两种颜色的正方体积木， 把它摆成右图所示的形状， 已知相 邻的积木颜色不同，标 A 的为黑色，图中共有黑色积木 ________块。 15、假设地球上新生成的资源的增长速度是一定的， 照此测算， 地球上 . . 5 年，或可供 112 . 5 亿人生活 262 . 5 年，为 资源可供 137 5 亿人生活 112 使人类能不断繁衍，那么地球上最多能养活 __________亿人。
第十六届全国青少年信息学奥林匹克联赛初赛试题 （普及组Pascal语言两小时完成） 一、单项选择题（共20题，每题1.5分，共计30分。每题有且仅有一个正确选项。） 1.2E+03表示（）。 A.2.03 B.5 C.8 D.2000 2.一个字节（byte）由（）个二进制组成。 A.8 B.16 C.32 D.以上都有可能 3.以下逻辑表达式的值恒为真的是（）。 A.P∨（┓P∧Q）∨(┓P∧┓Q) B.Q∨（┓P∧Q）∨（P∧┓Q） C.P∨Q∨（P∧┓Q）∨（┓P∧Q） D.P∨┓Q∨（P∧┓Q）∨(┓P∧┓Q) 4.Linux下可执行文件的默认扩展名是()。 A.exe https://www.doczj.com/doc/6e15457314.html, C.dll D.以上都不是 5.如果树根算第1层，那么一颗n层的二叉树最多有（）个结点。 A.2n-1 B.2n C.2n+1 D.2n+1 6.提出“存储程序”的计算机工作原理的是（）。 A.克劳德?香农 B.戈登?摩尔 C.查尔斯?巴比奇 D.冯?诺依曼 7.设X、Y、Z分别代表三进制下的一个数字，若等式XY+ZX=XYX在三进制下成立，那么同样在三进制下，等式XY*ZX=()也成立。 A.YXZ B.ZXY C.XYZ D.XZY 8.Pascal语言、C语言和C++语言都属于（）。 A.面向对象语言 B.脚本语言 C.解释性语言 D.编译性语言 9.前缀表达式“+3*2+512”的值是（）。 A.23 B.25 C.37 D.65 10.主存储器的存取速度比中央处理器(CPU)的工作速度慢的多，从而使得后者的效率受到影响。而根据局部性原理，CPU所访问的存储单元通常都趋于一个较小的连续区域中。于是，为了提高系统整体的执行效率，在CPU中引入了()。 A.寄存器 B.高速缓存 C.闪存 D.外存 11.一个字长为8位的整数的补码是11111001，则它的原码是（）。 A.00000111 B.01111001 C.11111001 D.10000111 12.基于比较的排序时间复杂度的下限是（），其中n表示待排序的元素个数。 A.O(n) B.O(n log n) C.O(log n) D.O(n2) 13.一个自然数在十进制下有n位，则它在二进制下的位数与（）最接近。 A.5n B.n*log210 C.10*log2n D.10n log2n 14.在下列HTML语句中，可以正确产生一个指向NOI官方网站的超链接的是（）。 A.欢迎访问NOI网站 B.欢迎访问NOI网站 C.http://www.noi,cn D.欢迎访问NOI网站 15．元素R1、R2、R3、R4、R5入栈的顺序为R1、R2、R3、R4、R5。如果第1个出栈的是R3，那么第5个出栈的不可能是()。 A.R1 B.R2 C.R4 D.R5 16.双向链表中有两个指针域llink和rlink，分别指向该结点的前驱及后继。设p指向链表
Pascal语言编程基础程序 （常州市） 十进制转二进制 var i,n,j:longint; a:array[1..100] of longint; begin readln(n); i:=1; while n<>0 do begin a[i]:=n mod 2; i:=i+1; n:=n div 2; end; write('Bin:'); for j:= i-1 downto 1 do write(a[j]) end. 数组元素删除 var a:array[1..10]of longint; i,t,x:longint; begin read(x); for i:=1 to 10 do a[i]:=2*i-1; t:=a[x]; for i:=x+1 to 10 do a[i-1]:=a[i]; for i:=1 to 9 do write(a[i]:4); end. 数组元素删除2 var a:array[1..11]of longint; i:longint; begin for i:=1 to 10 do a[i]:=i; a[11]:=a[1]; for i:= 1 to 10 do a[i]:=a[i+1]; for i:= 1 to 10 do write(a[i]:4); end. 数组元素的移动 var a:array[1..10] of longint; s,n,i,x,t:longint; begin readln(n); for i:=1 to n do read(a[i]); readln(x); s:=a[x]; for i:=x+1 to n do a[i-1]:=a[i]; for i:=1 to n-1 do write(a[i],' '); write(s); end. 排除所有异形基因 var a:array[1..100] of longint; n,g,j,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); g:=0; for i:=1 to n do if sqr(a[i]) mod 7=1 then begin wz:=i; for j:=wz+1 to n do a[j-1]:=a[j]; g:=g+1 end; write(a[1]); for i:=2 to n-g do write(' ',a[i]); writeln; end. 排除第一个异形基因 var a:array[1..100] of longint; n,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if sqr(a[i]) mod 7=1
第十九届全国青少年信息学奥林匹克联赛初赛 提高组Pascal 语言试题 竞赛时间：2013 年10 月13 日14:30~16:30 选手注意： ●试题纸共有12 页，答题纸共有2 页，满分100 分。请在答题纸上作答，写在试题纸上 的一律无效。 ●不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。 一、单项选择题（共15 题，每题1.5 分，共计22.5 分；每题有且仅有一个正确选项） 1. 一个32 位整型变量占用（）个字节。 A. 4 B. 8 C. 32 D. 128 2. 二进制数11.01 在十进制下是（）。 A. 3.25 B. 4.125 C. 6.25 D. 11.125 3. 下面的故事与（）算法有着异曲同工之妙。 从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：?从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：‘从前有座山，山里有座庙，庙里有个老和尚给小和尚讲故事....’? A. 枚举 B. 递归 C. 贪心 D. 分治 4. 1948 年，（）将热力学中的熵引入信息通信领域，标志着信息论研究的开端。 A. 冯·诺伊曼（John von Neumann） B. 图灵（Alan Turing） C. 欧拉（Leonhard Euler） D. 克劳德·香农（Claude Shannon） 5. 已知一棵二叉树有2013 个节点，则其中至多有（）个节点有2 个子节点。 A. 1006 B. 1007 C. 1023 D. 1024 6. 在一个无向图中，如果任意两点之间都存在路径相连，则称其为连通 图，至少要删去其中的（）条边。
2016年余姚市程序设计竞赛 小学组 （请选手务必仔细阅读本页内容） 四．注意事项 1、文件名（程序名和输入输出文件名）必须使用小写。 2、C/C++中函数main()的返回值类型必须是int，程序正常结束时的返回值必须是0。 3、评测时采用的机器配置为：CPU 2.4GHz，内存2G。
(water.pas/c/cpp) 【问题描述】 小明向小学生们发起了一个节约用水的活动，在他的鼓舞下，大家都纷纷行动起来，并且把节水成果陆续发给小明。 小明共收到了来自全国各地的N份节水成绩单，每份中都标注了该小朋友节水的天数Di和每天节水数Li。现在摆在小明面前一个头疼的问题，到底这个活动节约了多少自来水呢？请你帮他算一下吧 【输入】 第一行一个整数N，表示小明收到的节水成绩单的数量。 接下来N行，每行两个整数Di和Li，表示第i位小朋友节水天数和每天节水数量。 【输出】 输出N个小朋友共节水数量。 【样例解释】 共3位小朋友的节水成绩单，总节水量：3*4+2*1+6*3=32 【数据范围】 30%的数据，N<=3, 1<=Di<=100，1<=Li<=100. 70%的数据，N<=1000, 1<=Di<=100，1<=Li<=100 100%的数据，N<=1000000，1<=Di<=100，1<=Li<=100
(hike.pas/c/cpp) 【问题描述】 小明决定徒步完成一个N天的远足登山活动。第一天他带上一个大睡袋和足够的食物，从大本营出发。大本营的海拔高度为0，在第N天，他必须回到大本营。在这N天中，他可以在他的大睡袋和简易的帐篷中入睡。 在每天的登山活动中，他可以选择向山顶出发，也可以选择下山（同一天只能选择一种方式），而且有如下两条规则： 1、在登山过程中，他不能走的太快，海拔的升高的过程，空气的含氧量会发生变化，因此每天只能上升A米的海拔。 2、在下山过程中，他也不能走的太快，否则他的膝盖无法承受冲击。每天他只能下降B米的海拔。 例如：某天早晨小明处在470米的海拔位置，A=100且B=200，那么他在这天中可以向上到达570米的位置，也可以下山达到海拔270米的位置，因此一天结束后，他可能处在的海拔位置在270~570米之间。 现在，给定N，A和B，问小明最多能到达海拔多少米的高度。 【输入】 第一行三个整数，N，A和B，表示N天的登山远足活动，每天可以向上爬海拔A米，也可以下山下降海拔B米。 【输出】 输出一个整数，表示在第N天中能到达的最高海拔高度。 【输出输出样例1】 【样例1解释】 第一天向上爬7，第二天向上爬3到达海拔10，第三天回到大本营。 【输出输出样例2】 第一天和第二天分别向上爬40，后面3天下山分别30+30+20 【数据范围】 对于50%的数据，2<=n<=20，1<=A,B<=50 对于100%的数据，2<=n<=50，1<=A,B<=50
Pascal 语言精要 基本概念：标识符、保留字、常量、变量、运算符、表达式、标准数据类型 Pascal 数 据 类 型 简单类型 标准类型 整型 integer -32768~32767 shortint -128~127 longint -2147483648~2147483647 byte 0~255 word 0~65535 实型 real 绝对值在1E-38~1E38间 singel （单精度型） double （双精度型） extended （扩展型） comp （装配十进制型） 字符型 char （字符） string （字符串） boolean 只有两个值true 和false 用户自定义类型 枚举型 子界型 构造类型 数组类型 记录类型 集合类型 文件类型 指针类型 PASCAL 标准数据类型一共有4个：整型、实型、字符型、布尔型，分别用保留字integer 、real 、char 、boolean 来标记它们。其取值范围和运算如下： 整型(integer)：范围 -32768—32767(16位运算)；运算 + - * / mod div 实型(real)： 范围 运算 + - * / 字符型(char)： 范围 可显示的ASCII 字符 布尔型(boolean)：范围 true false ；运算 and or not 1.整型 类型 数值范围 占字节数 格式 shortint -128..128 1 带符号8位 integer -32768..32767 2 带符号16位 longint -2147483648..2147483647 4 带符号32位 byte 0..255 1 带符号8位 word 0..65535 2 带符号16位 Pascal 规定了两个预定义整型常量标识符maxint 和maxlongint ，他们各表示确定的常数值，maxint 为32767， maxlongint 为2147483647，他们的类型分别是integer 和longint 2.实型 Pascal 支持五种预定义实型，它们是real （基本实型）、 single （单精度实型）、double （双精度实型）、extended （扩展实型）、comp （装配实型），Pascal 分别用不相同的名字
小学三年级奥数竞赛题题选 1、口袋里有同样大小和同样质地的红、黄、蓝三种颜色的小球各10个。一次最少摸出（）个球，才能保证至少有4个颜色相同。 2、 3、一块长20厘米、宽16厘米的长方形纸片，按图所示的方法，1层、2 层、3层地摆下去，共要摆100层。摆好后图形的周长是多少？ 4、有50个同学去公园划船，每条大船可以坐6人，租金10元；每条船小船可以坐4人，租金8元。那么多种不同的租船方案中哪一种方案最省钱？ 5、A、B、C、D、E五人参加乒乓球比赛，每两人都要赛一场，并且只赛一场，规定胜者得2分，负者不得分，已知比赛结果如下：（1）A与E并列第一名；（2）B是第三名；（3）C与D并列第四名，那么B得多少分？ 6、15个同学排成一列横队，从左边数起，小林是第11个；从右边数起，小刚是第10个。小林与小刚之间隔几个同学？ 7、黑母鸡下1个蛋歇2天，白母鸡下1个蛋歇1天，两只鸡共下10个蛋，最少需要多少天？ 8、一筐萝卜共重56千克，先卖出一半萝卜，再卖出剩下的一半，这时连筐共重17千克，问原来这筐萝卜重多少千克？筐重多少千克？ 9、小强、小亮和小军练习投篮球，一共投了150次，共有64次没投进。已知小强和小亮一共投进了48次，小亮和小军一共投进了69次，小亮投进了多少次？ 10、把3、6、9、12、15、18、21、24、27填在合适的方格里，使每横 行、竖行、斜行的三个数相加都得45。 11、鸡和兔共有100只，兔的脚数比鸡的脚数多28只，问，鸡、兔各 几只？
12、甲、乙两队共有96人，如果从甲队调8人到乙队，乙队再给丙队36人，那么甲队人数就是乙队的2倍，甲、乙两队原来各有多少人？ 13、在1、2、3、……、132这些数中，数字“1”共出现了多少次？ 14、小明一家三口人，妈妈比爸爸小2岁，今年全家人的年龄加起来刚好是70岁，而7年前，全家人的年龄加起来刚好是50岁。现在，小明家每个人的年龄各是多少岁？ 15、学校第一次买了4个篮球和5个足球，共用去520元；第二次买了同样的5个篮球和4个足球，共用去533元。篮球和足球的单价各是多少元？ 16、在一个减法算式里，被减数、减数、差这三个数的和是120，差是减数的3倍。那么差是多少？ 17、园林工人要在周长300米的圆形花坛边等距离地栽上树。他们先沿着花坛的边每隔3米挖一坑，当挖完30个坑时，突然接到通知：改为每隔5米栽一棵树。这样，他们还要挖多少个坑才能完成任务？ 18、计算：（写出主要的过程） 100-98+96-94+92-90+……+8-6+4-2 1001×1001-1001 19、已知九个数的平均数是72，去掉其中的一个数之后，余下的数平均为78，去掉的数是（）。 20、甲、乙、丙三个班共有学生161人，甲比乙班多2人，乙班比丙班多6人，乙班有（）人。 附加题： 如图有8条线段，至少要分别测量编号为（）的三条线段的长度，才能求这个图形的周长。
第一章、什么是计算机语言 计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。目前最常用的高级语言大致有以下几种： BASIC语言：是一般计算机入门者的首选语言，命令少，容易掌握，从BASIC，BASICA，GWBASIC，TRUE BASIC，TURBO BASIC，QUICK BASIC等一直发展到目前的WINDOWS环境下的VB。 PASCAL语言：最适合科学计算、数据处理的语言，运行、编译速度最快，从TURBO PASCAL 5 .5, 6.0, 7.0一直到现在的WINDOWS环境下的DELPHI以及LAZARUS等面向对象的PASCAL，以及目前信息学竞赛使用的FREE PASCAL各个版本。 C语言：主要适用于应用软件的开发，是计算机人员的必修课，但在算法实现、建模方面不如PASCAL方便。从C，C++，一直到现在的WIONDOWS环境下的VC、C++等。 实际上，我们日常所用的各种软件，包括Windows，WORD、EXCEL、各种游戏等等，全部都是使用程序设计语言编写出来的软件，我们只有掌握了程序设计语言，才能进行计算机软件的开发。 在我们的信息学竞赛中，所有的题目都是非常复杂的数值与逻辑运算，所以世界上广泛采用PASCAL语言作编程工具，我们采用的是FREE PASCAL2.0版本或者相近版本。 我们学习信息学竞赛除了要掌握程序设计语言，能够使用程序设计语言编写程序外，还有一部分要掌握的更加重要的内容就是——算法设计，它能够使我们的程序运行速度更快、效率、精度更高，使我们的程序取得快人一步的优势，算法设计在本书中我们将接触一部分。 第二章、PASCAL语言入门 第一节、PASCAL语言的特点 以法国数学家命名的PASCAL语言是世界上使用最广泛，最有效的语言之一。其主要特点是：严格的结构化形式；丰富完备的数据类型；运行能力、效率高；查错能力强等等。与BASIC、C等语言相比，PASCAL语言更适合科学计算，运行速度最快，编译能力最强，编译成的可执行文件也最小。 PASCAL语言是编译执行的语言（BASIC语言是解释执行），因此在速度与效率上都比BASIC语言提高了一个档次。所谓解释执行，是在程序环境下编写好程序后，执行它时是一句一句地由语言解释器翻译成机器语言，由计算机去执行，计算机能在程序编辑时就发现程序中错误，但程序运行速度慢；而编译执行是在程序环境中编写好程序后，执行时先由编译器把整个程序编译成机器语言，然后再由计算机执行，计算机必须在编译程序时才能发现程序中的错误，但程序运行速度快。 第二节、FREE PASCAL的集成环境
1．三个不同的三位数相加的和是2993，那么这三个加数是______. 2．小明在计算有余数的除法时，把被除数472错看成427，结果商比原来小5，但余数恰巧相同．则该题的余数是______．3．在自然数中恰有4个约数的所有两位数的个数是______．4．如图，已知每个小正方形格的面积是1平方厘米，则不规则图形的面积是______． 5．现有2克、3克、6克砝码各一个，那么在天平秤上能称出______种不同重量的物体． 6．有一个算式： 五入的近似值，则算式□中的数依次分别是______． 7．某项工作先由甲单独做45天，再由乙单独做18天可以完成，如果甲乙两人合作可30天完成。现由甲先单独做20天，然后再由乙来单独完成，还需要______天． 8．某厂车队有3辆汽车给A、B、C、D、E五个车间组织循环运输。如图所示，标出的数是各车间所需装卸工人数．为了节省人力，让一部分装卸工跟车走，最少安排______名装卸工保证各车间的需要． 9．甲容器中有纯酒精340克，乙容器有水400克，第一次将甲容器中的一部分纯酒精倒入乙容器，使酒精与水混合；第二次将乙容器中的一部分混合液倒入甲容器，这时甲容器
中纯酒精含量70％，乙容器中纯酒精含量为20％，则第二次从乙容器倒入甲容器的混合液是______克． 二、解答题： 1．有红黄两种玻璃球一堆，其中红球个数是黄球个数的1．5倍，如果从这堆球中每次同时取出红球5个，黄球4个，那么取了多少次后红球剩9个，黄球剩2个？ 2．小明一家四口人的年龄之和是147岁，爷爷比爸爸大38岁，妈妈比小明大27岁，爷爷的年龄是小明与妈妈年龄之和的2倍，问小明一家四口人的年龄各是多少岁？3．A、B、C、D、E五人在一次满分为100分的考试中，A 得94分，B是第一名，C得分是A与D的平均分，D得分是五人的平均分，E比C多2分，是第二名，则B得了多少分？ 4．甲乙两人以匀速绕圆形跑道相向跑步，出发点在圆直径的两端．如果他们同时出发，并在甲跑完60米时第一次相遇，乙跑一圈还差80米时俩人第二次相遇，求跑道的长是多少米？答案: 一、填空题： 1．648 原式=7.2×61.3＋（61.3＋12.5）×2.8=（7.2+2.8）×61.3＋12.5×2.8
提高卷一一、填空题： 1.计算：111111 6246012021084 +++++=________； 2.小凤在计算一道求七个自然数的平均数（得数保留两位小数）时，将得数最后一位算错了，他的错误 答案是21.83，正确的答案应是_______； 3.已知a=11661267136814691570 11651266136714681569 ?+?+?+?+? ?+?+?+?+? ?100，问a的整数部分是________； 4.一只乌鸦从其巢飞出，飞向其巢北10千米东7千米的一点，在该点它发现有一个稻草人，所以就转 向再北4千米东5千米的地方飞去，在那里它吃了一些谷物后立即返巢，乌鸦 所飞的途径构成了一个三角形（假设乌鸦总是沿直线飞行的），这个三角形的 面积是________； 5.把1，2，3，?，9填入图中9个圈内，不同圈内填不同数字，三角形每边上 四个数之和相等，右图中阴影部分的六个圆圈内所填数之和的最小值是 ________； 6.从1，2，?，16中，最多能选出_______个数，使得被选出的数中，任意三个 数都不是两两互质的； 7.将所有自然数，自1开始依次写下去：123456789?，试确定在第206788个位置所出现的数字是 _______； 8.某一出租车的车费起价是2千米5元钱，往后每增加1千米车费增加2元。现在从甲地到乙地乘出租 车共支出车费35元。如果从甲地到乙到先步行800米，然后乘车也是35元。从甲、乙两地中点到乙地需支付_______车费； 二、解答题： 9.如图有五个圆，它们相交后相互分成9个区域，现在两个区域 里已分别填上数10与6，请在另外七个区域里分别填进2，3， 4，5，6，7，9七个数，使每个圆内的和等于15； 10.一个球从100米高处自由落下，每次着地后又跳回到原高度的 一半再落下，当它第10次着地时，共经过了多少米；（得数保留到个位） 11.有4个蜂鸣器A，B，C，D，这4个蜂鸣器连续响的时间长短是以1:2:3:4的比例而定的，它们分别响 完后再过8秒又开始响。4个蜂鸣器第一次同时开始响，28分钟之后又同时响起来。此时，是C蜂鸣器的第121次开始。问C和D两个蜂鸣器第一次同时开始响，是在从4个蜂鸣器首次开始响算起几分之几秒后；A和B两个蜂鸣器响完是几秒之后； 12.一个直角三角形，各边都是整数，若周长与面积的数值相同，这样的直角三角形有______个； 13.已知511 24a b =-，那么a、b共有______组，分别是_______； 14.如图所示，将半径为2厘米的圆沿圆形的内侧滚动一圈： （1）求出圆心所经过路线的长度； （2）求出图形内圆未经过部分的面积； 提高卷二一、填空题：
（PASCAL）信息学竞赛初级篇题库 1. 输入10个正整数，计算它们的和，平方和； 2. 输入20个整数，统计其中正、负和零的个数； 3. 在1——500中，找出能同时满足用3除余2，用5除余3，用7除余2的所有整数； 4. 输出1——999中能被3整除，且至少有一位数字是5的数； 5. 输入20个数，求出它们的最大值、最小值和平均值。 6. 甲、乙、丙三人共有384本书，先由甲分给乙、丙，所给书数分别等于乙、丙已有的书数，再由乙分给甲、丙，最后由丙分给甲、乙，分法同前，结果三人图书数相等。编程求甲、乙、丙三人原各有书多少本？ 7. 某养金鱼爱好者，决定出售他的金鱼。第一次卖出了全部金鱼的一半加2分之一条金鱼；第二次卖出剩金鱼的三分之一加三分之一条金鱼；第三次卖出剩金鱼的四分之一加四分之一条金鱼；第四次卖出剩金鱼的五分之一加五分之一条金鱼，最后还剩11条。问原来有多少条金鱼？（每次卖的金鱼都是整数条） 8. 猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。到了第十天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？ 9. 从键盘输入整数l，统计出边长为整数的周长为l的不等边三角形的个数。 10. 输入三个整数，以这三个数为边长，判断是否构成三角形；若构成三角形，进一步判断它们构的是：锐角三角形或直角三角形或钝角三角形。 11. 1*2*3*...*1000结果是一个很大的数，求这个数末尾有多少个连续的零。 12. 任意输入两个整数，求这两个整数的最大公约数，并求这两个整数的最小公倍数。 13. 一个整数的立方可以表示为两个整数的平方差，如19853=19711052-19691202。 编程：输入一个整数N，自动将其写成N3=X2-Y2。 14. 求100以内的所有素数。纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的四位的纯粹素数。 15. 验证回文数的猜测：左右对称的自然数称回文数。如121，4224，13731等，有人猜测：从任意一个两位或两位以上的自然数开始，将该数与它的逆序数（如1992的逆序数是2991）相加，得到一个新数，再用这个新数与它的逆序数相加，不断重复上述操作，经过若干步的逆序相加之后，总可以得到一个回文数，例如：从1992开始，1992+2991=4983；4983+3894=8877；8877+7788=16665；16665+56661=73326；73326+62337=135663；135663+366531=502194；502194+491205=993399。经过七步就得到了回文数。 设计一个程序，由计算机在局部范围内验证回文数的猜测，并将寻找回文数的每一个步骤都显示出来。16. 已知一个正整数的个位数为7，将7移到该数的首位，其它数字顺序不变，则得到的新数恰好是原数的7倍，编程找出满足上述要求的最小自然数。 17. 任意一个大于9的整数减去它的各位数字之和的差，一定能被9整除。 18. 有一个六位数，其个位数字7，现将个位数字移至首位（十万位），而其余各位数字顺序不变，均后退一们，得到一个新的六位数，假如旧数为新数的4倍，求原来的六位数。 19. 任意给定平面上三个点A（X1，Y1），B（X2，Y2），C（X3，Y3），试判断这三个点能否构成三角形。能则求出它的面积。 20. 将1至9这几个数字排成3x3方阵，并使每一横行的三个数字组成一个三位数。如果要使第三行的三位数是第一行的两倍，第三行的三位数是第一的三倍，应怎样排法？编程找出所有排法。 21. 一个合数（质数的反数），去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，余留下来的数还是合数，这样反复，一直到最后公剩下的一位数仍是合数；我们把这样的数称为纯粹合数。求所有的三位纯粹合数。 22. 输入一个大于1的整数，打印出它的素数分解式。如输入75，则打印："75=3*5*5"。 23. 某自然数n的所有素数的平方和等于n，（1<100），请找出二个这样的自然数n。
Pascal语言编译器的设计与实现我们设计的编译程序涉及到编译五个阶段中的三个，即词法分析器、语法分析器和中间代码生成器。编译程序的输出结果包括词法分析后的二元式序列、变量名表、状态栈分析过程显示及四元式序列程序，整个编译程序分为三部分： (1) 词法分析部分 (2) 语法分析处理及四元式生成部分 (3) 输出显示部分 一．词法分析器设计 由于我们规定的程序语句中涉及单词较少，故在词法分析阶段忽略了单词输入错误的检查，而将编译程序的重点放在中间代码生成阶段。词法分析器的功能是输入源程序，输出单词符号。我们规定输出的单词符号格式为如下的二元式：(单词种别，单词自身的值) #define ACC -2 #define sy_if 0 #define sy_then 1 #define sy_else 2 #define sy_while 3 #define sy_begin 4 #define sy_do 5 #define sy_end 6 #define a 7 #define semicolon 8 #define e 9 #define sharp 10 #define S 11 #define L 12 #define tempsy 15 #define EA 18 //E and #define EO 19 //E or #define plus 34 #define subtract 35 #define times 36 #define divide 37 #define becomes 38 #define op_and 39 #define op_or 40 #define op_not 41 #define rop 42
2018年余姚市程序设计竞赛 小学组 （请选手务必仔细阅读本页内容） 四．注意事项 1、文件名（程序名和输入输出文件名）必须使用小写。 2、C/C++中函数main()的返回值类型必须是int，程序正常结束时的返回值必须是0。 3、评测时采用的机器配置为：CPU 2.5GHz，内存4G。
1.统计字数 (count.pas/c/cpp) 【问题描述】 大家都知道Word是一个强大的文字处理软件，具有丰富的字数统计功能。 小明听说你学习了程序设计，想请你帮他制作一个简易统计字数的软件，现在给定小明书写的一段文字，请你统计出文字中，英文字母数量，数字字符数量。 【输入】 第一行包含一个字符串包含英文字母和数字，以及一些常见标点符号，不包含中文。 【输出】 两个整数，中间用空格分隔，分别表示英文字母数量和数字字符数量。 【输入输出样例】 【样例解释】 共23个大小写英文字母“YuyaoProgrammingContest”，4个数字“2018”。 这段话中只有13个英文字符，并没有数字。 【数据范围】 对于60%的数据，这段文字中的长度不超过200。 对于100%的数据，文字长度不超过1000。 另有50%的数据，不包含空格字符。
2.整数拆分 (split.pas/c/cpp) 【问题描述】 小明最近在学习整数拆分，他在草稿纸上随手写下了一串数字，仅包含“0”~“9”这十种数字，长度不超过9。 现在你可以在这串数字中选出任意一个子串（不能为空，可以是原串），不能以数字“0”开始。小明想要知道，这些可能的子串构成的数，有多少个比他心目中的幸运数字x更大。 注：子串只要在原串中的起始或者终止位置不同，就认为是不同的子串；子串和x都是十进制的。 【输入】 第一行输入一个数字串S，仅包含数字“0”~“9”这十种数字，长度不超过9。 第二行包含一个整数x，表示小明的幸运数字。 【输出】 有多少个非“0”开始的子串，表示成十进制数后比x更大。 【样例1解释】 子串“23”、“102”和子串“1023”，都要比12更大。 【数据范围】 对于50%的数据，S的第一个字母不超过“2”。 对于100%的数据，S仅包含数字“0”~“9”这十种数字，1<=S的长度<=9；0<=x<=777444111。
《Pascal》复习题 一、选择题 1、设有如下的过程说明 PROCEDURE wri; BEGIN Writeln(‘Welcome to use pascal!!!’); End; 则下面有关过程wri的叙述中正确的是____D_____ A)过程说明有错，因为没有形式参数 B)过程说明有错，因未说明过程的类型 C)过程说明有错，因为在过程体内没有给过程名赋值的语句 D)过程说明正确 （2章赋值语句） 2、已知变量ch是字符型变量，下面PASCAL赋值语句正确的是___D_____ A)ch:=’ab cd’; B)ch:=chr(ord(succ(‘c’)+1)); C)ch:=ord(‘b ’)+ord(‘a’); D)ch:=pred(succ(succ(‘f’))); （2章赋值语句） 3、判断以下叙述，其中正确的是___A_______ A) 在pascal程序中所用到的变量必须先说明后使用 B) 在pascal程序中,允许使用的最小值是－maxint C) 在pascal程序中,分号是语句的一部分，在每个语句中不能省略 D) 在pascal程序中,符号常数的值可根据需要随时修改 （1，2章基本知识） 4、以下不符合pascal规定的字符常量是___B_________
A)‘2’ B)‘pascal’ C)’’’’ D)‘a’ （2章标准数据类型） 5、以下属非法的pascal用户自定义标识是_____A____ A)CONST B)FORMAT C) MAX D) NEXT （1章保留字） 6、下面循环语句仅执行一次的是_____A_____ A) I:=0; B) I:=0; Repeat while (I<3) do I:=I+1; I:=I+1; Writeln(i) writeln(i); Until I<3 C)for I:=0 downto 3 do D) I:=0 I:=I+1; while (I>0) or (I<3) do Writeln(i); I:=I+1; writeln(i); （4 章循环结构） 7、下面函数首部或过程首部合法的是__B_______ A)function sum; B)procedure next; C)function s(VAR s:real):integer;
Pascal语言函数集(含Delphi控件属性) abort函数 引起放弃的意外处理 abs函数绝对值函数 addexitproc函数将一过程添加到运行时库的结束过程表中 addr函数返回指定对象的地址 adjustlinebreaks函数将给定字符串的行分隔符调整为cr/lf序列align属性使控件位于窗口某部分 alignment属性控件标签的文字位置 allocmem函数在堆栈上分配给定大小的块 allowgrayed属性允许一个灰度选择 ansicomparestr函数比较字符串（区分大小写） ansicomparetext函数比较字符串（不区分大小写） ansilowercase函数将字符转换为小写 ansiuppercase函数将字符转换为大写 append函数以附加的方式打开已有的文件 arctan函数余切函数 assignfile函数给文件变量赋一外部文件名 assigned函数测试函数或过程变量是否为空 autosize属性自动控制标签的大小 backgrounddi2001.jpg属性背景色 beginthread函数以适当的方式建立用于内存管理的线程 bevelinner属性控件方框的内框方式 bevelouter属性控件方框的外框方式 bevelwidth属性控件方框的外框宽度 blockread函数读一个或多个记录到变量中 blockwrite函数从变量中写一个或多个记录 borderstyle属性边界类型 borderwidth属性边界宽度 break命令终止for、while、repeat循环语句 brush属性画刷 caption属性标签文字的内容 changefileext函数改变文件的后缀 chdir函数改变当前目录 checked属性确定复选框选中状态 chr函数返回指定序数的字符 closefile命令关闭打开的文件
小学复赛模拟试题（一）及参考答案 第1题摘李子（plums） 问题描述： 六一儿童节就要到了，晨晨学校组织n位学生去农场摘李子。为了体现同学友好，大家把摘到的李子集中起来，然后平均分配给学生，剩余的李子就送给老师；另外，为了让老师也更多地分享同学们的快乐，同学们还约定：如果按前面办法分配后老师得到的李子数比每个同学的少，则每位同学再拿一个出来送给老师。 现在晨晨想知道每位同学最后能收获多少个李子？送给了老师多少个李子？ 输入格式： 第一行：一个整数n（1≤n≤200）。 第二行：n个200以内的正整数，它们之间用一个空格隔开，代表每人摘到的李子数。 输出格式： 第一行：一个整数，代表每位学生最后能收获的李子数。 第二行：一个整数，代表老师最后能收到的李子数。 输入样例1： 4 3 5 2 1 输出样例1： 2 3 输入样例2： 10 95 90 88 92 94 98 96 93 92 94 输出样例2： 84 92 【问题分析】 给出n个数，求出平均数（去尾），若这次除法的余数小于商，就把商减一，余数加n。然后直接输出。 【算法分析】 只要求和，求余数操作。Integer能过70%的数据，longint能过全部数据。属于送分题。【参考程序】 var n,i,j,k,t,l:longint;
begin assign(input,'plums.in'); assign(output,'plums.out'); reset(input); rewrite(output); readln(n); for i:=1 to n do begin read(k); t:=t+k; //输入并求和 end; k:=t div n; //进行除法操作 l:=t mod n; if l
相关主题
文本预览