题简单pascal程序设计

《题简单pascal程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、【课题】简单PASCAL程序设计【教学目标】知识目标：了解程序解析法；掌握顺序结构程序；熟悉赋值语句、输入语句和输出语句；能力目标：尝试解析法解决问题；能灵活运用PASCAL提供的常用标准函数；掌握程序基本输入输出应用。情感目标：在分析中变换需求创造，体验迁移创新的思维过程，提升程序设计能力。【教学重点】基本输入输出语句，解析法设计程序。【教学难点】算术表达式运算。【教学方法】迁移法，讲解法，讨论法，对比法【课程类型】授新课【教学反思】：一、导入新课任务1：超市收银机，预先设置单价，当输入购物的数量后，显示出金额。任务2：输入一个三位数，将其倒序后输出

2、。这节课我们首先来学习PASCAL语言中的三个基本语句：赋值语句、读语句和写语句。二、新授：PASCAL语句两大类：赋值语句写语句基本语句过程语句读语句其它过程语句转移语句语句空语句复合语句begin……end构造语句条件语句如果语句情况语句当语句重复语句直到语句循环语句开域语句数据类型基本类型INTEGER；REAL；CHAR；BOOLEAN构造类型指针类型1、赋值语句赋值语句的格式为：标识符：=表达式；功能：先计算，后赋值。说明：标识符可以是变量名或者函数名，":="称为赋值号:=表达式标识符；请不要将赋值号“:=”和等号“=”混淆。例如：①con

3、stpi=3.14159；（不要用“:=”号）②r:=2.5；（不要用“=”号）s:=pi*sqr(r);c:=2*pr*r;在赋值语句中，表达式的类型与左端变量的类型赋值相容。一个特例就是，实型变量可以赋整型表达式。（因为整数型数据也属于实数型数据）2、写语句——输出语句要将程序运算的结果打印出来，就需要用到输出语句。作用是将计算机内存中的数据输出到屏幕或其它输出设备。3-1一般形式：Write（<输出表>）Writeln[（<输出表>）]其中输出表是一些有逗号分开的输出项，输出项可以常量、变量或表达式，或用引号括起来的字符串。若为变量，则输出变量的

4、值；若为表达式，则先计算表达式的值然后将该值输出；若为字符串，则输出字符本身。3-2例如：Write（’howdoyoudo’）(输出项是字符串常量)Write(2,3,4);（输出项是数值常量）Write(x,y)（输出项是变量）Write(sqr(x*y));（输出项是表达式）3-3．Write语句和writeln语句语法图：(输出项write，）；Writeln语句的作用是输出项表的最后一项后，结束当前输出行，即使得下一个Write（或Writeln）语句从下一个新行的开都输出。如write(a，b);write(c,d);write(e);12

5、468writeln(a,b);writeln(c，d);writeln(e);124683、读语句——输入语句2-1输入语句的作用在程序中如果需要赋值的变量较多，或变量的值经常变化，赋值语句就不太方便了。而用读语句可以读入多个变量的值，而且输入的值不必在程序中写出，是通过外部设备（一般为键盘）输入。2-2读语句的格式以及用法Read(<变量表>);Readln[(<变量名表>)];其中：变量表是一些由逗号分开的变量，也可以是单个变量。2-3．Read语句与Readln语句之间的区别Read语句是一个接一个地读数据，在执行完本Read语句（读完本语句中

6、变量所需的数据）后，下一个读语句仍然从该行中继续读数据。也就是说，不换到下一个数据行（除非本数据行中已无数据可读）。Readln语句（Readln是Readaline的缩写，即“读一行”）在完成该语句的最后一个变量值的输入以后，将结束包括这个数据值的输入行，使下一个Read语句（或Readln语句）从下一个新行开始输入数据。例如输入数据为：123456若执行输入语句：Read（a，b）；Read（c，d，）；Read（e）；执行结果是：a=1，b=2,c=3，d=4，e=5输入数据123456789101112若执行语句：Readln（a，b）；Rea

7、dln（c，d）；Readln（e）；结果：a=1，b=2,c=7，d=8，e=11Read（ch1，ch2，ch3）,字符型变量，在输入时，字符之间不应打空格，因为空格也是一个字符。正确的输入应该是：abc↙结果为：ch1=‘a’，ch2=‘b’，ch3=‘c’若输入：abc↙，则结果为ch1=‘a’，ch2=‘’，ch3=‘b’，空格作为字符赋给了ch2。输入过程中输入数据和变量之间必须满足赋值相容，并且除了字符以外，其他的数据项之间要用空格隔开。三、讲练：顺序结构程序设计[例]交换两个数的值Programexchange(input,output

8、);Vara,b,t:integer;beginwrite(‘a,b=:’);readln(a