free pascal练习题
free pascal 测试题1
培训一相关试题检测1．在下列关于计算机语言的说法中，正确的有（）。
（13届第11题）A．高级语言比汇编语言更高级，是因为它的程序的运行效率更高B．随着Pascal、C等高级语言的出现，机器语言和汇编语言已经退出了历史舞台C．高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上D．C是一种面向对象的高级计算机语言2. 在下列关于计算机语言的说法中，不正确的是（）。
（12届第7题）A. Pascl和C都是编译执行的高级语言B. 高级语言程序比汇编语言程序更容易从一种计算机移植到另一种计算机上C. C++是历史上的第一个支持面向对象的计算机语言D. 与汇编语言相比，高级语言程序更容易阅读3.提出“存储程序”的计算机工作原理的是（）。
（16届第6题）A.克劳德·香农B.戈登·摩尔C.查尔斯·巴比奇D.冯·诺依曼4、美籍匈牙利数学家冯·诺依曼对计算机科学发展所做出的贡献是（）。
（10届第1题）A.提出理想计算机的数学模型，成为计算机科学的理论基础。
B.是世界上第一个编写计算机程序的人。
C.提出存储程序工作原理，并设计出第一台具有存储程序功能的计算机EDV AC。
D.采用集成电路作为计算机的主要功能部件。
E.指出计算机性能将以每两年翻一番的速度向前发展。
5.算法是指（）（6届第4题）A.为解决问题而编制的计算机程序B.为解决问题而采取的方法与步骤C.为解决问题而需要采用的计算机语言D.为解决问题而采用的计算方法6.下面关于算法的错误说法是( )（7届第5题）A)算法必须有输出B)算法必须在计算机上用某种语言实现C)算法不一定有输入D)算法必须在有限步执行后能结束7.解释程序的功能是( )（7届第6题）A)将高级语言程序转换为目标程序B)将汇编语言程序转换为目标程序C)解释执行高级语言程序D)解释执行汇编语言程序8. 在下列关于计算机算法的说法中，不正确的是（）。
PASCAL练习题-18页word资料
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的根。
freepascal过程练习题
Freepascal过程练习题1、输入三个不同的整数,按由小到大排序。
输入样例：2 1 3输出样例:1 2 32、如果一个自然数除了1和本身,还有别的数能够整除它, 这样的自然数就是合数。
例如15,除了1和15,还有3和5能够整除,所以15是合数。
14,15,16是三个连续的合数,试求连续十个最小的合数。
输出样例：114 115 116 117 118 119 120 121 122 1233、编写一个给一个分数约分的程序。
输入样例：12 8 {中间空1个空格}输出样例：3 24．输入一个任意位的正整数,将其反向输出。
输入样例：321输出样例：1235．有五位同学,其各科成绩如下:。
学号数学语文英语总分名次1 108 97 902 98 88 1003 100 43 894 84 63 505 97 87 100（１）编写一个过程enter,输入每个学生成绩并计算各人的总分。
（２）编写过程minci,用以排出每个人的名次。
（３）按学号顺序输出。
6、学校举行晚会，要M 个学生中选N 个学生到舞台上表演一个游戏，问有多少种选择方法。
这是数学中的组合运算，可用下列公式计算 ，其中M ，N 由键盘输入。
输入样例：10 7 输出样例： 1207、自然数a 的因子是指能整除a 的所有自然数，但不含a 本身。
例如12的因子为：1,2,3,4,6。
若自然数a 的因子之和为b ，而且b 的因子之和又等于a ，则称a,b 为一对“亲和数” 。
求最小的一对亲和数。
)!!*(!n m n m C n m -=。
free Pascal上机练习1
2016暑期上机练习(一)1．数字统计(two.pas/c/cpp)【问题描述】请统计某个给定范围[L, R]的所有整数中，数字2 出现的次数。
比如给定范围[2, 22]，数字2 在数2中出现了1次，在数12中出现1 次，在数20 中出现1 次，在数21 中出现 1 次，在数22 中出现2 次，所以数字2 在该范围内一共出现了6次。
【输入】输入文件名为two.in。
输入共1 行，为两个正整数L 和R，之间用一个空格隔开。
【输出】输出文件名为two.out。
输出共1 行，表示数字2 出现的次数。
【数据范围】1 ≤L ≤R≤10000。
2.接水问题(water.pas/c/cpp)【问题描述】学校里有一个水房，水房里一共装有m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。
现在有n 名同学准备接水，他们的初始接水顺序已经确定。
将这些同学按接水顺序从1到n 编号，i号同学的接水量为w i。
接水开始时，1 到m号同学各占一个水龙头，并同时打开水龙头接水。
当其中某名同学j 完成其接水量要求w j后，下一名排队等候接水的同学k马上接替j 同学的位置开始接水。
这个换人的过程是瞬间完成的，且没有任何水的浪费。
即j 同学第x 秒结束时完成接水，则k 同学第x+1 秒立刻开始接水。
若当前接水人数n’不足m，则只有n’个龙头供水，其它m−n’个龙头关闭。
现在给出n名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。
【输入】输入文件名为water.in。
第 1 行2 个整数n 和m，用一个空格隔开，分别表示接水人数和龙头个数。
第 2 行n 个整数w1、w2、……、wn，每两个整数之间用一个空格隔开，wi表示i 号同学的接水量。
【输出】输出文件名为water.out。
输出只有一行，1 个整数，表示接水所需的总时间。
【输入输出样例1解释】第 1 秒，3 人接水。
第 1秒结束时，1、2、3 号同学每人的已接水量为 1，3 号同学接完水，4 号同学接替 3 号同学开始接水。
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 练习题Pascal练习题Pascal是一种结构化的编程语言，于20世纪70年代由Niklaus Wirth开发。
它以其简洁、易读和高效的特点而闻名。
由于Pascal语言的特殊性质，它被广泛用于教育和训练编程入门者。
本篇文章将为大家呈现一些适用于Pascal编程的练习题。
通过这些练习题，读者们可以增加他们的Pascal编程技能，深入了解Pascal语言的特性与用法。
下面列出了一些练习题，每个练习题都有对应的题目和要求。
练习题一：阶乘计算器题目：编写一个程序，实现阶乘的计算。
要求：用户输入一个正整数，程序将输出该数的阶乘。
练习题二：质数判断器题目：编写一个程序，判断一个数是否为质数。
要求：用户输入一个整数，程序将输出该数是否为质数。
练习题三：字符串翻转题目：编写一个程序，实现字符串的翻转。
要求：用户输入一个字符串，程序将输出该字符串的翻转结果。
练习题四：数列求和题目：编写一个程序，计算数列的和。
要求：给定一个正整数n，程序将计算1到n的所有整数的和。
练习题五：矩阵转置题目：编写一个程序，实现矩阵的转置。
要求：用户输入一个m×n的矩阵，程序将输出该矩阵的转置矩阵。
练习题六：冒泡排序题目：编写一个程序，实现冒泡排序算法。
要求：用户输入一个整数数组，程序将按照升序或降序的方式对数组进行排序。
通过上述练习题，我们可以锻炼Pascal编程的各个方面，包括基本的算术运算、条件语句、循环语句、字符串处理以及数组操作等。
通过编写这些程序，读者不仅可以提高他们的编程技能，还可以更好地理解算法的实现过程。
为了更好地完成这些练习题，以下是一些有用的提示：1. 阶乘计算器：使用一个循环结构，递增一个变量并与用户输入的数相乘，直到达到用户输入的数。
2. 质数判断器：使用一个循环结构，检查除了1和自身以外的数是否可以整除用户输入的数。
3. 字符串翻转：使用一个循环结构，从字符串的末尾开始逐个提取字符，然后将提取的字符逐个连接起来形成新的字符串。
pascal 练习题
pascal 练习题Pascal练习题Pascal是一种流行的编程语言，被广泛应用于科学计算、算法设计和软件开发等领域。
为了提高编程能力和熟练掌握Pascal语言的特性，练习题是一种非常有效的学习方法。
本文将介绍一些Pascal练习题，并探讨它们的解决方法和应用场景。
一、计算圆的面积和周长编写一个Pascal程序，根据用户输入的半径，计算并输出圆的面积和周长。
这个练习题可以帮助我们熟悉Pascal的基本语法和数学计算。
解决这个问题的关键是理解圆的面积和周长的计算公式，并正确地应用到程序中。
二、查找最大值和最小值给定一个整数数组，编写一个Pascal程序，找出数组中的最大值和最小值，并输出它们。
这个练习题可以帮助我们熟悉Pascal的数组操作和条件判断。
解决这个问题的关键是遍历数组，比较每个元素的值，并使用变量记录最大值和最小值。
三、猜数字游戏编写一个Pascal程序，实现一个猜数字的游戏。
游戏开始时，随机生成一个0到100之间的整数，玩家需要通过输入猜测的数字来猜出正确的答案。
程序会根据玩家的猜测给出提示，直到猜对为止。
这个练习题可以帮助我们熟悉Pascal的随机数生成和条件判断。
解决这个问题的关键是使用随机数生成器生成一个随机数，并与玩家的猜测进行比较。
四、斐波那契数列编写一个Pascal程序，计算并输出斐波那契数列的前N项。
斐波那契数列是一个非常经典的数列，每一项都是前两项的和。
这个练习题可以帮助我们熟悉Pascal的循环和递归。
解决这个问题的关键是使用循环或递归的方式计算数列的每一项，并将结果输出。
五、排序算法给定一个整数数组，编写一个Pascal程序，实现排序算法对数组进行排序，并输出排序后的结果。
常见的排序算法包括冒泡排序、插入排序和快速排序等。
这个练习题可以帮助我们熟悉Pascal的排序算法和数组操作。
解决这个问题的关键是理解排序算法的原理和实现方式，并正确地应用到程序中。
练习题不仅可以帮助我们巩固Pascal语言的知识，还可以提高我们的编程能力和解决问题的能力。
预复习卷(1、2)
第一、二章预、复习卷一、选择题一（复习第一章）1.在free pascal环境里，编译程序的快捷键是（）Ａ.ctrl+f9 B.alt+f9 C.alt+f5 D. ctrl+f52.在free pascal环境里，保存程序的快捷键是（）Ａ.f1 B.f2 C.f5 D. f93.在free pascal环境里，以（）作为语句之间的分隔符Ａ.。
B.， C.； D. ！4.以下不是free pascal的保留字的是（）Ａ.begin B.else C.xor D. abc5.下列用户自定义的标识符，哪个是非法的（）Ａ.end B.xyz l D.men二、填空题一（复习第一章）6.在free pascal环境里，查看程序运行结果的快捷键是（）7.在free pascal程序体的执行部分描述了程序要执行的操作。
它必须以一个free pascal保留字（）开始，以保留字（）后跟（）号结束。
三、选择题二（预习第二章）1.在free pascal中，定义变量m为长整型（longint），那么m在内存中占用字节数是（）A.1B.2C.4D.82.下列哪个不是合法的常量定义（）Ａ. Const book=45 B. const ch=’a’ C. const n=m+12 D.const F=False3.表达式13*6*8 div 3的值为（）A.156B.178C.198D.2084.表达式23>12的值为（）Ａ.True B.1 C.23>12 D.False5.函数pred(2000)的返回值是（）A.1999B.2000C.2001D.2002四、填空题二（预习第二章）6.在free pascal环境里，整型(integer)的数值范围是（）7.定义变量x为布尔型，那么x的值只有两个，（）和（）8.定义常量const a=12,则隐含说明a是（）9.代数式b2-4ac写成pascal表达式为（）10.函数abs(-4)的返回值为（）11.函数sqrt(4)的返回值为（）12.表达式12 mod 5*ord(succ(‘N’))div 3-ord(True)的值为（）五、判断题13.在free pascal中，紧随end前出现的分号允许省略。
FreePascal程序设计语言基础练习题1
FreePascal程序设计语言基础练习题（三）在算法和程序设计中，数据的输入和输出是不可缺少的操作。
数据的输入解决如何获取问题中的原始数据，数据的输出解决如何输出处理后的结果数据。
一般地，输入设备指向键盘，通过与键盘交互方式输入原始数据。
输出设备指向显示器，程序运行结果输出在显示屏上。
如果仅以键盘和显示屏作为输入、输出设备，有许多的缺点，现实中需要计算机处理的问题往往数据量很大。
有时假人们需要长期保存原始数据和结果数据，这里，人们可以借助外存储器保存数据。
人们把数据的输入、输出设备指向存储器设备，实现在外存储器上读写数据。
1.文本文件文件是数据在外部存储器上存储的一种组织形式。
数据以文件的形式存储后，能够永久地存储，还可以被不同程序读写，成为共享数据。
在信息学奥林匹克中，程序的测试是采用“黑匣子”测试方式，测试时对程序的运行结果进行比对。
因此，一般情况下，程序中的数据都是以文件形式存放的。
（图，测试数据文件）文本文件中的数据是以文本方式存放，即以ASCII方式存放，是一种通用的文件。
文件文件一般可以用文字处理软件创建和打开，如记事本程序或写字板程序，文本文件的拓展名为“.txt”。
（图，文本文件的图符）文本文件由若干行须眉，行与行之间用行结束标记隔开，文件末尾有一个文件结束符<EOF>标记（不可见字符）。
文本文件的每一个元素均为字符型，但在将文件元素读入到一个变量（整型、实型或字符型）时，Pascal会自动将其转换为与变量相同的数据类型。
在将一个变量写入文件文件时，也会自动转换为字符型。
2.Pascal文本文件的操作Pascal提供了一批用于文本文件操作的标准过程和函数。
文本文件程序在操作过程中的基本步骤是：（1）将标准输入对象指向文件。
（2）将标准输出对象指向文件。
（3）设置文件的读或写的模式。
（4）在使用完文件后，关闭文件。
见课本P109-110。
3.建立测试数据文件[例]加法器程序[问题描述]加法器程序（add.pas/add.in/add.ou）星仔要给小学一年级的小朋友编写一个加法器程序，可以计算出3个30000以内的整数求和的结果。
Free Pascal 典型题目解析1
Free Pascal 典型题目解析1.键盘输入两数（整形），输出两数和。
输入：12 48输出：60Program ex1;Var a,b,c:integer;beginread(a,b);c:=a+b;write(c);end.2.求圆的周长和面积。
输入：10.0输出：62.80 314.00Program ex2;Const pi=3.1415;Var r,c,s:real;beginreadln(s);c:=2*r*pi;s:=r*r*pi;writeln(c:0:2,’‘,s:0:2);end.3.计算1+2+3+……+n 的和输入：100输出：5050Program ex3；Var i,n,s:longint;beginreadln(n);s:=0;for i:=1 to n dos:=s+i;writeln(s);end.4.求两数较大者。
输入：15 8输出：15Program ex4；Var a,b:longint;beginread(a,b);if a>b then write(a);if a<b then write(b);end.5.求梯形或矩形（长方形）的面积矩形：输入：100 50输出：5000vara,b,s:integer;beginreadln(a,b);s:=a*b;writeln(s);end.梯形：输入：1 2 3输出：4.50vara,b,h,s:real;beginread(a,b,h);s:=(a+b)*h/2;writeln(s：0：2);end.6.计算阶乘！。
输入：5输出：120var n,i:longint;s:int64;beginreadln(n);s:=1;for i:=2 to n dos:=s*i;writeln(s);end.7.求100－999中的水仙花数，（若三位数abc，abc＝a^3+b^3+c^3，则称abc 为水仙花数。
Free Pascal 典型题目解析
Free Pascal 典型题目解析解析人：704班应炜试题网址：1.键盘输入两数（整形），输出两数和。
输入：12 48输出：60vara,b,c:longint;beginread(a,b);c:=a+b;write(c);end.2.求圆的周长和面积。
输入：10.0输出：62.80 314.00constpi=3.1415;varr,c,s:real;beginread(s);c:=2*r*pi;s:=r*r*pi;write(c:0:2,’‘,s:0:2); //保留2位小数，并空一格输出end.3.计算1+2+3+……+n 的和输入：100输出：5050vari,n,s:longint;beginread(n);s:=0;for i:=1 to n do //注意，do后面没有封号s:=s+i;write(s);end.4.求两数较大者。
输入：15 8输出：15vara,b:longint;beginread(a,b);if a>b then write(a);if a<b then write(b);end.5.求梯形或矩形（长方形）的面积矩形：输入：100 50输出：5000vara,b,s:integer;beginread(a,b);s:=a*b;write(s);end.梯形：输入：1 2 3输出：4.50vara,b,h,s:real;beginread(a,b,h);s:=(a+b)*h/2;write(s：0：2);end.6.计算阶乘！。
输入：5输出：120varn,i:longint;s:int64;beginreadln(n);s:=1;for i:=2 to n dos:=s*i;writeln(s);end.7.求100－999中的水仙花数，（若三位数abc，abc＝a^3+b^3+c^3，则称abc为水仙花数。
如153，1^3+5^3+3^3=1+125+27=153，则153是水仙花数）vara,b,c:integer;beginfor a:=1 to 9 dofor b:=0 to 9 dofor c:=0 to 9 doif(a*100+b*10+c)=a*a*a+b*b*b+c*c*cthen writeln(a*100+b*10+c)end.8.典型练习题。
FREE-PASCAL入门-循环结构程序(DOC)
循环结构程序设计第1节 For循环程序实例【问题描述】计算一副扑克牌的点数，其中牌A为1点，牌J、Q、K分别为11、12、13点，大、小王不算点。
【问题分析】根据题意，要计算一副扑克牌的点数，可以先求出一种花色牌的点数和，再乘以4即可。
进一步分析，求一种花色牌的点数和，即是求1~13的连续自然数之和。
我们用S表示所求数的和，用T表示加数，这样可以让T从1变化到13，每次让T不断加入到S中，就可以求出S的值，最后乘以4即可。
【算法设计】◆自然语言①置初值，即S=0，T=1；②使S=S+T ，所求出的和仍放入S中；③使T增加1，即T=T+1；④如果T小于等于13，转第二步，否则转第五步；⑤输出计算结果。
◆程序流程图和结构化流程（N-S）图【程序设计】[程序清单]program ex3_1;vars,t:integer;begins:=0; {S置初值为0}for t:=1 to 13 do {For循环语句}s:=s+t;writeln(‘total:’,s*4);end.[运行示例]total:364【知识拓展】1．在程序处理过程中，经常需要对某一条或一组语句重复执行多次，以最终完成某项任务，这就是循环。
对于重复次数已知，而不依赖循环中语句的结果，常用计数循环（f or / to /do 语句）。
2．for循环语句格式：格式一：for 控制变量:= 初值to 终值do循环体语句；格式二：for 控制变量:= 初值downto 终值do循环体语句；其中for、to、downto、do为保留字，do后面的语句称为循环体。
其中循环控制变量可以是整型、字符或布尔型，但不能为实型。
一般地，可以是顺序类型数据。
初值、终值表达式通常要与控制变量的类型相同。
在for语句中如果使用的是to,称为递增型计数循环语句，如果使用的是downto，称为递减型计数循环语句。
3．For语句的执行过程：①先将初值表达式的值计算出来并赋给循环控制变量。
Pascal练习题及答案
一、熟悉Pascal的集成环境，了解主菜单的各项功能二、完成下面程序的输入、编译、运行、保存，并注意观察程序的运行结果1、程序代码如下：program exe1 (input ，output) ；varh ， k ： integer ；beginfor h ：＝ 1 to 8 do beginwrite( ' '： 20-h)；for k ：＝ 1 to 2*h-1 do write(' * ')；writeln；end；end.2、编程计算半径为R的圆的面积和周长程序代码如下：Program Exe2； {程序首部 }Const Pi=Var R，S，C: Real； {变量说明部分 }BeginWrite ('R=')； {提示输入半径 }Readln(R)； {输入半径值 }S:=Pi*R*R；｛利用圆面积公式s=Πr2面积｝C:=2*Pi*R；｛利用圆周长公式c=2πr求周长｝Writeln('S='，S)； {输出结果 }Writeln('C='，C)；Readln；｛等待输入回车键｝End.3、编程在屏幕上显示“Hello World!”。
程序代码如下：Program exe3;BeginWriteln( ‘ Hello World!’);Readln;End.4、下面是一道猜数的趣味程序，程序运行后，由计算机随机地产生一个100以内的整数，用户有十次猜数的机会，并且计算机会根据你猜的数给你相应的提示。
程序代码如下：program caishu (input ，output) ；varx，n，k ：integer；beginrandomize；x：＝random( 100) ；repeatwrite('Please input a number(0- 100) : ' ) ；readln( k) ；n：＝n+l;if k=x then writeln( 'You are right ! ')；if k>x then writeln( 'Too big. Please try again!' ) ；if k<x then writeln( 'Too small. Please try again!') ；until (k=x) or (n= 10) ；if ( n=10) and ( k<>x) then writeln( ' You are fail. The number is ：' ，x) ；end.四、练习：工人每工作一小时可得工资80元，求工作130小时的工资。
free pascal练习
寒假练习-------鑫若题目中未做特殊声明输给数据为非负整数且数据量小于100001.输入一串字符，以”？“结束，统计其中每个字母出现的次数。
（所给数据为字符型）2.读入n输出1+1/2+1/3+1/4…+1/n的值。
3.输入n个学生的某门课程的成绩，打印出高于平均分的同学号数与成绩；打印出成绩最好的同学与成绩。
（若平均数无法整除取整）4.20级台阶，每步走一阶或两阶，求共有多少种走法。
5.假定小鸡每只5角，公鸡每只2元，母鸡每只3元。
现在100元要求买100只鸡，编程列出所有可能的购鸡方案。
6.求两个数的公约数，公倍数。
（辗转相除法）7.读入n个数，统计其中是质数的个数。
8.求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。
9.打印九九乘法口诀表。
10.编程求斐波那契数列的前n项。
11.编程给小学生出１０道１位数加数的题目，每做对一题加１０分，最后显示统计小学生所得分数．12.从键盘入星期的数字，输出对应的英语单词。
0表示星期天。
13.输出某年的每个月的天数。
14.输入一个三角形的三边，判断它是否是直角三角形15.已知二元一次方程的a，b，c求一个一元二次方程的两个根（包括曾根）。
16.输入三个数判断能否构成三角形。
17.输入三角形三边（三边可以构成三角形），求其面积。
（海伦公式）18.随机产生的100个40到100以内整数，统计每个数出现的次数．19.读入n个数，将他们排序后，正序输出。
20.题目描述陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。
苹果成熟的时候，陶陶就会跑去摘苹果。
陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。
现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。
假设她碰到苹果，苹果就会掉下来。
输入格式输入包括两行数据。
第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。
free pascal选拔测试题目
选拔测试第1题描述一只大象口渴了，要喝20升水才能解渴，但现在只有一个深h厘米，底面半径为r厘米的小圆桶(h和r都是整数)。
问大象至少要喝多少桶水才会解渴。
输入(daxiang.in)输入有一行：包行两个整数，以一个空格分开，分别表示小圆桶的深h和底面半径r，单位都是厘米。
输出(daxiang.out)输出一行，包含一个整数，表示大象至少要喝水的桶数。
提示如果一个圆桶的深为h厘米，底面半径为r厘米，那么它最多能装Pi * r * r * h立方厘米的水。
(设Pi=3.14159)1升= 1000毫升1毫升= 1 立方厘米第2题描述一个最简单的计算器，支持+, -, *, / 四种运算。
仅需考虑输入输出为整数的情况，数据和运算结果不会超过int表示的范围。
输入输入只有一行，共有三个参数，其中第1、2个参数为整数，第3个参数为操作符（+,-,*,/）。
输出输出只有一行，一个整数，为运算结果。
然而：1. 如果出现除数为0的情况，则输出：Divided by zero!2. 如果出现无效的操作符(即不为+, -, *, / 之一），则输出：Invalid operator!第3题描述菲波那契数列是指这样的数列: 数列的第一个和第二个数都为1，接下来每个数都等于前面2个数之和。
给出一个正整数k，要求菲波那契数列中第k个数是多少。
输入(fab.in)输入一行，包含一个正整数k。
（1 <= k <= 46）输出(fab.out)输出一行，包含一个正整数，表示菲波那契数列中第k个数的大小第4题描述输出一个整数序列中与指定数字相同的数的个数。
输入(tongji.in)输入包含三行：第一行为N，表示整数序列的长度(N <= 100)；第二行为N个整数，整数之间以一个空格分开；第三行包含一个整数，为指定的整数m。
输出(tongji.out)输出为N个数中与m相同的数的个数。
freepascal语言学习第四课练习
1、从键盘输入长方形的长和宽（长和宽范围为长整形longint），求长方形的面积。
(文件名ex41)2、从键盘输入圆柱的底面半径和高，求圆柱的表面积。
(文件名ex42)3、已知某班有男生x位，女生y位，x位男生的平均分是87分，y位女生的平均分是85,读入x,y,问全体同学的平均分是多少。
(文件名：ex43)例如：输入1 1 输出：864、读入摄氏温度c，写程序将它转换成华氏温度f输出。
已知f=9c/5+32 (保存名为ex44.pas)（保留一位小数）5、计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。
(保存名为ex45)(请用输入语句从键盘输入各科成绩分)10、歌手大奖赛上6名评委给一位参赛者打分，6个人打分的平均分为9.6分；如果去掉一个最高分，这名参赛者的平均分为9.4分；如果去掉一个最低分，这名参赛者的平均分为9.8分；如果去掉一个最高分和一个最低分，这名参赛者的平均是多少？(保存名为ex410)【分析】首先求出6名评委的总分，然后根据去掉最高分的总分和最低分的总分，求出最高分的分值和最低分的分值，最后总分减去最高分和最低分除以4即是答案。
提高组：6、某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该车棚内存有的自行车和三轮车各有多少辆。
(保存名为ex46)7、已知三角形的三边，可以求三角积的面积。
读入三角形的三边a,b,c，输出三角形面积。
(计算公式：p=(a+b+c)/2，s=sqrt(p*(p-a)*(p-b)*(p-c)) 保存名为ex47 )8、输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。
(保存名为ex48)9、五位好朋友相聚。
第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。
经过这样的赠送之后，每人的糖块恰好都为32 块。
FreePascal例题
[例1.1]编程在屏幕上显示“Hello World!”。
Pascal程序：Program ex11;BeginWriteln(‘Hello World!’);ReadLn;End.这个简单样例程序，希望大家的程序设计学习能有一个良好的开端。
程序中的Writeln是一个输出语句，它能命令计算机在屏幕上输出相应的内容，而紧跟Writeln语句后是一对圆括号，其中用单引号引起的部分将被原原本本地显示出来。
[例1.2]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？解：若总售价用m来表示，则这个问题可分为以下几步处理：= 1 \* GB3 ①从键盘输入自行车的数目a；= 2 \* GB3 ②用公式m=300*a 计算总售价；= 3 \* GB3 ③输出计算结果。
Pascal程序：Program Ex12; {程序首部}Var a,m : integer; {说明部分}Begin {语句部分}Write(‘a=’);ReadLn(a); {输入自行车数目}M := 300*a; {计算总售价}Writeln(‘M=’,m);{输出总售价}ReadLn; {等待输入回车键}End.［例1.3］编程计算半径为R的圆的面积和周长。
解：这是一个简单问题，按数学方法可分以下几步进行处理：①从键盘输入半径的值R；{ 要求告诉圆的半径R }②用公式S=πR2计算圆面积；③用公式C=2πR 计算圆周长；④输出计算结果。
Pascal程序:Program Ex13；{程序首部}Var R，S，C: Real；{说明部分}Begin {语句部分}Write ('R=?')；Readln(R)；{输入半径}S:=Pi*R*R；｛圆面积公式S=πR2｝C:=2*Pi*R；｛圆周长公式C=2πR｝Writeln('S='，S)；{输出结果}Writeln('C='，C)；Readln ｛等待输入回车键｝End.程序中Pi是Pascal提供的标准函数，它返回圆周率的近似值：3.1415926…[例1.4] 输出两个自然数相除的商和余数。
free pascal 的编程问题-推荐下载
因此，完全可以用(Y-1)代替(Y-1)*365，这样我们就得到了那个著名的、也是最常见到的计算星期几的公式： W = (Y-1) + [(Y-1)/4] - [(Y-1)/100] + [(Y-1)/400] + D． (2) 9．输入两个正整数 a，b。b 最大不超过三位数，a 不大于 31。使 a 在左，b 在右，拼接成一个新的数 c。例如： a＝2，b＝16，则 c＝216；若 a＝18，b＝476，则 c＝18476。 提示：求 c 的公式为：c＝a×K＋b 其中： 10 当 B 为一位数时（0<B<10） 100 当 B 为二位数时（10<=B<100） 100 当 B 为三位数时（100<=B<1000）
K=
提高题：
1.从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。
2.一辆快车和一辆慢车开往同一地点，快车票价为 18 元，慢车票价为 13. 5 元，共售出 400 张，共计 5940 元，求快
车票和慢车票各多少张?
3.在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256
1.假设邮局规定寄邮件时若每件重量在 1 公斤以内(含 1 公斤)，按每公斤 1.5 元计算邮费，如果超过 1 公斤时，其超出 部分每公斤加收 0.8 元。请编程序计算邮件收费。 2.输入三个正整数，若能用这三个数作为边长组成三角形，判断它是何类型的三角形（等边三角形？等腰三角形？一般 三角形？）。计算并输出该三角形的面积，否则输出 Can't。(组成三角形的条件为：任意两边之和大于第三边) 3.输入一个三位数的整数，将数字位置重新排列，组成一个尽可能大的三位数。例如：输入 213，重新排列可得到尽可 能大的三位数是 321。 4.运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下: 如果 S＜250 公里；运费为标准运价的 100% 如果 250 公里＜＝S＜500 公里，运费为标准运价的 98%； 如果 500 公里＜＝S＜1000 公里，运费为标准运价的 95%； 如果 1000 公里＜＝S＜2000 公里，运费为标准运价的 92%； 如果 2000 公里＜＝S＜3000 公里，运费为标准运价的 90%； 如果 S＝＞3000 公里，运费为标准运价的 85%；。请编计算运费的程序。 5. 输入考试成绩，如果获 85 分以上为 A 等，获 60 分～84 分为 B 等，60 分以下为 C 等，编程输出考试等级。 6. 某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数 N < 100 者奖金为 10 元；100 < = N < 110 者奖金为 30 元；110 < = N <120 者奖金为 50 元；120 < = N <130 者奖金为 70 元；N > 130 者为 80 元。 请编程，由键盘输入加工零件数量，显示应发奖金数。 7. 期未来临了，班长小 Q 决定将剩余班费 X 元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店 里有三种钢笔，它们的单价为 6 元、5 元和 4 元。小 Q 想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余 钱。请您编一程序，帮小 Q 制订出一种买笔的方案。 8．计算 1901 年 2099 年之间的某月某日是星期几。 提示：我们知道，公历的平年是 365 天，闰年是 366 天，置闰的方法是能被 4 整除的年份在 2 月加一天，但能被 100 整除的不闰，能被 400 整除的又闰；因此，像 1600、2000、2400 年都是闰年，而 1700、1800、1900、2100 年都是 平年，公元前 1 年，按公历也是闰年。因此，对于从公元前 1 年（或公元 0 年）12 月 31 日到某一日子的年份 Y 之间 的所有整年中的闰年数，就等于 [(Y-1)/4] - [(Y-1)/100] + [(Y-1)/400] [...]表示只取整数部分，第一项表示需要加上被 4 整除的年份数，第二项表示需要去掉被 100 整除的年份数，第三 项表示需要再加上被 400 整除的年份数；之所以 Y 要减一是为了去掉输入的这一年。这样，我们就得到了第一个计算 某一天是星期几的公式： W = (Y-1)*365 + [(Y-1)/4] - [(Y-1)/100] + [(Y-1)/400] + D． (1) 其中 D 是这个日子在这一年中的累积天数，算出来的 W 就是公元前 1 年（或公元 0 年）12 月 31 日到你输入的这 一天之间的间隔日数；把 W 用 7 除，余数是几，这一天就是星期几。比如我们来算 2004 年 5 月 1 日： W = (2004-1)*365 + [(2004-1)/4] - [(2004-1)/100] + [(2004-1)/400] + (31+29+31+30+1) = 731702 731702 / 7 = 104528……6，余数为六，说明这一天是星期六，这和事实是符合的。 上面的公式(1)虽然很准确，但是计算出来的数字太大了，使用起来很不方便。仔细想想，其实这个间隔天数 W 的 用数仅仅是为了得到它除以 7 之后的余数。这启发我们是不是可以简化这个 W 值，只要找一个和它余数相同的较小的 数来代替，用数论上的术语来说，就是找一个和它同余的较小的正整数，照样可以计算出准确的星期数。 显然，W 这么大的原因是因为公式中的第一项(Y-1)*365 太大了。其实，(Y-1)*365 = (Y-1) * (364+1) = (Y-1) * (7*52+1) = 52 * (Y-1) * 7 + (Y-1) 这个结果的第一项是一个 7 的倍数，除以 7 余数为 0，因此(Y-1)*365 除以 7 的余数其实就等于 Y-1 除以 7 的余数。 这个关系可以表示为：(Y-1)*365 ≡ Y-1 (mod 7) 其中，≡是数论中表示同余的符号，mod 7 的意思是指在用 7 作模数（也就是除数）的情况下≡号两边的数是同余的。