80道题让你成为编程高手 pascal
Pascal基础练习题
1、输入a，b两个变量的值，打印输出a+b的横式与竖式。
2、编写程序，任意输入一个三位正整数，然后倒序输出。
比如输入的是285 ，输出的就该是582。
3、请看图3-2，判断任意一点A（x,y）是否在圆环内。
如果在的值。
提示：首先推导出判别式为2<=x2+y2<=254、某服装店对售货员发放奖金的办法是：日营业额在1000元以下的，只能拿到基本工资，没有奖金；超过1000元的，奖金为超出部分的2％。
编写程序输入营业额，计算并输出奖金。
5、编写程序计算y的值。
Sqrt(a+b)＋sin(a-b) a>0,b>0Y＝ 1 a=0,b=0a2+b2其他6、从键盘输入三个整数，输出最大数max和最小数min。
7、已知三角形的三条边长为a，b，c，求三角形面积。
提示：用海沦公式求三角形面积s=sqrt(p*(p-a)*(p-b)*(p-c)) p=(a+b+c)/28、输入年号、月份，输出该月的天数。
1、3、5、7、8、10、12月为31天，4、6、9、11月为30天，2月平年28天，润年29天。
润年判别式为：（y mod 4=0）and (y mod 100<>0) or (y mod 400=0)9、模拟一个有加、减、乘除运算的简单计算器。
当输入一个实型数，再输入一个运算符，再输入一个实型数后马上输出运算结果。
比如：输入3.5*4.0后程序运行结果应该是14.0。
10、求n！（即1*2*..*n），n由键盘输入。
11、求1-1/2+1/3-1/4…+1/99-1/100的值。
12、利用双重循环编写出打印出右边数字方阵的程序。
1 2 3 4 5 62 3 4 5 6 73 4 5 6 7 85 6 7 8 9 106 7 8 9 10 1113、写程序打印右图。
11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 114、编程打印出右图12 34 5 67 8 9 101112 13 14 1515、打印输入的n个整数中的最大、最小数及其序号。
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的根。
PASCAL竞赛试题汇编
PASCAL竞赛试题汇编1.s=1+3+5+7……..+992.s=1+2+2^3+2^5+………….+2^633.s=1-1/2+1/3-1/4+1/5…………….-1/1004.s=1*3*5*7………..*17*195.s=1+2+4+8+1024+20486.s=1*2*3+2*3*4+3*4*5+n(n+1)(n+2)7.s=1!+2!+3! (20)8.有一个整数,如果加上100恰好为某数的平方,如果加上156恰好为另一数的平方,求这个数.9.产生100个0到29之间的随机函数,利用紧凑格式打印出这组值,选出其中的素数,并把这些素数按大小排列。
10、有一个五位数，若在它后面写上一个7，得一个六位数A，若在它前面写上一个7，得一个六位数B，B是A的五倍，编一程序，计算出这个五位数是多少？11、从键盘上输入10个自然数，从中分别计算出十位数是1、2、3、4、5……..9的自然数的个数，打印出来。
12、编一程序，把9个自然1-9随意放到二维数组中，并把这个数组按列的上升顺序排序，显示出排序前、后数组。
如：排序前 5 7 3 1 4 72 1 6 2 5 88 9 4 3 6 913、求从1到100之间的3和7的倍数来，分别算出它们数值的和。
14、找出100-999之间的“水仙花”数，所谓“水仙花”数，是指一个三位数，其各位数字的立方和等于该数本身，例如：153=1^3+5^3+3^3。
15、观察下面的序号和算式，编程填出（）里的数，并把这个算式打印出来。
序号算式11+2+3=623+5+7=1535+8+11=2447+11+15=3359+14+19=42( ) ( )+( )+7959=( )16、用100元钱买100只鸡，母鸡3元一只，小鸡1元3只，公鸡每只5元，问各应买多少只？17、把一元钞票换成一分、二分、五分硬币（每种至少一枚），有哪些种换法？18、编辑打出四位数，ABCD中满足下述关系的数：（ab+cd）(ab+cd)=abcd19、用1、2、3、4……9九个数（不能重复）组成下列式子：（）*（）-（）=96/（）（+（）=（）求出各种可能方案。
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编程基础练习题](https://img.taocdn.com/s3/m/c2dcf1e9c5da50e2534d7f87.png)
pascal编程基础练习题一、不定项选择和填空题１、下列关于程序语言的叙述，不正确的是（）Ａ、编写机器代码不比编写汇编代码容易Ｂ、高级语言需要编译成目标代码或通过解释器解释后才能被CPU执行Ｃ、同样一段高级语言程序通过不同的编译器可能产生不同的可执行程序Ｄ、汇编代码可被CPU直接运行Ｅ、不同的高级语言语法略有不同２、下列哪一种程序设计语言是解释执行的（）Ａ、PascalＢ、GWBASICＣ、C++Ｄ、FORTRAN３、解释程序的功能是（）Ａ、将高级语言程序转换为目标程序Ｂ、将汇编语言程序转换为目标程序Ｃ、解释执行高级语言程序Ｄ、解释执行汇编语言程序４、下列中没有语法错误的PASCAL程序首都是（）Ａ、PROGRAM A1;Ｂ、PROGRAM A1(0utPut)Ｃ、PROGRAM (Input,OutPut);Ｄ、PROGRAM A1(Input OutPut);５、结构化程序的结构由三种基本结构组成，下面哪个不属于这三种基本结构（）Ａ、顺序结构Ｂ、输入输出结构构Ｃ、分支结构Ｄ、循环结构６、Pascal程序必须包括（）Ａ、程序首部、说明部分、语句部分Ｂ、程序首部、说明部分Ｃ、说明部分、语句部分Ｄ、程序首部、语句部分７、标准Pascal程序说明部分的正确顺序是（）Ａ、LABEL—CONST—V AR—TYPEＢ、V AR—CONST—LABEL—TYPE Ｃ、LABEL—CONST—TYPE—V ARＤ、CONST—V AR—TYPE—LABEL８、下面对Pascal程序组成结构的描述错误的是（）Ａ、程序体可以为空Ｂ、程序的注释部分只能写在程序中一条语句的最后Ｃ、程序首都的参数部分可有可无Ｄ、一个完整的PASCAL程序的主程序只能有一个９、要编写并执行—个PASCAL程序，—般的步骤是（）Ａ、①用编辑软件编写源程序②用PASCAL的编译程序把源程序转换成目标程序③用连接程序把目标程序转换为可执行程序④运行可执行程序Ｂ、①用编辑软件编写源程序②修改和调试源程序③用PASCAL的编译程序把源程序转换成可执行程序④运行可执行程序Ｃ、①用编辑软件编写源程序②用连接程序把源程序转换成可执行程序③试运行可执行程序④修改后再运行可执行程序Ｄ、①用编辑软件编写源程序②用连接程序把源程序转换为目标程序③用PASCAL的编译程序把目标程序转换为可执行程序④运行可执行程序１０、PASCAL源程序中不止确的注释语句是（）Ａ、用一对“{”和“}”括起来的字符串Ｂ、用一对“/*”和“*/”括起来的字符串Ｃ、用—对“(*”和“*)”括起来的字符串Ｄ、A) 或B)１１、以下正确的PASCAL实数是（）Ａ、0.56E2.5Ｂ、2.56E2Ｃ、.318E1Ｄ、34.E5Ｅ、E5Ｆ、3E-5Ｇ、.15Ｈ、15.１２、每个Pascal程序的分程序中都必须包括（）Ａ、变量说明、语句Ｂ、语句Ｃ、类型定义、变量说明、语句Ｄ、常量说明、变量说明、语句１３、下列中合法的Pascal标识符是（）Ａ、Char setＢ、RECORDＣ、AbsＤ、πＥ、A1B2C3 Ｆ、FOR Ｇ、2ab Ｈ、a[1]１４、设a、b、c为整型变量，并有以下程序段Read(a);Readln(b,c);Readln(c,b);Readln(a,b);writeln(a,b,c)若运行时输入：123＜ENTER＞456＜ENTER＞789＜ENTER＞其中＜ENTER＞表示回车符，则输出是（）Ａ、123Ｂ、147Ｃ、784１５、下列表达式中，其值为TRUE的是（）Ａ、150>=150Ｂ、100>150Ｃ、Abs(-200)<>200Ｄ、S ucc('A')<Succ('a')Ｅ、'ab'<'abc'Ｆ、Succ(False)=True Ｇ、0dd(35+1)=FaLse Ｈ、219<> 219１６、有变量说明：V AR i1,i2:Integer;r1,r2:Real;b1,b2:Boolean;设各变量均已赋值，下列中错误的赋值语句是（）Ａ、b2:=Ord(r1>r2)Ｂ、i2:=i1+r1Ｃ、b1:=i1=i2 Ｄ、b1: =b1+b2Ｅ、i2:=i1+i2 DIV i1Ｆ、i1:=i1/i2Ｇ、r2:=3/5*Sqr(r1+r2)Ｈ、r1:=r 2+r1１７、下面一段程序是用（）)语言书写的int funcl (int n){int i,sum=0;for (i = 1;i＜=n;i++)sum+= i*i;return sum;}Ａ、FORTRANＢ、PASCALＣ、CＤ、PROLOGＥ、BASIC１８、设全集E={1，2，3，4，5}，集合A={1,4}，B={l，2, 5}，C={2，4)，则集合(A∩B)∪～C为（）Ａ、空集Ｂ、{1}Ｃ、{3，5}Ｄ、{1，5}Ｅ、{1，3，5}１９、运算17 MOD 4的结果是（）Ａ、7Ｂ、3Ｃ、1Ｄ、4２０、已知a、b、c、d、e、f、g均为整数变量，其值分别为2、4、6、8、10、12、14，若输出结果为2 4681012 14则输出语句应是（）Ａ、Write(a:3,b:3);write(c:3,d:3,e:3);Write(f:3,g:3)Ｂ、Writeln(a:3,b:3);Write(c:3,d:3,e:3);Writeln(f:3,g:3)Ｃ、Writeln(a:3,b:3);Writeln(c:3,d:3,e:3);Writeln;Writeln(f:3,g:3);Ｄ、Write(a:3,b:3);Writeln;Write(c:3);Writeln(f:3,g:3);Write(f:3,g:3)２１、把整数7转换为字符‘7’的表达式是哪一个（）Ａ、Chr(7)-0rd('0')Ｂ、Chr(7-0rd(0))Ｃ、Chr(7+0rd('0'))Ｄ、Chr(7 +0rd(0))２２、下列类型定义中，合法的是（）Ａ、TYPE a=10..10;Ｂ、TYPE b=0..Sqr(10);Ｃ、TYPE c=1.0..10.0;Ｄ、TYPE d=10..5;２３、以下运算符中运算优先级最高的是（）Ａ、＋Ｂ、ORＣ、>=Ｄ、DIV２４、已知有如下说明：V ARa,b:Integer;c,d:Real;下面赋值语句合法的是（）Ａ、c:=a+bＢ、a:=Trunc(c)Ｃ、a:=a+b/cＤ、b:=a div d２５、设有变量说明：V AR s:(C,G,A,J,K);则函数Succ(A)的取值是（）Ａ、GＢ、3Ｃ、JＤ、B２６、表达式True AND NOT Odd(-202)<(7-3<=4)的值是（）Ａ、TrueＢ、FalseＣ、0Ｄ、1２７、下列常量说明中合法的是（）Ａ、CONST color=red..blue;Ｂ、CONST CONST=10*5;Ｃ、CONST x1:=3.9;Ｄ、CONST abc='abc';２８、已知a、b、c、d是同类型简单变量，且都已有互不相同的值，执行下列语句b:=a;a:=c;d:=a;d:=b;后，其值相等的变量是（）Ａ、a,dＢ、a,cＣ、c,bＤ、b,d２９、下面合法的常量是（）Ａ、.25Ｂ、"RED"Ｃ、'%'Ｄ、3E-2.5３０、设a、b、c、d、e均为整型变量，且s=13、b=2、c=10、d=3、e=2，则表达式a-b*c DIV d MOD e的值是：（）Ａ、13Ｂ、-7Ｃ、11Ｄ、0。
Pascal百题练习
1、有一数字如下：65436543654365436543………循环排列，（1）输入一个数字n，输出第n个数字。
如输入3则输出为4，输入1则输出为6。
（2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。
(3)输入一个数字n，输出所有数字4所在的位数。
如输入15，输出4所在的位置，即3 7 11 152、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列，(1)输入一个整数n，输出第n位字符。
如输入3输出为C，输入1则输出为E。
(2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。
(3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。
如输入15，输出D所在的位置，即2 7 123、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。
否则输出‟Error‟,即错误。
如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。
（提示：‟a‟≤小写字母≤‟z‟，‟A‟≤大写字母≤‟Z‟）4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。
5、输入三个数，按从大到小的顺序输出。
如，输入15 20 16 ，输出为20 16 156、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。
如，输入315，输出531。
7、输入四个整数，输出四个数中的最大值和最小值。
（分两行输出）8、输入一个秒数，转换成小时、分、秒并输出。
如输入4500，输出为1:15:0。
9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输出。
10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。
PASCAL题集
PASCAL题集1、给一个不多于三位的正整数,求出它是几位数,并分别打印出各位上的数字。
vara,b,c,d,e:integer;beginreadln(a);b:=a div 100;c:=(a div 10) mod 10;d:=a mod 10;if b<>0 then e:=3 else if c<>0 then e:=2 else e:=1;writeln(e);if (e=1) then writeln(d)else if (e=2) then writeln (c,' ',d)else writeln(b,' ',c,' ',d);end.2、编写程序求出下式中n的最大值2*2+4*4+6*6+''''''''''+n*n<1500var a,s:integer;begina:=0;s:=0;repeata:=a+2;s:=s+a*a;until s>=1500;writeln(a-2); readln;end.3、古印度国王要褒奖他的聪明能干的宰相达依尔(国际象棋的发明者),问他要什么.达依尔回答:“殿下只要在棋盘(横竖个8行8列,共64个格)的第一个格子中放1粒麦子,在第二个格子中放2粒,在第三格中放4粒,以后每个格子中放的麦粒数都是前一个的两倍.如此放满64格,我就满足了。
”请你计算出输入格数（麦粒数或体积）后的麦粒数和体积（格数和体积或格数和麦粒数）提示：1立方米麦子约为1.42乘以10的8次方varsum,t:double;i,j:longint;begint:=0;for i:=0 to 63 dobeginsum:=1/142000000;for j:=1 to i dosum:=sum*2;t:=t+sum;end;writeln(t:10:10);end. 答案：129906648406.4054、已知一对兔子，每个月可以生一对小兔，而小兔子过一个月后也可以生一对小兔，即兔子的对数是：第一个月1对，第二月2对，第三个月3对，第四个月5对，……假设兔子的生育期是12个月,并且不死, 问一年后,这对兔子有多少对活着的后代?program t0101;constn=12;vari,l,p,x:integer;beginp:=1;l:=2;for i:=3 to n dobeginx:=l+p;p:=l;l:=x;end;writeln('total:',x);readlnend. 答案：即数列1，2，3，5，8……，结果为233。
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语言的知识，还可以提高我们的编程能力和解决问题的能力。
pascal基础编程
pascal基础编程第一篇：pascal基础编程1.结构化程序设计的基本概念请不要用GOTO。
一个死循环的例子是: while true do;2．输入/输出几点提示：1.输入如果很复杂，可以考虑作为字符串输入，再处理这个字符串2.文件大的时候注意一次尽量读较多的字节，这样会比较快的。
请建立一个1M的文件自己比较： var f:text;c:char;s:string;(以下文件均已打开)while not eof(f)do read(f,c);和while not eof(f)do read(f,s);3．变量，数据类型记住，使用全局变量要小心！因为作用域宽，任何地方都有可能改变它们。
在使用数组的时候要尤其小心。
建议打开范围检查来检测是否有下标超界。
变量的类型是一个难点。
应该记住重要的类型（如integer,longint,string,real）占用的字节数和表示的数的范围。
前者用来计算空间是否足够，后者考虑范围是否可能超过。
注意常见的数据类型表示的范围和占用字节数。
下面介绍extended类型。
是一种实型，但有效位数比较多（19-20位有效数字），可以作为大整数存储（1.1e4932范围内），可以避免一些高精度运算。
如：var e:extended;begin e:=***789.0 writeln(e:0:0);end.e:=xxx.0的“.0”是必须的，因为e是实数。
writeln(e:0:0)是输出e的整数部分一个extended占用10个字节。
下面介绍Int6类型。
是一种整形，占用8个字节。
范围：-***5808 ～ ***5807=263-1，4．运算：算术运算，逻辑运算，表达式注意优先级，如果拿不准，请加括号。
还有一点，是逻辑运算的计算问题，默认方式是从左往右计算，到可以确定值时停止。
如：if a and b and c then...则一旦发现b=false立刻停止计算，所以如果c的计算可能导致错误，将不会被发5．选择结构：IF和CASE IF有一个需要注意的地方，是与ELSE 的匹配问题。
pascal程序练习题
pascal程序练习题一、编写程序1、分别用字符打印如下图形。
***** #***** ##***** ###*****Program px;BeginWriteln(‘*****’:10);Writeln(‘*****’:9);Writeln(‘*****’:8);End.Program sj;BeginWriteln(‘#’);Writeln(‘##’);Writeln(‘###’);End.2、写出执行下面程序后，写出变量a,b的值。
Program lx1;Var a,b:integer;Begina:=1;b:=2;a:=b;b:=a;write(a,b);end.3、执行如下程序，给出b,c,d的值。
Program lx2: Const a=128;Var b,d:integer;c:real;beginb:=a div 16;c:=a/b;d:=a;writeln(b,d);writeln(c:5:0);end. 4、交换两个变量a,b的值。
Program lx4;Var a,b,c:integer;BeginRead(a,b);c:=a;a:=b;b:=c;writeln(a:5,b:5);end.5、输入三个变量a、b、c的值，将它们交换后打印出来。
本例中，将a的值赋给b,b的值赋给c，c的值赋给a. Program lx5;Var a,b,c,t:integer;BeginReadln(a,b,c);t:=a;a:=b;b:=c;c:=t;writeln(a:6,b:6,c:6);end.6、输入两个整数，输出其中的较大者。
Program lx6; Var x,y:integer;BeginWrite(‘please input x,y:’);Readln(x.y);If x>y then writeln(‘x=’,x)Else writeln(‘y=’,y);End..if语句的一般形式：格式1：if 条件then 语句;格式2：if 条件then 语句1 else 语句2；7、任意输入3个数x,y和z，按由大到小的顺序输出。
pascal编程练习题[终稿]
![pascal编程练习题[终稿]](https://img.taocdn.com/s3/m/024aa42c590216fc700abb68a98271fe910eafb3.png)
1、扫描识别SCAN.BAS/SCAN.PAS/SCAN.C/SCAN.CPP【问题描述】“扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。
这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。
以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。
我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。
已知，可能出现的错误有如下几种：1、把数字0错误地识别为大写字母O；2、把数字1错误地识别为小写字母l；3、把数字2错误地识别为大写字母Z；4、把数字5错误地识别为大写字母S；5、把数字6错误地识别为小写字母b；6、把数字8错误地识别为大写字母B；7、把数字9错误地识别为小写字母q。
你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。
最后把改正之后的数字串输出。
【输入文件】文件名：SCAN.IN文件中只有一个字符串，表示识别后得到的字符串。
串的长度不超过100。
【输出文件】文件名：SCAN.OUT文件中只有一个数字串，表示改正后的数字串。
【样例输入】321lO88BqS【样例输出】32110888952、寻找2的幂CLOSE.BAS/CLOSE.PAS/CLOSE.C/CLOSE.CPP【问题描述】数学上把叫2的幂，如4、8、16 32等。
给定一个整数，请输出距离它最近的那个2的幂是多少。
如果有两个距离相同，输出那个小的。
【输入文件】文件名：CLOSE.IN文件中只有一个整数。
数据范围<=1000000000000000【输出文件】文件名：CLOSE.OUT文件中只有一个整数，表示距离最近的那个2的幂。
【样例输入】17【样例输出】163、循环的零（3.pas）请编程求1×2×3×……×N所得的数末尾有多少个0？（N由键盘输入 N〈10000〉【输入样例】：10【输出样例】：24、小青蛙回来了IAMBACK.BAS/IAMBACK.PAS/IAMBACK.C/IAMBACK.CPP【问题描述】关于小青蛙爬井的故事，你应该早就听过了：井深10尺，小青蛙从井底向上爬，每个白天向上爬3尺，每个晚上又滑下来2尺，然后问你第几天它能爬上来。
命令式和过程式编程语言Pascal面试考试题库和答案
命令式和过程式编程语言Pascal面试考试题库和答案1、Pascal是什么？Pascal 是一种命令式和过程式编程语言。
它由 Niklaus Wirth 于 1970 年开发。
它遵循结构化编程和数据结构化的基础知识。
2、为什么被命名为Pascal？Pascal这个名字是为了纪念法国数学家、哲学家和物理学家布莱斯·帕斯卡(Blaise Pasca)。
3、Pascal语言的开发者是谁？Pascal 由 Niklaus Wirth 设计。
4、Pascal开发中受到哪个语言的影响？Pascal 主要受 ALGOL W 语言的影响。
5、哪些语言受 Pascal 影响最大？Pascal影响了以下语言：Ada、Component Pascal、Go、Java、Modula、Oberon 等。
6、Pascal有哪些显着特点？以下是 Pascal 的一些特定功能：使用 if-else、repeat-until 语句等控制结构的结构化编程语言。
为机器实施提供简单和模块化的方法。
具有包含在记录、数组、文件、指针等中的不同数据结构。
提供广泛的错误检查。
支持面向对象编程。
7、如何描述一个 Pascal 集合？相同类型元素的集合称为集合。
集合中的元素称为成员。
在 Pascal 中，元素用方括号 [] 括起来。
8、什么是数据类型？Pascal中包含哪些不同的数据类型？数据类型指定变量可以存储的值的范围。
它还包括对不同数据类型执行的一组操作。
以下是 Pascal 中的不同数据类型：•标量•指针•结构化9、Pascal中的指针是什么？在 Pascal 中，指针是一个动态变量，它指定另一个变量的值。
在使用它来存储任何变量地址之前，必须声明一个指针。
10、Pascal编程中有哪些不同的指针概念？以下是 Pascal 编程中使用的一些重要指针概念的列表：算术指针：它指定了四个可用于指针的算术运算符，即递增、递减、+、-指针数组：可以定义一个数组来保存多个指针。
pascal提高题
四、编程提高题232、给出一个自然数N（1<=N<=15，且N为奇数），要求找出这样的N个连续的正整数，使得前(N+1)/2个正整数的平方和，等于后（N-1）/2个正整数的平方和。
例如：当N=5时满足条件的5个正整数为：10，11，12，13，14且102+112+122=132+142输入：Ｎ输出：满足条件的Ｎ个正整数234、给出一个正整数N（N<=32767)，要求将其分解成质因子的连乘积。
例如：当N=24时结果为：24=2*2*2*3（A）又如；当N=13时输出结果为：13=13 （B）输入：N输出：如（A）或（B）格式的结果235、输入N和一组整数（以0结束），N表示编号1，2，…，N的箱子，一组整数表示零件的重量（单位为G）。
现要求将一批零件，分别装入编号为1，2，…，N的N只箱子中去，装入的方法是：0G< 零件重量<100G 装入1号箱100G<=零件重量<150G 装入2号箱150G<=零件重量<200G 装入3号箱…………以此类推。
装完之后，要求找出哪只箱子中的零件个数最多，若有相同的最多则要求全部列出（仅列出箱子的号数即可），若因零件太重无箱子可装，也应输出这类零件的个数。
236、编制一个乘法运算的程序从键盘读入2个100以内的正整数，进行乘法计算并输出。
例如：输入格式：89 ，13 又如:输出格式：89 输入格式：16，8×13 输出格式：16267 ×8890 1281157237、输入三个自然数N，I，J（1<=I<=N,1<=J<=N）。
N表示有一个N行N列的棋盘格子，（I，J）表示棋盘中格子的位置。
如：N-4，I-2，J-3表示了棋盘中的第二行第三列的格子。
如下图：的值，输出与格子（I ，J ）在同一行、同一列、同一对角线上的所有各自位置。
例如：当N=4，I=2，J=3时，输出的结果是： （2，1）（2，2）（2，3）（2，4） {同一行上格子的位置} （1，3）（2，3）（3，3）（4，3） {同一列上格子的位置} （1，2）（2，3）（3，4） {左上到右下对角线上的格子位置} （4，1）（3，2）（2，3）（1，4） {左下到右上对角线上的格子位置}238、问题描述：给出一个正整数N （1≤N ≤100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，……N-2,N-1,N ，且可求出从1开始的这N 个数的全部各个数位上的数字之和。
pascal 语言练习
1、设a,b,c,d,e均为整型变量，且a=1, b=2, c=10,d=3,e=4,则表达式a-b*c div d mod e 的值是A. 13B. 5C. 11D.02、设a,b,c,d,e均为整型变量，且a=13, b=2, c=10,d=3, e=4,则表达式c div d*b-a mod e的值是A. 5B. –3C. 0D. -23、设a为整型变量，b、c、d为实型变量，且a=9, b=1.5,c=8.3, d=3.5,则表达式：trunc(c) div round(d) +sqrt(a)/b的值是A. 4B. 4.0C. 5.0D. 54、设a为整型变量，b、c、d为实型变量，且a=9, b=1.5,c=8.3, d=3.5,则表达式：a/b-trunc(c)*3 div round(c) +sqrt(round(d))的值是A. 4.0B. 4C. 5.0D. 55、下面正确的布尔表达式是A.‘9’>8B. 5<=10/1.5C. 3<X<8D. X>5 AND X<=8.86、下面正确的布尔表达式是A.NO(X>7) OR (X=7)B.(5*3)AND(5>X)C.9>3+1D.(9>3)+1.57、设a,b,c,d为布尔变量，则表达式(a and(b and not b))or not( c or ( d or not d))A.其值为flase的表达式B.其值为true的表达式C.不正确的表达式D.得不到结果8、表示下图中坐标轴上阴影部分的表达式应该是A.(x<=a)and(x>=b)and(x<=c)B.(x<=a)or(b<=x<=c)C.(x<=a)or(x>=b)and(x<=c)D.(x<=a) and (b<=x<=c)9、x既不在-5.5到-2.5的范围内，又不在2.5到5.5的范围内，下面正确的布尔表达式是A.x>5.5 or x<-2.5 and x>2.5 or x<5.5B.(abs(x) <2.5) or (abs(x)>5.5)C.(x<=-2.5 and x>=-5.5)and(x>=2.5 and x<=5.5)D.(x<-5.5 or x>5.5)or(x>-2.5 and x<2.5) 10、设a,b,c为整型变量，且有a:=5；b:=2；，下面能使c的值为1的正确语句是A. c:=(a-2)/bB. c:=a mod (b+2.0)C. c:=a div (b+1)D. c:=(a-2)div(b/1)11、设x是实型变量，能将x四舍五入后保留2位小数的表达式是A. ROUND(X)B. ROUND(X)/100.0C. ROUND(X*100.0)/100.0D. TRUNC(X*100.0)/100.012、下列中正确的布尔表达式是A. ‘x’<100B.55.5<20C. 25<46 AND 75>8D.55<Y<22013、把整数5转化为字符‘5’的表达式是A. CHR(5)-ORD(‘0’)B. CHR(5-ORD(0))C. CHR(5+ORD(0))D. CHR(5+ORD(‘0’))14、下列语句中正确的是A. x=x+1;B. pi*r+r/a;C. write(‘write(i)=’,i);D. x+y:=z;15、已知x=100,y=200,z=300以下程序段执行后x,y,z 的值应是if x>y then z:=x;x:=y; y:=z;A. x=100,y=200,z=300B. x=200,y=300,z=300C. x=200,y=300,z=200D. x=200,y=300,z=20016、已知实型变量x的值为12.345，若要求按12.345的形式输出，应该使用的输出语句是A. Writeln(x)B. Writeln(x:6:3)C. Writeln(x:3:6)D. Writeln(x:5)17、如果a是整型变量，b，c是实型变量，ch是字符型变量，x是布尔型变量，并且它们已被赋值为：a=1，b=2.5，c=5.0, ch=’A’，x=true，下面无效的赋值语句是A．b:=c:=8.8; B．c:=a+1;C．ch:=’*’; D．x:=x and (a=b)18、var ch1,ch2,ch3:char;beginreadln(ch1);readln(ch2,ch2);readln(ch3,ch3,ch3);writeln(ch1,ch2,ch3)end.运行以上程序时，若输入为：abcdefghi以下输出的正确的是A．adg B．ghiC．aei D．cfi19、设ｘ，ｙ，ｚ为整数变量，并有以下程序段read(x);readln(y,z);readln(z);readln(x,y);writeln(x:2,y:2,z:2);若运行是输入：1 2 34 5 67 8 9则以下输出中正确的是A. 1 2 3B. 1 4 7C. 7 8 3D. 7 8 420、已知ａ，ｂ，ｃ，ｄ，ｅ，ｆ，ｇ均为整型变量，其值分别为2，4，6，8，10，12，14，若输出结果为 2 46 8 1012 14则正确的输出语句应该是A. write(a:3,b:3）;write(c:3,d:3,e:3);write(f:3,g:3);B. writeln(a:3,b:3);write(c:3,d:3,e:3);writeln(f:3,g:3);C. write(a:3,b:3）;writeln(c:3,d:3,e:3);writeln;write(f:3,g:3);D. write(a:3,b:3）;writeln;write(c:3)writeln(d:3,e:3);write(f:3,g:3); 21、设x，y，z为整型变量且变量已赋值。
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小时的工资。
PASCAL程序设计习题
PASCAL 程序设计习题一、数字类：1. 计算1+2+3+……+100，并输出和。
2. 计算1×2×3×4×……×10，并输出积。
3. 计算1-2+3-4+5-……+99-100，并输出结果。
4. 求2x 2+4x+2=0中x 的值。
5. 输入年份，输出该年一共有多少天。
6. 运输公司对用户计算运费。
距离（s ）越远，每公里运费越低。
标准如下： s <250km 没有折扣250≤ s <500 2％折扣500≤ s <1000 5％折扣1000≤ s <2000 8％折扣2000≤ s <3000 10％折扣3000≤ s 15％折扣要求输出基本运费、货物重量以及距离，输出总费用。
7. 输入三个整数，要求按从大到小顺序输出。
8. 输入10个整数，要求按从小到大顺序输出。
9. 输入一个数，判断是否是素数。
10. 输入两个正整数，求最大公约数和最小公倍数。
11. 打印所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。
例如：153是一水仙花数，因为153＝13+53+3312. 输出100-999中，符合下面条件的整数，它既是平方数，又有两位数字相同，例如：144和676等。
13. 输出11至999之间的数m ，它满足m 、m 2、m 3皆为回文数。
14. 输出满足下列条件的三位数。
百位数字减十位数字再减个位数字大于零。
15. 输出200以内，既能被5整除同时又能被7整除的奇数。
16. 用随机函数产生20个两位数，按从大到小顺序输出。
17. 输入一个整数，打印出它是奇数还是偶数。
18. 输入一个不多于5位的正整数，输出它是几位数，并分别打印出每位的数字。
二、字符类1. 输出如下图形########### ######### ####### ##### ### #2. 把输入的字符加密输出密文，加密方法：A →B 、a →b 、Z →A 、z →a ，数字1→2、9→0，其它标点不变。
pascal编程练习题
1、输出如下图形。
2、编写一程序，验证角谷猜想。
所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。
经过若干次这样的变换，一定会使n变为1。
"Program ex_2(input,output);3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。
请你编一个程序计算出这堆零件至少是多少个？4、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.5、求出能被5整除的所有四位数的和。
Program ex_5(input,output);vari,h:longint;beginfor i:=1005 to 9995 dobeginif i mod 5=0 then inc(h,i);end;write(h);end.6、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256 这个数为47、有一个三位数，它的各位数字之和的11倍恰好等于自身，请编程求出这个三位数。
8、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。
如:153=13+53+33，所以153是一个水仙花数。
求所有的水仙花数。
Program ex_8(input,output);vara,b,c,d:integer;beginfor d:=100 to 999 do dbegina:=d div 100;b:=d div 10 mod 10 ;c:=d-a*100-b*10;if a*a*a+b*b*b+c*c*c=d then write(d:6);end;end.9、编程序打印出下列图案：(1)平行四边形(2)等腰三解形(3)菱形****** * ******* *** ********* ***** *********** ******* ********* ********* *Program ex9_1(input,output);BeginWriteln(’ * * * * * ’:10);Writeln(’ * * * * * ’:9);Writeln(’ * * * * * ’;8);End,10、编程打印出如下图案：122233333444444455555555511、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
80道题全部做完，让你成为编程高手！1.@ 有一个自然数被3,4,5除都余1,被7除余2,此数最小是几? [ 121 ]2.@ 某老者和他的孙子同生于20世纪,他们年龄相差60岁,若把他们出生年份被3,4,5,6除,余数分别是1,2,3,4. 编程求出老者和他的孙子各自出生的年份.[ 1918, 1978 ]3. @ 有一个两位数,加6后再把个位数与十位数互换,得到一个新的两位数,这样加6再互换共三次后,又得到了原来的两位数,求原来的两位数. [ 19, 52, 85 ]4. @ 如果一个自然数的数字之积加上这些数字之和正好等于这个自然数,我们称这样的自然数为"巧数",求100以内的所有巧数. [19,29,39,49,59,69,79,89,99 ]5. @ 有一个数字各不相同的三位数,如果将此数码重新排列,必可得到一个最大数和一个最小数,此两数之差正好就是原来的三位数,求这个三位数. [ 495 ]6. @ 把一个两位素数写在另一个两位素数后面,得到一个四位数.它能被这两个素数之和的一半整除,求出所有这样的素数对. [ 53,13; 47,19; 43,23; 37,29 ]7.@ 从小到大找出五个素数,使后面的数比前面的数都大12. [ 5,17,29,41,53 ]8. @ 把一个六位平方数截成两个三位数时,这两个三位数之差的绝对值是1(如573^2=328329),问这样的六位平方数共有哪些? [183183,328329,528529,715716 ]9. @ 编程找出不同的四位平方数对,它们由相同的数字构成. [ 1024,2401; 1089,9801; 1296,2916; 1296,9216; 1369,1936; 1764,4761; 2916,9216; 4096,9604 ]10.@编程找出所有各数字重新排列成连续数字的三位与四位平方数.[ 18^2=324; 24^2=576; 66^2=4356; 74^2=5476 ]11.@求1--200之间,有多少个连续的自然数之和等于555,把这样的数组分别打印出来. [ 共6组: 4-33, 30-44, 51-60, 90-95, 109-113, 184-186 ]12.@某路公共汽车包括起始站和终点站共有15个车站,有一辆车除终点外,每一站上车的乘客中都恰好有一位乘客到以后的每一站下车,为了使每一位乘客都有座位,问这辆公共汽车最少要有多少个座位?这趟车共售出多少张票? [ 56 , 105 ]13.@求1!+(1!+3!)+(1!+3!+5!)+......+(1!+3!+5!+7!+9!)的值. [ 373349 ]14.@ 父子年龄之和50岁,再过5年父亲年龄是儿子的4倍,父亲和儿子现在各多少岁?[ 43 , 7 ]15.@ A,B,C三人分24个苹果,每人所得个数等于三年前他们的年龄数.如果C把所得苹果的一半平分给A和B,然后B再把现有苹果的一半平分给A和C;最后A再把现有苹果的一半平分给B和C,这时每人的苹果数恰好相等.求现在三人的年龄个是多少岁?[ 16, 10, 7 ] 16.@ 蜘蛛有8条腿,蜻蜓有6条腿和2对翅,蝉有6条腿和1对翅. 三种虫子共18只,共有118条腿和20对翅.问每种虫子各几只? [ 5, 7, 6 ]17.@ 甲,乙两数的和为168,甲数的八分之一与乙数的四分之三的和为76,求甲,乙两数各是多少? [ 80, 88 ]18.@ 我国古代数学问题:1兔换2鸡,2兔换3鸭,5兔换7鹅.某人用20只兔换得鸡.鸭.鹅共30只,问其中鸡.鸭.鹅各几只? [ 2,21,7 ; 4,12,14 ; 6,3,21 ]19.@将下图中8个字母换成1-8这8个不相同的数,使其四个算式成立.[ 8 7 1 5 6 3 2 4 6 51 7 8 42 3]A -B = CC +D = EG * F = EA / G = H20.@ 有一本小册子,中间撕去一页后,剩下的各页码之和为90, 求:(1)这本小册子共有多少页? (2)撕下的那页的两个页码是几? [ 7 ; 7, 8 ]21.@ 甲,乙两港口距离不超过5000公里,有三只轮船于某天零时同时从甲港开往乙港,设三只船都以匀速24小时不停地航行,若干天后零时第一只船到达乙港,几天后18时,第二只船也到达,再过几天后8时,第三只船也到达,假定三只船每天的航速分别为300公里/天,240公里/天,180公里/天, 问甲乙两港实际的距离多少公里? 三只船各走了多少时间? [ 3300公里; 11天, 13天18小时, 18天8小时]22.@若A与B都是素数,求A/B的循环节.23. @100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少?[ 3, 550 ]24. 将1/A改写成1/A=1/X+1/Y(埃及分数)的所有形式,A,X,Y都是自然数,A的值由键盘输入.25. @环绕大厅有七盏电灯A,B,C,D,E,F,G,各自装有一个拉线开关,开始时只有A,C,E,G四盏灯亮着,一个小孩从A灯开始顺次拉一下开关,问当他拉了N(N>1000)次开关后,最后都有哪几盏灯是亮着的?26. @一木板高110厘米,有个小虫由地面向上爬,每分钟爬上50厘米,每爬1分钟就要休息1分钟,在这休息时间内下滑30厘米,当小虫爬到顶部还要休息2分钟,再按原路爬回地面,问共用多少分钟? [ 10 ]27. @波兰数学家巴那赫总是随身携带两盒火柴,一个口袋放一盒,最初每盒放50根火柴,当他需用火柴时就随意从一个口袋里取一根,当他发现取出的盒子已经空了的时候,另一盒里剩下多少根的可能性最大?28. @一个椭园形跑道周长为400米,甲,乙两人同时从一个起跑点向相反的方向绕跑道慢跑,已知甲每秒跑5米,乙每秒跑3米,问他们两人在跑道上分别5次相遇时,每次各距起跑点多远?(取距起跑点近的距离)29.@输入10个正整数，计算它们的和，平方和；30.@输入20个整数，统计其中正、负和零的个数；31.在1——500中，找出能同时满足用3除余2，用5除余3，用7除余2的所有整数；32.输出1——999中能被3整除，且至少有一位数字是5的数；33.输入20个数，求出它们的最大值、最小值和平均值。
34.甲、乙、丙三人共有384本书，先由甲分给乙、丙，所给书数分别等于乙、丙已有的书数，再由乙分给甲、丙，最后由丙分给甲、乙，分法同前，结果三人图书数相等。
编程求甲、乙、丙三人原各有书多少本？35.某养金鱼爱好者，决定出售他的金鱼。
第一次卖出了全部金鱼的一半加2分之一条金鱼；第二次卖出剩金鱼的三分之一加三分之一条金鱼；第三次卖出剩金鱼的四分之一加四分之一条金鱼；第四次卖出剩金鱼的五分之一加五分之一条金鱼，最后还剩11条。
问原来有多少条金鱼？（每次卖的金鱼都是整数条）36.猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。
到了第十天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？37.从键盘输入整数L，统计出边长为整数的周长为L的不等边三角形的个数。
38.输入三个整数，以这三个数为边长，判断是否构成三角形；若构成三角形，进一步判断它们构的是：锐角三角形或直角三角形或钝角三角形。
39.1*2*3*...*1000结果是一个很大的数，求这个数末尾有多少个连续的零。
40.任意输入两个整数，求这两个整数的最大公约数，并求这两个整数的最小公倍数。
41.一个整数的立方可以表示为两个整数的平方差，如1985^3=1971105^2-1969120^2。
编程：输入一个整数N，自动将其写成N3=X2-Y2。
42.纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。
这样下去一直到最后剩下的个位数也还是素数。
求出所有小于3000的四位的纯粹素数。
43.验证回文数的猜测：左右对称的自然数称回文数。
如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。
经过七步就得到了回文数。
设计一个程序，由计算机在局部范围内验证回文数的猜测，并将寻找回文数的每一个步骤都显示出来。
44.已知一个正整数的个位数为7，将7移到该数的首位，其它数字顺序不变，则得到的新数恰好是原数的7倍，编程找出满足上述要求的最小自然数。
45.任意一个大于9的整数减去它的各位数字之和的差，一定能被9整除。
46.有一个六位数，其个位数字7，现将个位数字移至首位（十万位），而其余各位数字顺序不变，均后退一们，得到一个新的六位数，假如旧数为新数的4倍，求原来的六位数。
47.将1至9这几个数字排成3x3方阵，并使每一横行的三个数字组成一个三位数。
如果要使第二行的三位数是第一行的两倍，第三行的三位数是第一的三倍，应怎样排法？编程找出所有排法。
48.一个合数（质数的反数），去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，余留下来的数还是合数，这样反复，一直到最后公剩下的一位数仍是合数；我们把这样的数称为纯粹合数。
求所有的三位纯粹合数。
49.输入一个大于1的整数，打印出它的素数分解式。
如输入75，则打印："75=3*5*5"。
50.@某自然数n的所有素因数的平方和等于n，（n<100），请找出二个这样的自然数n。
51.若某个自然数的所数有小于自身的素因数之和恰好等于其自身，则该自然数称为一个完全数。
例如：6是一个完全，6=1+2+3。
目前至少发现29个完全数。
编程找出三个最小的完全数。
52.一个自然数，若它的素因数至少是两重的（相同的素因数至少个数为二个，如：36=2*2*3*3），则称该数为"漂亮数"。
若相邻的两个自然数都是"漂亮数"，就称它们为"孪生漂亮数"，例如8和9就是一对"孪生漂亮数"。
编程再找出一对"孪生漂亮数"。
53.@每一个素数的倒数都可以化为一个循环小数，例如：1/7可以化为0.（142857），1/13可化为0.（076923）。