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

小学复赛集训11．学生人数问题描述：向阳小学五年级共有N个班，每个班的人数已知，现在请你统计五年级共有多少人。

全年级的人数等于各班人数的和。

数据输入：共有N＋1行，第一行为班数N（n<=10）,接下来有N 行，每行一个正整数，表示各班的人数（小于等于60）。

数据输出：只有一个数，表示全年级的人数。

输入输出样例：输入3364038输出114var n,i,j,s,x:integer;begin repeatwrite('n=');readln(n);until (n>0) and (n<=10);for i:=1 to n dobegin readln(x);if x<=60 then s:=s+x else write('error'); end;writeln(s);end.2．本次复赛共有6道试题（包括本题），选手分成甲乙两组评定成绩。

做了5题或5题以上的选手，不管正确与否，自动进入甲组，反之为乙组。

编程对键盘输入的已做的题号（以0表示结束），统计题数，根据已做的题数输出组别。

当题数为5或6，则输出“Jia”；题数为1、2、3或4，则输出“Yi”；题数或题号超过规定的范围，则要求重新输入。

输入输出样例：输入：3↙1↙2↙5↙6↙0↙输出：Jia输入：5↙6↙0↙输出：Yi输入：1↙7↙0↙输出：Cuo Le,Chong Shu Ru!VAR TI,X:INTEGER;BEGIN READ(X); TI:=0;WHILE (X<>0) DO BEGINIF ((X<1) OR (X>6)) THEN WRITE('Cuo Le, Chong Shu Ru!')ELSE TI:=TI+1;READ(X);END;CASE TI OF5,6 :WRITE('JIA');1,2,3,4 :WRITE('YI')ELSE WRITE('Cuo Le, Chong Shu Ru!');END;end.3．编写一个乘法运算的程序。

PASCAL语言基础总成含题目PASCAL语言基础及基础训练第 1 页共 48页PASCAL语言基础第一章、什么是计算机语言计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。

它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。

计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。

目前最常用的高级语言大致有以下几种：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练习题序号题目难度完成数1计算路程167 2摄氏温度转华氏温度165 3求一元二次方程的根265 4成绩评定266 5商场折扣268 6倒数数列和357 7阶乘和357 8求最大值和最小值362 9菲波拉契数列354 10求素数347 11百钱买百鸡363 12水仙花数362 13计算π的值355 14最大公约数和最小公倍数458 15完数461 16亲密数对455 17奖学金认定259 18计算年龄261 19汽车时速计算353 20猴子吃桃问题454 21验证哥德巴赫猜想435 22钞票兑换344 23成绩评定2225 24聪明的猪414 25插入排序47 26约瑟夫问题516 27不重复的随机数413 28侦察任务310 29猜数游戏218 30因式分解411 31砝码选择34 32电灯开闭36 33追查凶手34 34十进制转二进制315 35分糖216 36贮油点53 37运动会成绩统计45 38等式填空315 39验证尼科彻斯定理410 40回文字符串217 41中缀表达式转后缀表达式57 42二叉树的遍历313 43留学生应会的语言31 44绝对素数20 45互不相同的七位完全平方数30 46求数字的乘积根50 47纯粹素数30 58完全平方数40 49十六进制数转十进制数20 50楼梯的不同走法50 51计数排序30 52厄拉多赛筛法求素数20 53杨辉三角形30 54打印图形20 55扑克分发30 56统计单词个数40 57二叉排序树20 58按比例组数30 59数字三角形40 60最佳字符编码40 1.计算路程【题目描述】从键盘输入速度v和时间t，要求计算路程s。

2.摄氏温度转华氏温度【题目描述】读入摄氏温度c，将它转换成华氏温度f输出，写出程序。

已知：f=9/5*c+32 3.求一元二次方程的根【题目描述】输入a,b,c，求一元二次方程ax2+bx+c=0的根。

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,输出这年这月应是的天数。

小学复赛集训31．已知小球从100米高度自由下落，落地后反复弹起。

每次弹起的高度都是上一次高度的一半。

求小球第N次反弹起的高度和球在整个过程所经过的路程（包括下落和反弹），用键盘输入N，输出反弹高度和经过路程，结果保留两位小数。

输入输出示例：输入：5输出：3.13290.63var n,i:integer;s,h:real;begin readln(n); h:=100;s:=h;for i:=1 to n do beginh:=h/2; s:=s+2*hend; s:=s-h;writeln(h:0:2);writeln(s:0:2);end.2.输入自然数N和K，输出自然数N的从右边开始第K位上的数字值，如N=528946，K=3，则输出9，若输入N=1289，K=6，则输出0。

var n,k,d,f:longint;begin read(n,k);repeat f:=n mod 10;n:=n div 10; k:=k-1;until k=0; write(f);end.3. 四个老师分析四个学生的成绩，甲老师认为c学生得优，乙老师认为得优的是B学生，丙老师认为D学生不可能得优，丁老师认为甲老师的意见不正确。

考试结果，四个学生只有一个学生得优，而且只有一个老师说对了，判断哪个学生得优，哪个老师的意见正确。

Var I,a,b,c,d:integer;Begin for i:=1 to 4 do begina:=ord(i=3); b:=ord(i=2); c:=ord(i<>4); d:=ord(i<>3);if (a+b+c+d=1)and(a*b*c*d=0) then beginwriteln(chr(64+i),' xuesheng');if a=1 then writeln('jia laoshi');if b=1 then writeln('yi laoshi');if c=1 then writeln('bing laoshi');if d=1 then writeln('ding laoshi');end; end; readln;End.4. 把1-9这 9 个数字分为 4 个和 5 个两组，使组成的 4 位数与 5 位数之比是1∶2。

小学4升5数学练习题免费随着小学生升入五年级，数学的学习内容也进入了新阶段。

为了帮助孩子们更好地适应新学期的数学学习，提高他们的数学能力，我们特别准备了一些免费的小学4升5数学练习题。

这些练习题旨在帮助学生巩固前几年的数学知识，同时逐步引导他们理解和掌握新学期的数学内容。

一、整数练习题1. (-7) + (-4) = ?2. 5 - (-3) = ?3. 计算：(-8) - 3 + 5 - (-2)。

4. 约简：(-3) ÷ 9。

5. 某数与(-6)的差是4，这个数是多少？6. 填空：(-2) × ___ = 16。

7. 计算：2 × (-0.5) × 4。

8. 约简：12 ÷ (-4)。

二、小数练习题1. 将8.03和3.6相加。

2. 将4.56和2.333相减。

3. 计算：3 × 2.5。

4. 某数加3.2等于5，这个数是多少？5. 填空：7.5 ÷ ___ = 2.5。

6. 计算：5.1 × 1.2 ÷ 0.6。

7. 某数乘以6.3等于7.56，这个数是多少？8. 2.4 × (-0.5) 等于多少？三、几何练习题1. 一个正方形的边长为8 cm，它的周长是多少？2. 一个长方形的长是12 cm，宽是5 cm，它的周长是多少？3. 一个矩形的长是7 cm，宽是4 cm，它的面积是多少？4. 把一个正方形的边长乘以3，得到这个正方形的面积是多少？5. 一个长方形的面积是15 cm²，它的长是3 cm，宽是多少？6. 一个三角形的底是6 cm，高是4 cm，它的面积是多少？7. 一个正方形的面积是36 cm²，它的边长是多少？8. 一个正方形的周长是32 cm，它的面积是多少？通过以上练习题，学生们可以巩固和应用在小学前几年所学的数学知识，同时也可以提前接触到五年级的数学内容，为新学期的学习打下坚实的基础。

pascal 练习题Pascal练习题Pascal是一种结构化的编程语言，于20世纪70年代由Niklaus Wirth开发。

它以其简洁、易读和高效的特点而闻名。

由于Pascal语言的特殊性质，它被广泛用于教育和训练编程入门者。

本篇文章将为大家呈现一些适用于Pascal编程的练习题。

通过这些练习题，读者们可以增加他们的Pascal编程技能，深入了解Pascal语言的特性与用法。

下面列出了一些练习题，每个练习题都有对应的题目和要求。

练习题一：阶乘计算器题目：编写一个程序，实现阶乘的计算。

要求：用户输入一个正整数，程序将输出该数的阶乘。

练习题二：质数判断器题目：编写一个程序，判断一个数是否为质数。

要求：用户输入一个整数，程序将输出该数是否为质数。

练习题三：字符串翻转题目：编写一个程序，实现字符串的翻转。

要求：用户输入一个字符串，程序将输出该字符串的翻转结果。

练习题四：数列求和题目：编写一个程序，计算数列的和。

要求：给定一个正整数n，程序将计算1到n的所有整数的和。

练习题五：矩阵转置题目：编写一个程序，实现矩阵的转置。

要求：用户输入一个m×n的矩阵，程序将输出该矩阵的转置矩阵。

练习题六：冒泡排序题目：编写一个程序，实现冒泡排序算法。

要求：用户输入一个整数数组，程序将按照升序或降序的方式对数组进行排序。

通过上述练习题，我们可以锻炼Pascal编程的各个方面，包括基本的算术运算、条件语句、循环语句、字符串处理以及数组操作等。

通过编写这些程序，读者不仅可以提高他们的编程技能，还可以更好地理解算法的实现过程。

为了更好地完成这些练习题，以下是一些有用的提示：1. 阶乘计算器：使用一个循环结构，递增一个变量并与用户输入的数相乘，直到达到用户输入的数。

2. 质数判断器：使用一个循环结构，检查除了1和自身以外的数是否可以整除用户输入的数。

3. 字符串翻转：使用一个循环结构，从字符串的末尾开始逐个提取字符，然后将提取的字符逐个连接起来形成新的字符串。

Pascal基础题100道合集(全).txt一个人一盒烟一台电脑过一天一个人一瓶酒一盘蚕豆过一宿。

永远扛不住女人的小脾气，女人永远抵不住男人的花言巧语。

1题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？var i,j,a,b,c:integer;beginfor i:=1 to 4 dofor j:=1 to 4 dofor a:=1 to 4 dofor b:=1 to 4 dobeginif (i<>j) and (i<>a) and (i<>b) and (j<>a) and (j<>b) and (a<>b) then writeln(i,j,a,b);end;end.2题目：企业发放的奖金根据利润提成。

利润(i)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？vara:longint;s:real;beginreadln(a);if a<100000 then s:=a*0.1;if a>100000 thenbeginif (a>100000)and(a<=200000) then s:=s+(a-100000)*0.075+100000*0.1;if (a>200000)and(a<=400000) then s:=s+(a-200000)*0.05+100000*0.1+100000*0.075;if (a>400000)and(a<=600000) then s:=s+(a-400000)*0.03+100000*0.1+200000*0.05;if (a>600000)and(a<=1000000) then s:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03;if (a>1000000) then s:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015;end;writeln(s:5:2);end.3题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？var i:longint;a,b:real;beginfor i:=1 to 1000000 dobegina:=sqrt(i+100);b:=sqrt(i+268);if ((a*a)=(i+100)) and ((b*b)=(i+268)) then writeln(i);end;end.4题目：输入某年某月某日，判断这一天是这一年的第几天？var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer;beginread(a,b,c);a1:=0;a2:=31;a3:=59;a4:=90;a5:=120;a6:=151;a7:=181;a8:=212;a9:=243;a10:=273;a11: =304;a12:=334;if (b=1) then d:=a1 elseif (b=2) then d:=a2 elseif (b=3) then d:=a3 elseif (b=4) then d:=a4 elseif (b=5) then d:=a5 elseif (b=6) then d:=a6 elseif (b=7) then d:=a7 elseif (b=8) then d:=a8 elseif (b=9) then d:=a9 elseif (b=10) then d:=a10 elseif (b=11) then d:=a11 elseif (b=12) then d:=a12;d:=d+c;if (a mod 1000=0) and (c mod 400=0) and (b>3) then d:=d+1;if (a mod 1000<>0) and (c mod 4=0) and (b>3) then d:=d+1;writeln(d);end.5题目：输入三个整数x,y,z，请把这三个数由小到大输出。

） 第一章 初识Pascal 语言【上机练习】1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。

2. 输入圆的半径R ，求圆的面积和周长。

3. 加法计算器：编程由键盘输入两个整数a 和b ，将它们的和输出到屏幕上。

4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。

( 梯形面积公式为 S=5. 已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。

6. 进入Fp ，调试以下程序：program ex1_6;vars : string;beginwrite(‘Ple ase input your name’);readln(s);writeln(s,’ is the best.’);end.第二章 顺序结构【上机练习2.4】1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S 。

2.已知某圆的半径R=139，求该圆的周长C 与面积S ？3.输入长方形的边长a,b ，计算它的面积和周长，输出。

4.读入摄氏温度c ，写程序将它转换成华氏温度f 输出。

已知f=9c/5+325.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。

(求序号用ORD 函数)6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。

7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。

【上机练习2.7】1.有三个小朋友甲乙丙。

甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。

现在他们做一个游戏。

从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。

问最后甲、乙、丙三人各有书多少粒糖果？2.交换两个变量的值：由键盘输入两个正整数A 和B ，编程交换这两个变量的值。

3.编写程序把一个三位整数反转，例如358反转成853。

4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？5.五位好朋友相聚。

第十二届绍兴市少儿信息学竞赛初赛试题（小学组PASCAL语言二小时完成）●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。

共20分）1. 我们要养成正确的键盘输入习惯，那么请问按正确指法击T键，应使用（）A) 右手食指B) 右手中指C) 左手食指D) 左手中指2．每个不同的二进制数可以表示一种颜色，如果一幅图像有256种颜色，最少需要几位二进制数来表示？（）A) 8 B) 16C) 128 D) 2563．以下运算结果为False的是（）A) not (5>5) B) (5>=4) and (7<7) C) not (false) D) (5<4) or (5>=5) 4．在Free Pascal中运行某一程序时，返回如下图所示的错误信息，这是由于( )A) 找不到输入文件B) 源程序存在2号语法错误C) 输入变量的值与变量的类型不匹配D) Pascal编译器没有正确安装5．二维数组A的每个元素是由6个字符组成的串。

其行下标从0到8，其列下标从0到9，若按行优先存储，元素A[7][4]的起始地址与当A按列优先存储时（）的起始地址相同，设每个字符占一个字节。

A) A[2][8] B) A[3][9] C) A[5][7] D) A[0][8]6.ASCII码表中的大写字母Z后有6个其他字符，接着便是小写字母。

现在已知：字母Y的ASCII码为（）2，则字母a的ASCII码用十六进制表示是（）A) 61H B) 62H C) 63H D) 64H7.下列软件不能用于浏览网页的是 ( )A) Firefox B) Internet Explorer C) Access D) 腾讯TT8.路人甲要拍摄一些学校风景照片,并对拍摄的照片进行处理,下列采集工具、加工软件可实现这一功能的是（）A) 数码相机、photoshop B) 扫描仪、goldwaveC) 数码摄像机、goldwave D) 手机、access9.某电影的评价如图所示：图中的评价方式属于（）A) 个人推荐B) 统计评价C) 专家推荐D) 核心刊物评价10.某用户微博的相关统计如图所示：图中的“围观”数主要体现了该用户微博信息的（ ）A) 安全性B) 真伪性 C) 共享性 D) 载体依附性二、根据要求回答问题：（5＋5＝10分）1. 地球人都知道斐波那契数列的递推关系式为：⎪⎩⎪⎨⎧-+-===)2()1()(1)2(1)1(n f n f n f f f 现在给你一列数2,3,6,8,8,4,2,…，如果用f （n ）表示这个数列的第n 个数，请写出这个递推式。