Pascal练习题及答案
- 格式:doc
- 大小:55.50 KB
- 文档页数:4
心系南方灾区【问题描述】现在我国南方正在承受百年不遇的大雪、冻雨灾害。
北京市已经开始了面向全体市民的捐款捐物活动,并组织运力,以最快速度将这些救灾物资运送到灾区人民的手中。
已知救灾物资中有m件大衣(10000<=m<=2000000 ),一辆卡车一次最多可以运走n件大衣(2000<=n<=10000)。
请你编写程序计算一下,要将所有的大衣运走,北京市政府最少需要调动多少辆卡车参与运送。
输入:只有两个整数m、n 。
【输出】只有一个整数,表示需要的卡车数量。
【样例输入】10000 2000【样例输出】5Delphi语言: Codee#10155program help;vara,b:longint;beginassign(input,'help.in');assign(output,'help.out');reset(input);rewrite(output);readln(a,b);if a mod b=0 then write(a div b) else write(a div b+1);close(input);close(output);end. 50000 4000 (13) 85000 5600(16)【入门】偶数和Description 读入班里两位同学的生日,即两行年y、月m、日d(1990≤y≤2000,1≤m≤12,1≤n≤31,数据保证合法,不需判断),数据之间用空格隔开,求两位同学生日中的‘日’之间的偶数和。
Input 两行,每行三个数,即年月日Output 一行,一个整数。
Sample Input1996 6 51997 10 10Sample Output24Hint因为5到10之间有三个偶数:6、8、10Source 武进区中级班测验program ex1284;var y1,m1,d1,y2,m2,d2,t,s,i:integer;beginreadln(y1,m1,d1);readln(y2,m2,d2);s:=0;if d1>d2 then begin t:=d1;d1:=d2;d2:=t; end;for i:=d1 to d2 doif i mod 2=0 then s:=s+i;write(s);end.1998 7 4 1998 9 15 (54)1998 7 15 1999 6 24 (100).手机的键盘是这样的:1 2 abc 3 def4 ghi5 jkl6 mno7 pqrs 8 tuv 9 wxyz* 0 #要按出英文字母就必须要按数字键多下。
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均未定义。
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。
一、填空题(每空1分,共14分)1如果希望将参数作为过程处理的结果传递至过程外,那么这种参数应作为(变量参数)。
2一个PASCAL程序由程序首部与(分程序)两部分组成,以“.”结束。
【解】答案为:分程序。
正确的PASCAL程序结构是:程序首部分程序.3设有说明var a,b,c,d,e:integer则对于待输入数据12345678执行下列语句后,d=___________。
readln(a,b,d);readln;readln(c,d)【解】第一个读语句读去了2行(第1、2行)第二个读语句读去了1行(第3行)第三个读语句是读第4行上的数据,即:7→C;8→d,因此d=8。
这里要注意readln的作用。
此题的readln若都换成read,情况就不同了。
4动态变量与静态变量的关键区别在于动态变量_____________。
【解】答案为:不需(在分程序的说明部分)明显说明。
分析:动态变量是无法由说明部分明确说明的,它是随机产生的。
5程序中的错误一般分为语义错误、_____________与___________三类。
【解】语法错误。
逻辑错误。
分析:语法错误是指程序或其成分(各说明,语句等)不合乎语法,如实在参数表与相应形参表不一致等。
语义错误是指程序或其成份语义有错,如除法的除数为零等。
逻辑错误是指程序未能真实反映算法,或算法本身就有错误。
例如,把a+b错写成a*b等。
6succ(round(38.5/5))-(ord('D')-ord('A'))mod4=______________【解】正确答案为6。
这里要注意表达式的运算顺序以及succ、ord和mod运算的含义。
7PASCAL语言的标准简单类型是整型、实型、_________与字符型,标准构造类型是_______【解】布尔型(boolean型)正文文件类型(text型)。
此题的标准构造类型容易被忽视,它是用类型标识符text标记的。
一、填空题:(每小题2分,共20分)1. 在Turbo Pascal 中,程序的三种基本结构是顺序结构、 和 。
2. A:=[1,2,3,4,5];B:=[2,4,6,8,10];A+B 的值是 ,A*B 的值是 。
Pascal 程序是由 和 组成。
4. V AR color :(red, blue, green, black); pred(blue)= ;succ(green)= 。
5. 用户自定义的简单类型包括: 和 。
6. 表达式ROUND(3.745)*(6 MOD 4)+ABS(-3)的值为 。
7. 代数式x y e x)(sin 2的Pascal 语言表达式____________________。
8. 设var p:^T ;则p 是指针变量,而 是类型为T 的动态变量。
9. 设有说明:V AR a,b,c:integer ; 则下面程序段的输出是 。
a:=5;b:=8;c:=1; WHILE (b-a>c) DO BEGINa:=b-a ;b:=b-a; END ;writeln(b); 知程序中有以下函数说明:FUNCTION F(x,y,z:integer):integer BEGINF:=3*x+4*y DIV z END;则:执行语句k:= F(1,F(1,2,3),3)后k 的值是 。
二、选择题(每小题2分,共30分)。
1.已知ch 是字符变量,下列赋值语句中正确的是( )A) ch:='7' B) ch:=7 C) ch:='-7' D) ch:=-'7'2.Integer 是( )A) 保留字 B) 标准标识符 C) 用户定义的标识符 D) 类型定义3.不能作为子界类型的基类型的是( )A) 实数类型 B) 枚举类型 C) 字符类型 D) 布尔类型4.下面是对PASCAL 程序组成结构的四条描述,其中错误的是( )A ) PASCAL 程序必须有程序首部B ) 程序的注释部分只能写在程序中一条语句的最后C ) 程序首部的参数部分可有可无D ) 一个完整的PASCAL 程序的主程序只能有一个5.要使语句IF a IN b THEN <语句>;无语法错误,a,b 的类型应该是( )A) a 是集合类型,b 的类型与a 的基类型相同B) b是集合类型,a的类型与b的基类型相同C) a和b都是集合类型D) a,b中的任何一个都可以是集合类型,另一个则是此集合的基类型6.设a,b是整型变量且已赋值,函数首部为FUNCTION func(VAR a:Integer):Integer;下面正确的函数调用是( )A) b:=func(func(b) ) B) Writeln(func(a+b))C) Writeln(Ord(func(b))) D) b:=func(Succ(func(b)))7.下列中错误的PASCAL表达式是A)10e6*3.7 B)17 DIV 3 C)18 DIV 3*4.0 D)4.018 DIV 38.PASCAL编译程序是( )A) 把PASCAL源程序转换成可运行的EXE文件的程序B) 把PASCAL源程序转换成等价的目标码的程序C) 生成和修改一个PASCAL语言源程序的程序D) 把PASCAL的目标码程序转换成可运行的EXE文件的程序9.设x是实型变量,下列哪一个表达式能将x四舍五入后保留二位小数? ( )A) Round(x) B) Round(x)/100.0C) Round(x*100.0)/100.0 D) Trunc(x*100.0)/100.010.设有说明TYPE t=(A,B,C,D);V AR s:ARRAY(11..15) OF ARRAY[t] OF Integer;则数组s中共有多少个元素( )A) 4 B) 5 C) 9 D) 2011.a1,a2,a3是布尔型变量,分别等于True,True,False,下列表达式的值为False的是( )A) NOT a1 AND NOT a2 B)a1 OR a2 AND a3C) (NOT a1 OR a2)AND(a2 OR a3) D)False OR NOT a1 AND a2 OR NOT a312.下面正确的枚举类型或子界类型定义是( )A) TYPE vowel=('a','e','i','o','u');B) TYPE day=1..31 or 1..30 or 1..28;C) TYPE color=(red,blue,green);D) TYPE workdays=mon..fri;workdays=(mon,tue,wed,thu,fri,sat,sun);13.设有过程p1的说明如下(仅给出过程的主要部分)PROCEDURE p1;VAR a,b: Integer;c,d:Char;PROCEDURE p2 (VAR e:Integer);VAR b,f:Real;BEGIN...END;BEGIN...END.在过程p2中,对变量e最适当的描述是( )A) e是一个值型参数 B) e是一个全局变量C) e是一个形式参数D) e是一个实际参数14.有如下程序段a:=0; {a,i为整型变量}FOR i:=1 TO 15 DOa:=a+i MOD 3;Writeln(a);该程序段运行后输出的结果是( )A) 90 B) 1 C) 15 D) 12015.设x,z,m,j为整型变量,且z,m均已赋值,并有程序段:x:=z;FOR j:=1 TO m DO x:=x-1;下面赋值语句与上述程序段等价的是A)x:=x-j; B)x:=z-m; C)x:=j-z; D)x:=j+m;三、阅读程序并在程序后写出运行结果(每小题6分,共30分)。
Pascal填空题试题详解1—52作者:老胡1.Pascal语言的数据类型按其特点可以分为3大类,即简单类型、——、指针类型。
解答:本题答案是构造类型。
2.Pascal中整数类型数据包括正整数、负整数和——。
解答:本题正确答案为整数零。
3.Pascal语言中顺序类型是指整数类型、字符类型、布尔类型、枚举类型、——。
解答:本题正确答案为子界类型。
4.Pascal语言的5种基本运算是算术运算、——、逻辑运算、集合运算和赋值运算。
解答:本题正确答案为关系运算。
5.在Pascal语言中,有一个特殊的整数,用——表示。
它代表某一个计算机系统允许的最大整数值。
解答:在数学中,整数是一个无限集合。
但是计算机只能表示它的一个有限子集。
Pascal系统预定义了一个标准常量,它代表所使用计算机系统Pascal 允许使用的最大整数值,由具体的编译器决定。
本题正确答案为MAXINT。
6.枚举类型只能进行两种运算,即赋值运算和——。
解答:Pascal中算术运算和逻辑运算对枚举类型无意义。
本题正确答案为关系运算。
7.如果一个记录有固定和变体两部分,必须首先定义——部分。
解答:本题正确答案为固定。
8.枚举类型的值是有序号的,序号从——开始,自左到右,从小到大排列。
解答:本题正确答案为0。
9.在Pascal中,若i>j,则[i..j]表示——。
解答:用子界方式表示集合中的元素时,子界的下界应不大于上界,否则集合为空集本题正确答案为“空集”。
10.在Pascal中,表达式[4..9]=[4..6,7..9]的值为——。
解答:本题目是用不同子界表示集合元素,但所表示的是整数类型的同一范围。
所以结果为true。
本题正确答案为true。
11.变量说明如下VARCh1,Ch2:'A'..'F';week:(sun,mon,tue,wed,thu,fri,sat);且ch1:='D';Ch2:='G';week:=tue;则表达式ord(week) MOD (ord(ch2)-ord(ch1))的值是——。
第一章初识Pascal语言【上机练习】1. 输入三个数,计算并输出它们的平均值以及三个数的乘积,写出程序。
2. 输入圆的半径R,求圆的面积和周长。
3. 加法计算器:编程由键盘输入两个整数a和b,将它们的和输出到屏幕上。
4. 某梯形的上底、下底和高分别为8,12,9,求该梯形的面积。
5. 已知图圆柱体的高为12,底面圆的半r径为7,求圆柱体表面积。
6. 进入Fp,调试以下程序:program ex1_6;vars : string;beginwrite(‘Please 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语言练习班级________ 姓名_________一、选择题1.下列中没有语法错误的PASCAL程序首部是()(A)PROGRAM A1;(B)PROGRAM A1(output)(C)PROGRAM (input,output);(D)PROGRAM A1(input output);2.表达式true AND NOT odd(202)<(7-3<=4)的值是()(A)true (B)false (C)0 (D)13.有下列程序PROGRAM print(input,output);VAR ch1,ch2,ch3:char;BEGINReadln(ch1); Readln(ch2,ch2); Readln(ch3,ch3,ch3); Writeln(ch1,ch2,ch3)END.若运行时输入redyellowblue则正确的输出是()(A)ryb (B)reu (C)rdl (D)blu4.设有以下说明:VAR i1,i2,i3:integer;b1,b2,b3:boolean;则下列中合法的赋值语句是()(A)i3:=i1/i2 (B)b1:=i1 AND i2(C)b2:=i1<i2 (D)b3:=i1<i2<i35.设有说明CONST zero=’0’; pi=3.1416; str=’ABC’;VAR r:real; i:integer; b:boolean; c:char;下面赋值合法的是()(A)r:=zero (B)b:=pi>=3(C)c:=str (D)c:=ord(’B’)6.有下面程序段:a:=false; b:=false;c:=true; x:=10;IF aTHEN x:=x-5ELSE IF bTHEN IF cTHEN x:=36ELSE x:=45;假设所有变量均已说明,程序运行后x的值是()(A)5 (B)10 (C)36 (D)457.源程序如下:PROGRAM p237(input,output);VAR a,b,c,t:real;BEGINReadln(a,b,c);IF a>bTHEN IF b>cTHEN Writeln(a,b,c)ELSEBEGINt:=b; b:=c; c:=t;writeln(a,b,c)END;Writeln(a,b,c)END.若a=6,b=4,c=5则程序运行后输出结果是()(A)6,5,4 (B)6,4,5 (C)6,5,4 (D)6,5,46,4,5 6,5,48.已知ch1,ch2都是字符型变量,设有程序段如下:Read(ch1,ch2);IF ch2<>’A’THEN BEGINCASE ch1 OF‘A’:CASE ch2 OF‘C’:write(‘AA’);‘B’:write(‘AB’)END;‘B’:write(‘BB’)ENDENDELSE write(‘BA’);若执行此程序段时输入的数据是AB,则输出是()(A)AA (B)BB (C)BA (D)AB9.下面关于FOR循环不正确的叙述是()(A)在循环体中不能改变循环控制变量的值(B)在执行过程中初值和终值不会改变(C)分为递增型和递减型两种(D)循环控制变量不必在程序的说明部分说明10.下列FOR语句构成的循环,能执行且有输出的是()(A) FOR i:=1 DOWNTO 5 DO Write(i);(B) FOR i:=5 TO 1 DO Write(i);(C) FOR i:=5 TO 5 DO Write(i);(D) FOR i:=0.5 TO 5.5 DO Write(i);11.下列程序段中,循环体执行的次数为()i:=1;REPEATn:=i*i;i:=i+1UNTIL n>i;(A)1 (B)2 (C)3 (D)4 12.有下面程序段:m:=2;s:=0;FOR ch:=’A’ TO’F’ DOBEGINIF odd(m) THEN s:=s+m;m:=m+3END;假设所有变量均已说明,程序运行后S的值是()(A)72 (B)52 (C)33 (D)1613.有下列程序段:x:=2;y:=6;FOR i:=x TO y DOBEGINx:=3;y:=6;write(i)END则FOR循环体的执行次数是()(A)0 (B)3 (C)4 (D)514.下面的语句序列中有语法错误的是哪一个()(其中m,n为已知,且m<=n)(A)FOR i:=m TO n DOwrite(a);m:=m+1;(B)FOR i:=m TO n DOBEGINwrite(a);m:=m+1;END;(C)FOR i:=m TO n DOBEGINwrite(a);i:=i+1;END;(D)FOR i:=m TO n DOBEGINwrite(a);n:=n-1;END;15.能正确输出0.1,1.1,2.1,3.1,4.1,5.1的循环体是()(A)WHILE (i>0.1) AND (i<=5.1) DOBEGINWrite(i:4:1);i:=i+1ENDWriteln;(B)REPEATi:=0.1;write(i:4:1);i:=i+1;UNTIL i>5.1writeln;(C)FOR i:=1 TO 5.1 DOwrite(i:4:1)Writeln;(D)i:=0.1;REPEATWrite(i:4:1);i:=i+1;UNTIL i>5.1Writeln;16.执行后a的值与其他三个程序段不相同的是()(A)a:=0; i:=1; (B)a:=0;i:=1;REPEAT WHILE I<=5 DOi:=i+1; BEGINa:=a+1; i:=i+1UNTIL i>6; a:=a+1END;(C)a:=0; (D)a:=0;i:=1;FOR i:=1 TO 5 DO REPEATa:=a+1; i:=i+1;a:=a+1UNTIL i>5;17.以下程序段中既无语法错误又无逻辑错误的是()(A)x:=1;y:=0; (B)x:=10;WHILE x<10 DO REPEATBEGIN writeln(x);y:=y+x; x:=x+1;writeln(y) UNTIL x<0;END;(C)CASE num OF (D)x:=0;y:=10;0,1:rate:=0.05; WHILE (x<10)AND(y>=0) DO1,2:rate:=0.10; BEGIN3,4:rate:=0.15 x:=x+1; y:=y-2;END; END;18.哪个程序段能正确地将1—10打印在一行上()(A)FOR i:=1 TO 10 DO (B)i:=0;write(i:5); WHILE i<=10 DOBEGIN Write(i:5); i:=i+1;END;(C)i:=1; (D)i:=1;REPEAT WHILE i<=10 DOi:=i+1; BEGINwrite(i:5); i:=i+1; write(i:5)UNTIL i>10; END;19. 程序段如下:FOR i:=1 TO 5 DOFOR j:=2 TO i DOWriteln(‘*’);输出’*’的个数是()(A)5 (B)10 (C)15 (D)2520. 设a,b,c,i,j均为整型变量,有下面的程序段:a:=0;b:=1;c:=2;FOR i:=1 TO 3 DOFOR j:=1 TO i DOCASE ((i+j)MOD 3) OF0:a:=a+1;1:b:=b+1;2:c:=c+1END;Writeln(a:3,b:3,c:3);此程序段执行后的输出结果是()(A)2 4 3 (B)3 4 2 (C)2 3 4 (D)4 3 2 二、填空题1.PASCAL程序的程序首部以___________开始;说明部分中常量说明以_________开始,变量说明以__________开始;语句部分以_________开始,以__________结束,语句之间用_________分隔。
一、单选题1.我们把计算机硬件系统和软件系统总称为 C 。
(A)计算机CPU (B)固件 (C)计算机系统 (D)微处理机2.硬件系统是指 D 。
(A)控制器,运算器 (B)存储器,控制器 (C)接口电路,I/O设备 (D)包括(A)、(B)、(C)3. 计算机软件系统包括 B 。
A) 操作系统、网络软件 B) 系统软件、应用软件C) 客户端应用软件、服务器端系统软件 D) 操作系统、应用软件和网络软件4.计算机硬件能直接识别和执行的只有 D 。
(A)高级语言 (B)符号语言 (C)汇编语言 (D)机器语言5.硬盘工作时应特别注意避免 B 。
(A)噪声 (B)震动 (C)潮湿 (D)日光6.计算机中数据的表示形式是 C 。
(A)八进制 (B)十进制 (C)二进制 (D)十六进制7.下列四个不同数制表示的数中,数值最大的是 A 。
(A)二进制数11011101 (B)八进制数334 (C)十进制数219 (D)十六进制数DA 8.Windows 9x操作系统是一个 A 。
(A)单用户多任务操作系统 (B)单用户单任务操作系统(C)多用户单任务操作系统 (D)多用户多任务操作系统9.局域网中的计算机为了相互通信,必须安装B 。
(A)调制解调器(B)网卡(C)声卡(D)电视卡10.域名后缀为edu的主页一般属于__A____。
(A)教育机构(B)军事部门(C)政府部门(D)商业组织11. 香港在世界上注册的顶级域名是__A____。
(A)hk (B)cn (C)tw (D)com12.计算机能够自动、准确、快速地按照人们的意图进行运行的最基本思想是( D )。
(A)采用超大规模集成电路(B)采用CPU作为中央核心部件(C)采用操作系统(D)存储程序和程序控制13.设桌面上已经有某应用程序的图标,要运行该程序,可以 C 。
(A)用鼠标左键单击该图标 (B)用鼠标右键单击该图标(C)用鼠标左键双击该图标 (D)用鼠标右键双击该图标14.若己选定某文件,不能将该文件复制到同一文件夹下的操作是 C 。
命令式和过程式编程语言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的集成环境,了解主菜单的各项功能
二、完成下面程序的输入、编译、运行、保存,并注意观察程序的运行结果
1、程序代码如下:
program exe1 (input ,output) ;
var
h ,k :integer ;
begin
for h := 1 to 8 do begin
write( ' ':20-h);
for k :=1 to 2*h-1 do write(' * ');
writeln;
end;
end.
2、编程计算半径为R的圆的面积和周长
程序代码如下:
Program Exe2;{程序首部}
Const Pi=3.14
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.
3、编程在屏幕上显示‚Hello World!‛。
程序代码如下:
Program exe3;
Begin
Writeln( ‘ Hello World!’);
Readln;
End.
4、下面是一道猜数的趣味程序,程序运行后,由计算机随机地产生一个100
以内的整数,用户有十次猜数的机会,并且计算机会根据你猜的数给你相应的提示。
程序代码如下:
program caishu (input ,output) ;
var
x,n,k :integer;
begin
randomize;
x:=random( 100) ;
repeat
write('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小时的工资。
1program Exe (input, output);
2var h, r, w : integer;
3begin
4 h := 130;
5 r := 80; 6 w := h * r; 7 writeln (w) 8
end.
a)
b) 。
10400
c) 如果将行7改为 writeln ( ‘Total wages = ’, w ),將程式编译(Compile )后,执行程序(Run ),写下屏幕上看到了什么。
Total wages=10400
d) 试着在行6和行7之间加上两语句,使程序产生的输出结果如下:
Total working hours = 130 Hourly rate = 80
Total wages =10400
Writeln(‘Total working hours=’,h); Writeln(‘Hourly rate=’,r);
五、试编一程序,从键盘输入一梯形的上底、下底、高, 求该梯形的面积。
、
a)、所求程序编制如下:
var v,b,h:real; begin
writeln(‘v=’);read (v); 1.350000000000000E+002 readln;
writeln(‘b=’);read(b); readln;
writeln(‘h=’);read(h); readln;
writeln(‘C=’,(v+b)*h/2); readln; end.
b)、把上述程序输入PAS 程序输入程序编辑窗口,从键盘输入一梯形的上底、下底、高分别为12、
18、9,运行结果为:
六、从键盘输入3个数,计算并输出这3个数的平均值。
a)、所求程序编制如下: program pingjun(input,output);
var a,b,c:real; begin 2.340000000000000E+002 writeln(‘a=’);read(a);
readln;
writeln(‘b=’);read(b); readln;
writeln(‘c=’);read(c); readln;
writeln(‘Average value=’,(a+b+c)/3); readln; end.
b)、把上述程序输入PAS 程序输入程序编辑 窗口,从键盘输入三个数为12、456、234, 运行结果为:。