- 1、本文档共34页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Pascal语言程序设计 第一部分 第一讲 Pascal语言基础一 程序的基本结构 程序的上机调试和运行 语言基础一 例1: 要将一张100元的大钞票,换成等值的10元、5元、2元、1元一张的小钞票,每次换成40张小钞票,每种至少1张。 如,有一种换法: 10元: 9 张 5元: 1 张 2元: 2 张 1元: 1 张 问:一共有多少种换法。 程序的上机调试和运行 program ex1; var x1,x2,x3,x4,n:integer; begin n:=0; for x1:=1 to 10 do for x2:=1 to 20 do for x3:=1 to 50 do for x4:=1 to 100 do if (10*x1+5*x2+2*x3+x4=100)and(x1+x2+x3+x4=40) then n:=n+1; writeln(n); end. 例2? 、 已知: s=1+1/2+1/3+…+1/n 求:使s的值大于10时最小的n。 var s : real; n : integer; begin s:=0; n:=0; while s=10 do begin n:=n+1; s:=s+1/n; end; writeln(n); end. 例3、编一个程序,从键盘输入一个真分数的分子和分母,输出它的小数形式,精确到小数点后1000位。 var n,m,r,q,i:integer; begin read(n,m); r:=n; write(0.); i:=1; while i=1000 do begin q:=10*r div m; r:=10*r mod m; write(q); i:=i+1; end; end. 上机调试运行步骤: 1、运行: Free Pascal 2、file?new :新建文件 3、compile?make :编译,找错误。 4、run ?run:运行 5、debug ? output(Alt+F5):察看结果 program 程序名;{可以省略}var 变量说明;begin 语句; 语句; …… 语句;end. Pascal程序的基本结构 var s : real; n : integer; begin s:=0; n:=0; while s=10 do begin n:=n+1; s:=s+1/n; end; writeln(n); end. 示例: 程序的基本结构 一、变量的定义说明: 二、Pascal数据类型(整型、实型) 三、基本语句(赋值语句、输入语句read、输出语句write) 四、算术运算符和算术表达式 五、标准函数(数值型函数) 语言基础一 一、变量的定义说明: 在程序中用到的所有变量必须事先定义。 格式: Var 变量表 : 变量类型; ┆ 变量表 : 变量类型; 如:输入3个整数,求这3个数的平均值。 Var a,b,c:integer; aver:real; 二、Pascal数据类型 Var a,b:integer; c:longint; Begin readln(a); readln(b); c:=a+b; writeln(c): End. 120 200 10000 20000 20000 30000 测试以下3组数据: 输入整数a和b,输出a+b的值。 整型、实型、(字符型和布尔型) 1、整型 类型 数值范围 占字节数 Byte 0 .. 255 1 Word 0..65535
您可能关注的文档
- 第18章节先进生产方式.ppt
- 27岁武汉平凡MM不平凡生活.doc
- 第18课时第二次世界大战及战后主要资本主义国家发展变化.ppt
- 2967602013版施工合同和合同管理新制度.doc
- 28个快速网页设计必备工具及生成器.doc
- 2WTO与中国企业国际竞争力.doc
- 2A320060施工合同的管理.docx
- 第18课马克思主义的诞生复习课件 [2].ppt
- 2万吨污水处理施工组织的设计.doc
- 2人力资源的管理程序2011.doc
- 江苏省灌云高级中学2023-2024学年高三上学期第一次月考地理试题含答案.docx
- 备战2024年高考物理一轮重难点复习 第十三章 近代物理.docx
- 江苏省高邮市一中2021-2022学年高三上学期第一次月考语文试题(原卷版).docx
- 江苏省华罗庚中学2023-2024学年高三上学期12月阶段检测数学试卷含答案.docx
- 江苏省海门中学2023-2024学年高三上学期第一次调研考试地理试题及答案.docx
- 备战2024年高考物理一轮重难点复习 第九章 恒定电流.docx
- 江苏省高邮市2023-2024学年高三下学期3月学情调研数学试题含答案.docx
- 备战2024年高考物理一轮重难点复习 实验十一:探究影响感应电流方向的因素.docx
- 备战2024年高考物理一轮重难点复习 实验三:验证平行四边形定则.docx
- 备战2024年高考物理一轮重难点复习 第十四章 光.docx
文档评论(0)