免费pascal话题
1，输入圆的半径，输出圆的面积和周长。
2.输入矩形的长度和高度，输出矩形的周长和面积。
3.输入梯形的上底、下底和高度，求梯形面积。
4.输出两个自然数相除的商和余数。
5.自然数的立方可以表示为两个整数的平方之差，比如43 = 102-62。请输出自然数1996的这个表达式。(43这里表示为4*4*4的三次方幂的形式；102也用二次型10*10表示)。
6.输出一个带字符的猪头。
7，A，B，C分别等于1，12，123。以左对齐和右对齐的方式打印。
8.输入一个四位数的整数，并以相反的顺序输出其位数。(提示:由MOD和DIV操作完成)
9.从键盘读取小写的“pascal”，利用CHR()和ORD()函数输出大写的“PASCAL”。
10.从键盘上读取一个实数，利用ROUND()和TRUNC()函数输出实数本身、整数部分、小数部分和取整值。
要求:三行输出；输出实数本身时，格式和读入时一样；整数部分和小数部分在同一行输出；其他人各占一行。
11.输入小时、分钟和秒，并将其转换为秒。
12.输入秒并将其更改为00: 00: 00。
13，输入三角形的三条边，输出三角形面积。(使用海伦公式)
p =(a+b+c)/2s = sqrt(p *(p-a)*(p-b)*(p-c))
14.输入两个值A和B，交换两个值。
15，分钱游戏。如果甲、乙、丙三方有24元钱，甲方先给乙、丙，分配的金额和每个人一样。然后由B到A，C，方法同前；把丙方的钱分给甲乙双方，分成方式和之前一样。把钱分三次，每个人都有一模一样的钱。每个人的原始金额是多少？
16，鸡兔同笼，30头90脚。笼子里有多少只鸡和兔子？
17.一个车棚有65辆自行车和三轮车，共150个车轮。车棚里有多少辆自行车和三轮车？
18，甲、乙、丙方分别有36、48、64盘磁带。首先，A把自己的磁带分成三份，一份给B，一份给C，一份给自己。然后是B，最后是C，都和A一样..编程输出A，B，C的过程中每个人的磁带数分别是多少？(输出所有中间结果)
19，五个好朋友聚在一起。第一个朋友给朋友带了很多棒棒糖，让每个人的棒棒糖在原来的基础上翻倍；然后第二个朋友也给每个人赠送了糖果，他也把每个人拥有的糖果数量增加了一倍；第三、第四、第五个朋友都是这样做的。这样的礼物之后，每个人的棒棒糖恰好是32块。问问你的朋友，糖果条最初的数量是多少？
选择一个结构化主题
(1) if条件then语句；
(2)如果有条件，则语句1否则语句2；
1，输入A和B两个数，输出较大数的平方值。
2.输入A和B两个数，输出较大的数。
3、读入三个不同的数字，按照从小到大的顺序编程。
4.自动加油站的A、B、C汽油单价(元/公斤)分别为1.50、1.35、1.18，还提供“自加”或“辅助”两种服务级别，用户可获得5%或65438。写个程序，用户输入油量，汽油品种，服务类型(f-自动，m-自助，e-辅助)，然后计算应付。
5.某服装公司为了推广产品，采取这样的批发销售方案:凡订购100套以上的，每套售价50元，否则每套售价80元。编程通过键盘输入订单集，输出应付金额。
6.铁路托运行李规定:行李重量不超过50kg的，按每公斤0.15元收取托运费；超过50公斤的，超出部分每公斤收取0.10元。写一个程序来完成自动计费工作。
7.某超市为了促销，规定购物不足50元按原价支付，超过50不足100打九折，超过100打八折。编写一个程序，完成超市的自动收费。
8.现在小学生的成绩单由以前的100分制改为优秀、良好、合格、不合格四级制。写一个程序，完成分数的自动转换。转换规则如下:60分以下为不合格；60到69是合格的；70到89就不错了；90分以上为优秀。(提示:可以使用DIV操作使程序更加简洁)
9.打印某个月的天数。(提示:a .闰年的计算方法:年数能被4整除，不能被100整除；或者可以被400整除的整数年。b、利用MOD运算可以判断一个数是否能被另一个数整除)
10，编程模拟剪刀石头布游戏:用S代表剪刀，R代表石头，P代表布。规则是:剪刀剪布，石头打剪刀，布裹石头。玩家分别输入自己的选择，电脑给出结果。
的格表达式
情况常数表1:语句1；
情况常数表2:陈述2；
: :
情况常数表n:语句n
结束；
11.如果一个产品被征税，5%的产值超过10000元；1000元以下但5000元以上征收3%的税；5000元以下但1000元以上征收2%的税；1000元以下免税。计算该产品税额的程序。
12.运输公司计算运费时，距离越长，每公里运费越低。标准如下:
如果s < 250km运费是标准运费率的100%。
250km < = s < 500km的，运费为标准运费率的98%；
500 km < = s < 1000 km的，运费为标准运费率的95%；
1000 km < = s < 2000 km的，运费为标准运费率的92%；
2000 km < = s < 3000 km的，运费为标准运费率的90%；
如果s = > 3000公里，运费为标准运费率的85%；。请编写一个程序来计算运费。
13.输入考试分数。85分以上，得A级；60 ~ 84分的，B级；如果你得不到60分，你将得到C级..
14.车间根据工人加工的零件数量发放奖金。奖金分为五个等级:每月加工的零件数量n
请编程，键盘输入要加工的零件数量，显示要支付的奖金数额。
15.从键盘上读取年和月，并输出一个月有多少天。
循环语句
for循环语句有两种格式:
(1) for循环变量:=初值到终值do语句；
(2)对于循环变量:=初值downto终值do语句；
While布尔表达式做语句；
重复
循环体语句；
直到条件表达式；{直到条件为真}
1，计算以下公式的值:
(1)1+2+……+100
(2)1+3+5+……+97+99
(3)1-3+5-7+9-11+……n
2.找出水仙花的数量。所谓水仙号，是指一个三位数的abc。如果满足A 3+B 3+C 3 = abc，那么abc就是水仙花号。
3.宰相的麦子:相传古印度宰相代尔是国际象棋的发明者。有一次，国王要奖励他的贡献，问他要什么。达尔说:“只要把这种小麦放在棋盘上(***64格):第一格一粒，第二格两粒，...，而且后广场的麦子总是比前广场多一倍，我就感激不尽了。”国王想，这不容易，就想答应，如果这时你站在国王旁边，你会劝国王不要答应吗，为什么？
4、百钱百鸡。5只公鸡，3只母鸡和3只小鸡。
6.打印以下图案:(输入N值控制图案大小，以下图案以N=3为例)
& amp
& amp& amp
& amp& amp& amp
& amp& amp& amp
& amp& amp& amp
& amp& amp& amp
*
* * *
* * * * *
# @ *
# # @ @ * *
# # # @ @ @ * * *
7.输入20个数字，以5为一行输出。
8.一个两位数的数X，一个新的数Y是通过把它的一位数与十位数交换而得到的。这个时候Y刚好比x大36，请编程，找出所有这样的两位数。
9.将整数3025剪成30和25两个数，然后对这两个数的和进行平方，计算结果为(30+25)2=3025等于原数。找出满足这个条件的所有四个数字。
10，打印出乘法表:
11.从七张牌中选三张牌有多少种组合？请编程并输出所有组合。
12.数学上，不能被除1之外的其他数整除的自然数，本身叫做素数(或称质数)。现在用键盘输入一个自然数n，编程判断n是否是质数，如果是则输出“是”，否则输出“否”。
13，输出1000以内的所有素数。
14，一趟快车和一趟慢车去同一个地方，快车票价18元，慢车票价13。5元里，* * *卖了400张票，就是5940元。快车和慢车有多少张票？
15.在下面的公式中的两个□中填入适当的数字，使方程成立。□3*6528=3□*8256
16，有一个三位数，它的位数之和是11倍正好等于它自己。请编程并找出这个三位数。
17.在自然数中，如果一个三位数等于其自身位数的立方和，则称为水仙花数。比如:153=13+53+33，那么153就是一个水仙号。找到所有的水仙花。
18，编程打印出以下图案:
平行四边形等腰三解菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
19.编程并打印出以下图案:
1
222
33333
4444444
555555555
20.明信片有三种:第一种是一套，价格2元；第二张是每套一张，价格4元；第三种每套9张，价格2元。目前用100元买100张明信片，每张明信片至少要一套。这三张明信片每张我应该买几套？请输出所有采购计划。
21.如果有人要把一元钱换成五分钱、两分钱、一分钱，三种零钱每种至少有一种，有多少种兑换方案？制定这些计划。
22.两个自然数A和B的和、差、积、商加起来是243。找出数字A和B..
23.求两个数的最小公倍数和最大公约数。
24.写一个解码程序，把一个英语句子翻译成数字代码。解码规则是用数字1代替字母A，用数字2代替字母B，...和26来替换字母z。如果是空格，则打印星号“*”，英语句子以“.”结尾。
25.输入一个正整数n，分解成质因数相乘的形式。
如:36 = 1x2x3x 3；19=1 X 19
(提示:设因子为I，从2到n，n反复除以I。如果是可除的，那么用商代替n，I是因子；如果不能整除，则再次增加I，继续上述操作，直到I等于n为止。)
26，学校体操队到操场，排成一排2人，最后多了1人；每排3人，多了1人；每排分别安排4、5、6人，多出1人；每排七个人的时候，不算多。体操队有多少人？
27.从键盘输入一个整数X(X不超过10000)。如果X的所有位数之和是7的倍数，则打印“是”，否则打印“否”。
28.1992的乘积的后两位数是多少？
29.尼科尔斯定理:把任意正整数的立方写成一组相邻奇数之和。
如:33 = 7+9+11 = 2743 = 13+15+17+19 = 64。
30.猜价格:央视《幸运52》栏目深受观众喜爱，《猜商品价格》节目更是大受欢迎。现在，请你编一个程序来模拟这个游戏:计算机会随机产生一个200到5000之间的整数作为一件商品的价格，然后你就可以猜出它是多少钱了。如果猜得多，电脑会输出提示。
解决方法:这个问题的游戏规则大家都很清楚。要完成该程序，必须明确处理步骤:
(1)用随机函数生成一个200到5000之间的整数x；
(2)你猜一个数字A；
(3)如果a > x，输出“高”；
(4)如果a < x，输出" di "；
(5)若a = x，输出“OK”；
(6)重复(2)、(3)、(4)和(5)，直到a = x。
31.小会议室里有几张一模一样的长椅，几个人参加会议。如果每个凳子上坐六个人，那么只有三个人坐一个凳子；如果每个凳子上坐五个人，就要站四个人。会议室里有多少人，有多少条长凳？
32.某动物繁育中心用1.700元专项资金购买了小狗(31元每只)和小猫(21元每只)两种小动物。要求专项资金刚用完应该怎么买？请输出所有方案。
33.一个整数X加上100就成了一个完整的平方数。如果X加上168，就成了另一个完整的平方数。求x？
34.在一次同学聚会上，老同学们都喜气洋洋，互相握手问好。参加聚会的人都和老同学握过一次手* * *握过903次手。多少人将参加聚会？
35.自然数300，262，205，167除以整数A，得到的余数是一样的。求整数a和除法的余数？
36、1600年前，中国一本经典的数学书上有一个题目:“今有一物，不知其数，三三数，还剩二；数数五五，剩下三个；七数七数，留二数，问几何。”求最小解。
37、编程求所有不超过1000的数，包括自然数的3个数，并统计。
38.阿姆斯特朗数:如果一个正整数等于其数的立方和，则称为阿姆斯特朗数(也叫自恋数)，例如407 = 43+03+73。尝试编程查找1000内的所有阿姆斯特朗数。
39.将一根长369厘米的钢管剪成69厘米和39厘米的小段。在这两个规格至少切一个短料的前提下，怎么切才能把多余的料减到最少。
40.甲、乙、丙都是业余射手。在一次演习中，他们举枪命中目标:甲射了8发子弹，打了225发，乙射了7发，也打了225发；c只打了六发，也拿到了225环。以下是报告表格，请程序填写下表中的空格。
41，找到S = 1-1/2+1/3-1/4+1/5-1/6+...(求前n项之和)
42.Faibonacci级数的前几项是:0，1，1，2，3，5，8，…，规律是从第三项开始，每项等于前两项之和。找出前30项，以每行5个数字的格式输出。
43.球从100的高度自由下落，落地后反弹回一半高度。球* * *第20次落地的时候能走多远？
44.第一天，一个登山者爬上了山峰的一半高度，24米；第二天，我爬了剩下高度的一半，24米；每天都是。第七天，离山顶还剩91米。找到这座山的高度？
45.给定一个整数n，把n写成因子相乘的形式。例如:N=12，输出:12=1*2*2*3。
46.卖金鱼的人决定卖掉鱼缸里所有的金鱼。第一次卖出的所有金鱼的一半加一半；第二次卖剩下的三分之一加三分之一金鱼；第三次卖剩下金鱼的四分之一加四分之一；第四次卖剩下的五分之一加五分之一金鱼。金鱼还剩11条。当然，卖金鱼的时候都是整数条，不能有破损。求鱼缸里金鱼的数量？
47.一些出国旅游的朋友决定第二天早上分享一篮苹果。天刚亮，第一个人醒了，他先拿了一个，然后把篮子的八分之一拿走了；第二个人醒来，先拿两个，再拿走篮子的八分之一；第三个人醒来，先拿三个，再拿篮子的八分之一；...每个人都以这种方式依次拿出他们的苹果，最后篮子里的苹果都被拿走了，每个人得到的苹果数量完全相同。找出原来篮子里苹果的数量和个数。
48.在图中，一个三角形由六个圆组成，每边有三个圆。将自然数1-6填入每个圆的位置，不重复，使每个边圆上的数之和相等。请编程并输出所有填充方法。
49，问n！
50.找1！+2!+……+n！