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语言基础总成含题目
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、PASCAL程序的执行部分是_______。
A、程序体B、语句C、程序说明部分和语句部分D、整个程序2、标准PASCAL程序说明部分的正确顺序是________。
A、label-->const-->var-->typeB、var-->const-->label-->typeC、label-->const-->type-->varD、const-->var-->type-->label3、下列______是合法的标识符。
A、A23456B、X*YC、BEGIND、H(X)4、下列______是非法的标识符。
A、A17B、A_17C、3XD、P5Q5、下列_____不是保留字。
A、newB、programC、divD、var6、下面_______是PASCAL数。
A、73e4B、-e4C、36.74-e6D、1,742,2587、下面________是实数。
A、90B、0.0C、‘0’D、08、下面有效的PASCAL字符型数据是________。
A、‘This isB、6C、YD、''''9、下列常量定义中正确的是______。
A、const d=40 or d=100;B、const s:0.5;C、const s=2.15;D、const s:=(2>5);10、下列变量说明中，不合法的是______。
A、var a=real;B、var r:real;C、var red:integer;D、var i1,i2:integer;11、下列函数值是整型的是______。
A、CHR(23)B、ORD(FALSE)C、SUCC(FALSE)D、ODD(98)12、下列函数值不可能是布尔类型的是_______。
A、ODD(X)B、ORD(X)C、PRED(X)D、SUCC(X)13、设x是实型变量，下列表达式能将x四舍五入后保留两位小数的是______。
pascal基础练习
1．倒字母金字塔输入n(n<=26)，输出n行的字母金字塔。
【样例输入】3【样例输出】ABCBAABAA2．猴子吃桃猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。
到了第n 天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？【样例输入】2【样例输出】4说明：到第2天早晨只剩下1个，表示共摘了4个桃子。
3．素因式分解任何一个大于1的自然数可以分解成它的素数因子的乘积，而且这个素数分解式是唯一的（唯一定理）。
输入一个大于1的正整数，输出该素数分解式。
【样例输入1】100【样例输出1】100=2*2*5*5【样例输入2】7【样例输出2】7=74．纯粹合数一个合数，去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，留下来的数还是合数，这样反复，一直到最后仅剩下的一位数还是合数，我们把这样的数称为纯粹合数。
求10000以内的所有纯粹合数。
5．立方数拆分一个整数n（n<=2000）的立方可以表示为两个整数的平方差。
输入一个整数，输出它是由哪两个整数的平方差。
【样例输入1】2【样例输出1】31样例1说明：23=32-12【样例输入2】1985【样例输出2】19711051969120课后练习：1．输入n，计算s(保留2位小数)。
已知s=1/(1×2)+1/(3×4)+1/(5×6)+……+1/((n-1)×n)。
【样例输入】2【样例输出】0.502．纯粹素数纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。
这样下去一直到最后剩下的一位数也还是素数。
求出所有小于10000的四位的纯粹素数。
3．角谷猜想对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。
经过若干次这样的变换，一定会使n变为1。
[计算机]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入门测验2(附答案)
小学复赛集训21．问题描述：某科技展教馆的团体入场费30人为50元，超过30人后，每增加1 人增加费用1元，为了使所有人平均后的每人费用不超过某个指定的费用m（1<m≤1.7）元，问最少以几个人入场为好？指定费用m用键盘输入。
例如：输入：m = 1.65输出：ZuishaoRenshu：31var i,j : longint; m,n : real;begin write('M = '); readln(m);i := 30; j := 50; n := 50/30;while n > m do begin i:=i+1;j:=j+1; n := j/i;end;writeln(i); readln;end.2．三位数345，3<4<5，称这个三位数为“迎春花”数，输出三位数中所有既是“迎春花”数又是质数的数，并统计个数。
(127、137、……、569，S=20)var x,a,b,c,s,y,h:integer;begin for x:=100 to 999 dobegin a:=x div 100;b:=x div 10 mod 10;c:=x mod 10;s:=0;for y:=1 to x doif x mod y=0 then s:=s+1;if (s=2) and (a<b) and (b<c) then begin write(x:4);h:=h+1 end;end; write('s=',h);end.3．所有的正整数均可以表示为一个、两个或者多个连续的正整数之和，给定一个不超过30000的正整数，求出它可以用几种不同的方法表示成连续正整数之和。
如给出9，则有三种方法：9，4+5，2+3+4。
（注：方法5+4与方法4+5视为是相同的）用键盘输入一个正整数n（1≤n≤30000），输出与之相应的不同方法种数。
输入输出样例：输入：n=9↙输出：3var s,n,i,j,c:integer;begin write('n=');readln(n);c:=0; for i:=1 to n dobegin s:=0;j:=i;while s<n do begin s:=s+j; j:=j+1; end;if s=n then c:=c+1;end; writeln(c);end.4．任意输入一个自然数X，输出它对应的汉语拼音。
pascal入门测验3(附答案)
小学复赛集训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。
PASCAL语法基础答案
Pascal语法基础习题第一题：下列哪些常量是对的，哪些是错误的，错在哪？Consta=30;b=a;b=a+1;c=true and falsed=2,3f,g=a;解：1.常量定义不可以出现字母的赋值，如：B=a;B=a+1;2.定义的数值只可以唯一。
如 D=2,3则为非法。
3.常量只可以一个一个定义。
如F,g=3为非法，更不用说 F,g=a.第二题：下面的表达式，哪些是正确的，哪些是错误的；正确的请求出表达式的值，错误的指出其错误。
（其中L为整型变量，R为实型变量）（1）round(L) and round(L+1)（2）round(L)〈round(L+1)（3）odd(L) or odd(L+1)（4）round(L/r) mod 5解：1.大家知道round()是取四舍五入的标准函数.odd()是判断奇偶数的函数。
2.and or not 只能连接布尔型常量true或false.并且得到布尔型常量。
而比较符如>,<,<>或odd()函数等也可以得到布尔型常量.所以：1。
错误2。
true3。
true4。
小于5大于等于0的整数第三题：将下列写成pascal语言的表达式。
(1) M a+b(2)tg2(x/2)/(a-x)a+3(3) -------------4/(b+1)+c+d解：这一题很简单，只要知道括号的运用一般就可以迎刃而解，并且要知道pascal中没有直接的次方函数。
正切的函数为tan(),其它三角函数可以通过正切来转化。
如sin,cos,ctg等。
1。
S:=1;for i:=1 to (a+b) do S:=S*M;M:=S;2。
tan(x/2)*tan(x/2)/(a-x)3。
(a+3)/((4/b+1)+c+d)第四题：完善下列程序：问题：给出半径R=100，高H=30，求圆周长、圆面积、圆柱全面积。
源程序：program lx1(input,output);var(1):real;beginlen:=2*pi*r;s:=(2);qs:=len*h+2*s;writeln('len=',len,'s=',sm,'qs=',qs);end.解：我们可以看到变量pi,r,s,qs,len,h均未定义。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1．倒字母金字塔
输入n(n<=26)，输出n行的字母金字塔。
【样例输入】
3
【样例输出】
ABCBA
ABA
A
2．猴子吃桃
猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。
到了第n 天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？
【样例输入】2
【样例输出】4
说明：到第2天早晨只剩下1个，表示共摘了4个桃子。
3．素因式分解
任何一个大于1的自然数可以分解成它的素数因子的乘积，而且这个素数分解式是唯一的（唯一定理）。
输入一个大于1的正整数，输出该素数分解式。
【样例输入1】100
【样例输出1】100=2*2*5*5
【样例输入2】7
【样例输出2】7=7
4．纯粹合数
一个合数，去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，留下来的数还是合数，这样反复，一直到最后仅剩下的一位数还是合数，我们把这样的数称为纯粹合数。
求10000以内的所有纯粹合数。
5．立方数拆分
一个整数n（n<=2000）的立方可以表示为两个整数的平方差。
输入一个整数，输出它是由哪两个整数的平方差。
【样例输入1】2
【样例输出1】3 1
样例1说明：23=32-12
【样例输入2】1985
【样例输出2】1971105 1969120
课后练习：
1．输入n，计算s(保留2位小数)。
已知s=1/(1×2)+ 1/(3×4)+ 1/(5×6) +……+1/( (n-1)×n)。
【样例输入】2
【样例输出】0.50
2．纯粹素数
纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。
这样下去一直到最后剩下的一位数也还是素数。
求出所有小于10000的四位的纯粹素数。
3．角谷猜想
对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。
经过若干次这样的变换，一定会使n变为1。
输入n，输出经过多少次可以变为1，并输出中间的每个数。
【样例输入】
3
【样例输出】
3 10 5 16 8
4 2 1
7。