- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
pascal入门讲解
Company Logo Company LOGO 看看你学到了什么 信息学(第一学期) Company Logo 目录 Turbo pascal 7.0的使用 1 Pascal程序设计语言基础 2 顺序结构程序设计 3 选择结构程序设计 4 Company Logo 简答题 Pascal语言程序由哪几部分组成? 程序首部,程序体(说明部分,执行部分) 说明自定义标识符的命名规则? 以字母或下划线开头,由数字、字母、下划线组成,长度不超过63字节,不与保留字同名。 实数类型有哪几种表示方法,并简要叙述? 小数表示法(如2.541),科学记数法(7E2) 布尔类型数据可以做哪些运算?运算规则是什么? 逻辑运算(not、and、or) Company Logo 选择题 表达式sqrt(abs(-100)*sqr(round (5.8)))的值是( ) A. 50 B. 60 C. 50.0 D. 60.0 把整数5变为字符‘5’的表达式为( ) A. chr(5)-ord(‘0’) B. chr(5-ord(‘0’)) C. chr(5+ord(‘0’)) D. chr(5+ord(0)) 下列式子中,正确的关系表达式为( ) A. ‘a’100 B. 23.621 C. (12)and(‘A’’B’) D. 5x8 D C B Company Logo 填空题 ax2+bx+c的pascal表达式为 a*x*x+b*x+c 或者 a*sqr(x)+b*x+c 已知b1、b2、b3的布尔值分别为true、false、false。 not b1 and not b2= b1 or b2 and b3= (not b1 or b2)and(b2 or b3)= 有一编码规则如下: 原码:A B C … X Y Z 密码:Z Y X … C B A 已知原码变量为x,则密码的表达式为 false false true chr(ord(‘A’)+ord(‘Z’)-ord(x)) Company Logo 判断题 Turbo Pascal程序首部的(input,output)可以省略。 (对,但标准pascal不能省略) 程序说明部分的各说明项次序不可颠倒。 (错) 程序中一行可以写多个语句,一个语句也可以写成多行。 (对) end上面的一行语句末尾可以不加“;”。 (对,end上面的语句也可以加“;”) Company Logo 计算题 已知a、b、c、d、e、f都是整型变量,它们的值分别为6、4、3、5、2、5,计算下列表达式:a+b*c*(d div e)-f (25) ((32)and(82))or not(21) (false) ((87)or(‘y’’x’))and((65)and not(52))or(21) (true) Company Logo 简答题 使用赋值语句的注意事项 “:=”有方向性,从右向左,左边必须是变量。 赋值号两边要赋值相容 一次只能给一个变量赋值 Read与readln语句的关系 Read读完最后一个数据后不换行,read中至少要有一个变量。 Readln语句最后一个变量读完数据后换行,其余数据将被忽略。Readln语句中可以没有变量,此时的作用是读入一个回车符。 Write语句的场宽有什么用途?实数类型只能使用双场宽吗? Write语句的场宽是用来限定输出格式的,分为标准场宽和自定义场宽两种,自定义场宽的优先级高于标准场宽。 实数类型一般采用双场宽,此时按小数形式输出。实数也可以使用单场宽,此时在限定宽度内按指数形式输出。 Company Logo 判断题 整型数据可以赋给实型变量。 (对) 自定义场宽分为标准场宽和指定场宽 (错,自定义场宽分为单场宽和双场宽) 输出语句必须带有输出项 (错,writeln后面可以不带输出项,表示换行) 整型和字符型变量可以共用一个输入语句 (错,整型和实型都不能与字符共用一个输入语句) Company Logo 阅读程序 Program pro1; Var a,b,s,d:integer; x,y,g:boolean; Begin a:=5;b:=6; s:=a+b; d:=a div b; x:=ab; y:=a=b; g:=ab; write(‘s=’,s:5); writeln(‘d=’,d:5); writeln(‘x=’,x); writeln(‘y=’,y,’g=’,g); writeln(b/a:5:5); End. 运行结果: s=□□□11 d= □□□ □ 0 x=true y=false g=false 1.20000 Company Logo Company LOGO
文档评论(0)