当前位置：文档之家 › 小学Pascal练习题

小学Pascal练习题

  • 格式：doc
  • 大小：40.50 KB
  • 文档页数：7

一、编程实现：（1）：输入x,y的值,用程序实现输出时x为y的值，y为x的值。

(test1)（2）：输入一个三位数，输出它的相反数。

如：输入234，输出432。

（3）：从键盘输入一个数x，计算表达式3*x-6的值，并在屏幕输出结果。

(test3)（4）：输入20个数，统计其中正数、负数和零的个数。

要求：程序名ex统计个数变量：num1（正），num2（负），num3（零）循环变量：i（5）：用当循环语句（while）编程计算1×2×4×6×8×……×20的积。

(test5)（6）：李冬期末考试考语文、数学、英语三门课程，编程求他期末考试的总分和平均分(test6) （7）：随机产生互不相同的两位数20个，并按从小到大的顺序排列。

（8）：新年联欢会，来宾聚一堂，互相碰一杯，903响，问有多少人，饮酒在会上？（9）：编程求1~100以内所有质数的和。

（10）：编程判断某个年份是否是闰年。

输入年份（变量名称：year），若是闰年，则在屏幕上显示Yes，否则输出No (test10（11）：小明有一本书，第一天看了全书的一半，第二天又看了剩余的2/3，还有10页没看完，问全书共有几页？（12）：一本1000页的书，黄强第一天看了10页。

以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。

（13）：兄弟三人岁数和是30，大哥的岁数减2，二哥的岁数加2，弟弟的岁数乘以2 ，结果三人的岁数相同，求三人的岁数各是多少？（14）：求1+5+9+13+…101的和。

（15）：剧场中有1000个座位，已知第一排有30个座位，以后每排增加2 个座位，1000个座位最多能排几排？最后剩余不够一排的座位有几个？如果按前边的排法再补全一排，整个剧场有多少个座位？（16）：爸爸比儿子大30岁，四年后爸爸的年龄将是儿子的四倍，问爸爸和儿子各是多少岁？（17）：用数组形式求1-100以内所有奇数的和。

（18）：编程模拟投掷硬币100次正反面各出现的次数。

（19）：编程求出所有十位数字与个位数字之和等于百位数字的三位数。

（20）：随机生成20个两位数的整数，并按从大到小的顺序输出。

（21）：编程模拟中福彩票双色球号码产生的程序。

基本要求是红球号码范围为1-33，共产生6 个。

蓝球号码范围为1-16，共产生1 个。

编程输出结果如下：2 6 8 20 24 30 -5 （22）：输入三个数，输出三个数中最大的一个。

（23）：输出11+12+23+35+58+813+1321+2134……前20项之和。

（24）：由键盘输入正整数N（N≤100），求1到N之间所有的5的倍数之和S。

例：输入：N＝10输出：S＝15（因为1～10之间只有5和10是5的倍数）（25）：一光滑墙壁高X尺，有一个小虫从墙底部向上爬，每分钟爬Y尺。

但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。

编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。

如：输入：X，Y＝4,2输出：5二、写出程序的运行结果1．PROGRAM exam(Input,Output);V AR ch1,ch2,ch3:char;BEGINreadln(ch1,ch2,ch3);readln(ch1,ch2);readln(ch1);writeln(ch1,ch2,ch3);END.运行以上程序时，若输入为：ABYXOZBGD则输出结果为：BOY2．PROGRAM p226(output);V AR a,k:integer;BEGINa:=3972; k:=0;WHILE a<>0 DOBEGINa:=a DIV 10; k:=k+1END;Writeln(k:3)END.执行后的输出是：43．PROGRAM p29(output);V AR i,j:integer;BEGINFOR i:=1 TO 5 DOBEGINFOR j:=5 DOWNTO i DO Write(‘+’);Writeln ;ENDEND.运行后输出的图形应是：++++++++++4．FUNCTION high(x,y:integer):integer;BEGINhigh:=x-(x+y) DIV (x-y)END;执行语句t:=high(4,high(6,high(4,1)))后，求变量t的值。

t = -3 (example3)5．FUNCTION f(a,b,c:integer):integer;V AR t:integer;BEGINa:=3*a;t:=b DIV c;f:=a+4*tEND;求表达式f(1,f(1,2,3),3)的值。

f=7 (example3)6．FUNCTION F(n,p:integer):integer;V AR i:integer;BEGINn:=abs(n);FOR i:=1 TO p-1 DO n:=n DIV 10;F:=n MOD 10END;求执行函数调用语句F(5623,6)后的函数值。

f=0 (example3)7．FUNCTION f(n:integer):integer;BEGINIF n=0 THEN f:=0ELSE IF n>0 THEN f:=f(n-2)ELSE f:=f(n+3);END;求函数调用f(5)的值。

f=0 (example3)8．FUNCTION f1(a,b:integer):integer;BEGINIF b=0 THEN f1:=aELSE f1:=f1(pred(a),pred(b))END;求f1(10,6)的值。

f=4 (example3)9．PROGRAM main(input,output); (example4) V AR s,n:integer;PROCEDURE p1;V AR i:integer;BEGINs:=0;FOR i:=0 TO n DO s:=s+1END;PROCEDURE p2;V AR j:integer;BEGINn:=1;FOR j:=1 TO s DO n:=n*jEND;BEGINn:=2;p1;writeln(‘s=’,s);p2;writeln(‘n=’,n);p1;writeln(‘s=’,s);END.结果:s=3n=6s=710．PROGRAM EX(output); (example5)V AR x,y,z:integer;PROCEDURE P(x,y:integer;V AR z:integer);BEGINz:=y-x-z;END;BEGINx:=5; y:=7; z:=4;P(7,x+y+z,x);Writeln(x:2,y:2,z:2)END.结果: 4 7 411．PROGRAM EX(output); (example6)V AR i,j:integer;PROCEDURE f(k:integer;V AR l:integer);BEGINIF k>=0 THEN l:=kELSE l:=-kEND;BEGINFOR i:=-2 TO 2 DOBEGINf(i,j);write(j:2)END;WritelnEND.结果: 2 1 0 1 212．PROCEDURE DB(n:integer); (example4)BEGINIF n>2 THEN DB(n DIV 2);Write(n MOD 2:1)END;主程序用DB(12)调用上述过程，输出的正确结果：110013．PROGRAM EX(output); (example7)VAR x,y,z:integer;PROCEDURE P(x:integer;V AR y:integer);BEGINx:=5; y=6; z=7;writeln(x:3,y:3,z:3)END;BEGINx:=1; y:=2; z:=3;P(x,y);Writeln(x:3,y:3,z:3)END.结果:5 6 71 6 714．PROGRAM pro(input,output); (example8)VAR x,y:integer;PROCEDURE pro(i1,i2:integer);BEGINi1:=x+y; i2:=i1*yEND;BEGINx:=5; y:=10;pro(x,y);Writeln(x:3,y:3)END.结果: 5 1015．FUNCTION f(a,b,c:integer):integer; (example3)V AR t:integer;BEGINa:=3*a;t:=b DIV c;f:=a+4*tEND;求表达式f(1,f(1,2,3),3)的值。

f=716． FUNCTION f(n:integer):integer; (example3)BEGINIF n=0 THEN f:=0ELSE IF n>0 THEN f:=f(n-2)ELSE f:=f(n+3);END;求函数调用f(5)的值。

结果: f=017．设有一函数子程序定义如下：FUNCTION f(x,y,z:integer):integer; (example3)BEGINf:=z-y DIV x;END;执行语句cal:=f(f(2,4,6),6,8)后，变量cal的值。

结果: f=718．CONST r=1; s=2; t=3; (11example)V AR x:ARRAY [1..5] OF integer;且已知x[1]=1; x[2]=7; x[3]=9; x[4]=1; x[5]=6;则计算表达式：(x[s]-1>x[5]) AND (x[t]=7) OR (x[r*3]=(r+s))的值。

表达式简化为0 and 0 or 1结果:119．PROGRAM pro(input,output); (example9)V AR a,b:integer;PROCEDURE p1(x:integer;V AR y:integer);BEGINy:=x+y;writeln(x:3,y:3)END;BEGINa:=5; b:=8; p1(a,b); p1(a+b,a); p1(a DIV b,b)END.结果:5 1318 231 1420．PROGRAM main(input,output); (example4)V AR s,n:integer;PROCEDURE p1;V AR i:integer;BEGINs:=0;FOR i:=0 TO n DO s:=s+1END;PROCEDURE p2;V AR j:integer;BEGINn:=1;FOR j:=1 TO s DO n:=n*jEND;BEGINn:=2; p1; writeln(‘s=’,s); p2;writeln(‘n=’,n); p1; writeln(‘s=’,s);END.结果:s=3n=6s=721．PROGRAM pro1(input,output); (example8)VAR x,y:integer;PROCEDURE pro(i1,i2:integer);BEGINi1:=x+y; i2:=i1*yEND;BEGINx:=5; y:=10;pro(x,y);Writeln(x:3,y:3)END.结果: 5 1022．PROGRAM Y(output); (12example)VAR a,b:integer;PROCEDURE P(c:integer;V AR d:integer);BEGINc:=a+b; d:=a-bEND;BEGINa:=1; b:=2;P(a,b);Writeln(a:3,b:3)END.结果: 1 -123．PROGRAM Abc(output); (13example)V AR k:integer;A:ARRAY [1..5] OF integer;BEGINFOR k:=1 TO 5 DO A[k]:=2*k;FOR k:=2 TO 4 DO A[k]:=A[k+1]+A[k-1];Writeln(A[2]:3,A[4]:3)END.结果: 8 26。

合集下载

2005年小学生决赛试题2(pascal)练习

2005年小学生决赛试题2(pascal)练习

2005年东莞市小学生计算机程序设计竞赛复赛试题（二）pascal语言说明：请将答案填在答题卡上，只交答题卡，一、选择题：（每题1分，共10分）1、计算机内部，对数据进行加工处理都是以（）形式进行的。

A、十进制数B、二进制数C、十六进制数D、八进制数2、不同的计算机所用的指令也不同，这主要取决于（）。

A、所用的操作系统B、系统的总体结构C、所用的CPUD、所用的语言3、下面不是程序设计语言的有（）。

A、PASCALB、BASICC、C++D、DOS4、下列五进制数中，不合法的数（）。

A、310（5）B、401（5）C、250（5）D、300（5）5、计算机病毒破坏的是（）。

A、软盘B、硬盘C、打印机D、程序和数据6、下面几个不同进制的数中，最小的是（）A、102（5）B、65（10）C、78（8）D、110110(2)7、1字节在计算机中用位二进制来表示（）A、2位B、8位C、10位D、16位8、1个汉字在计算机中占个字符的位置（）A、2个B、8个C、10个D、1个9、断电后保存在下面哪个设备中的数据会丢失（）A、硬盘B、光盘C、ROMD、RAM10、下列设备中，既是输入设备，又是输出设备的是（）A、显示器B、打印机C、磁盘D、扫描仪二、填空题（每小题5分，共15分）1、求144的约数有多少个？（所谓144的约数，就是指能整除144的数）2、从1到99的自然数中，不含数字3的自然数有多少个？3、100个青年人中，会骑自行车的有83人，会游泳的有75人，两样都不会的有10人，两样都会的有多少人？三、运行结果：（每小题6分，共36分）四、程序填空：（每空3分，共39分）1、从键盘输入两个字符串A和B，下面程序能找出它们最长的公共子串，请完善程序。

分析：所谓公共子串，就是两个字符串中含有相同的子字符串。

program f2_401;var a,b,temp,d:string;la,lb,len,j,k:integer;beginwrite('input the string 1:');readln(a);write('input the string 2:');readln(b);if length(a)>=length(b) thenbegintemp:=a;a:=b;b:=temp;end;la:=length(a);lb:=length(b);for len:=la downto 1 dofor j:=1 to la+1-len dobegind:= (1) ;for k:=1 to lb+1-len doif (2) thenbeginwriteln( (3) );halt;end;end;writeln('no fint!');end.2、面程序的功能是：读入N个数,用折半插入法进行从小到大排序。

pascal语言试题及答案

pascal语言试题及答案

pascal语言试题及答案1. Pascal语言的创始人是谁？- A. Dennis Ritchie- B. Bjarne Stroustrup- C. Niklaus Wirth- D. Guido van Rossum答案： C2. 以下哪个选项不是Pascal语言的特性？- A. 结构化编程- B. 强类型- C. 面向对象- D. 编译型语言答案： C3. Pascal语言中，用于声明变量的关键字是什么？- A. var- B. let- C. def- D. declare答案： A4. 在Pascal中，以下哪个运算符用于比较两个变量是否不相等？ - A. =- B. <>- C. ==- D. !=答案： B5. Pascal语言中，以下哪个关键字用于定义函数？- A. function- B. procedure- C. define- D. method答案： A6. 在Pascal中，如何声明一个整型数组？- A. var arr: array[1..10] of integer;- B. var arr: integer[1..10];- C. var arr: integer array[1..10];- D. var arr: integer[10];答案： A7. Pascal语言中，以下哪个语句用于循环执行一段代码？ - A. loop- B. repeat- C. while- D. for答案： D8. 在Pascal中，以下哪个关键字用于定义过程？- A. function- B. procedure- C. subroutine- D. method答案： B9. Pascal语言中，以下哪个运算符用于取模运算？- A. %- B. mod- C. div- D. rem答案： D10. 在Pascal中，以下哪个关键字用于定义一个记录类型？ - A. record- B. struct- C. type- D. class答案： A。

Pascal选择结构 练习(一)

Pascal选择结构 练习(一)

2015-2016(上)第13周作业班级：__________ 姓名：_____________一、选择题1.下面的表达式中，布尔值为true的是（）A.4+5 mod 2>4B.(4+5) mod 2>4C.'0'>'a'D. 0>a2.下列选项中，不是布尔表达式的是（）A.not bB.(x>0) or (y>0)C.5 div 3D.9+4>5+33.下面条件语句的格式书写不正确的是（）A．if 条件then 语句1B．if 条件then 语句1; else 语句2C．if 条件then 语句1 else 语句24.下列选项中不是逻辑运算符的是（）A．not B．or C．and D．end二、填空题1、"若A-B不小于C，则将B增加1，否则将B减少1“用Pascal语言可表示为;。

2、"闰年指年号能被4整除，但不能被100整除，或者年号能被400整除的年"写成Pascal语言表达式为。

3、命题"m,n都是偶数或都是奇数"可表示为。

4、表达式pred(succ(true))的值为。

5.表达式not true or true and false的值为。

6、表达式ord(false)+5的值为。

7、inc(ord(true))的结果是。

三、阅读程序写输出结果1. var a:integer;beginreadln(a);if a mod 2=0 then writeln(a,'->oushu')else writeln(a,'->jishu');end.输入"1288”后，输出结果为。

2、var x,y:real;beginwrite('x=');read(x);if x<0 then y:=1-x else y:=1+x;writeln('x=',x,' ':4,'y=',y);end.输入"15"后，输出结果为输入"-2"后，输出结果为3、var a:integer;b:boolean;beginreadln(a);if a mod 2=0 then b:=true else b:=false;writeln(b);end.输入"8"后，输出结果为。

小学四升五初学信息学习题Pascal

小学四升五初学信息学习题Pascal

20XX年7月7日练习题，1、请同学们以自己的姓名建立好文件夹，设置好FP快捷方式的路径；2、每道题必须按给定的文件名命名,保存在自己姓名的文件夹下；1、求梯形面积（保存文件名：a.pas）输入梯形的上底a、下底b和高h，求该梯形的面积。

( 梯形面积公式为S=2、求圆柱体的面积（保存文件名：b.pas）输入图圆柱体的高h，底面圆的半径r，求圆柱体表面积。

例如：输入12 7（分别表示高h，半径r)输出：3、找规律(保存文件名：c.pas)题目描述给出一个数列4,7,10,13,16,19,22...，问这个数列的第n项是什么？输入一行一个整数n输出一行，表示这个数列的第n项是多少输入样例8输出样例254、鸡兔同笼问题(保存文件名：d.pas)题目描述每一只鸡有两条腿，一只兔子四条腿，现在给出鸡兔总共有n条腿，然后其中有m只是兔子，问有多少只鸡。

输入一行，两个整数n，m分别表示有n条腿和m只兔子输出一行，表示有多少只鸡输入样例100 15输出样例20解释有100条腿，15只兔子。

15只兔子有60条腿，也就是说鸡有40条腿，也就是说有20只鸡。

5、完全平方数(保存文件名：e.pas)题目描述给出一个整数n，如果n是完全平方数，那么输出yes，否则输出no输入输出如果n是完全平方数，则输出yes，否则输出no样例输入：样例1：25样例2：37样例输出：样例1：yes样例2：no6、菲波拉契数列(保存文件名：f.pas) 菲波拉契数列如下：0,1,1,2,3,5,8,13,21,……输入：n输出：第n项。

如输入：1应输出：0输入：5输入:8输出:137、判断质数(保存文件名：g.pas)输入1个自然数x，判断x是不是质质，如果是质数，输出“Yes”，否则输出“No”. 如输入：3输出：Yes输入：9输出：No输入:17输出Yes8、判断某年某月的天数(保存文件名：h.pas)输入一个年份year, 和一个月份month,输出这年这月应是的天数。