2022年第二章顺序结构程序设计 .pdf

《2022年第二章顺序结构程序设计 .pdf》由会员分享，可在线阅读，更多相关《2022年第二章顺序结构程序设计 .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第二章顺序结构程序设计19第二章顺序结构程序设计2.1 顺序结构程序2.1.1 顺序结构所有计算机程序都可以用四种基本结构表示。这就是顺序结构、选择结构、循环结构以及函数与过程结构。顺序结构是一组按书写顺序执行的一组语句。函数与过程结构使得可以通过简单的函数或过程调用执行一组复杂的语句。这四种结构对外界而言都有唯一的 一个入口和一个出口。养成使用这四种结构编程的习惯，可使你的程序结构清晰，可读性好，同时也方使调试和修改。我们通常把解题的方法和步骤称为算法。为了形象精确地描述算法，我们常常采用流程图描述方法，而PDL 框图与 N-S 框图常用于描述算法用，以后我们将同时介绍这两种框图描述方法，但

2、以N-S 框图为主。顺序结构程序是最简单而又最基本的一种结构。用PDL 框图及 N-S 框图描述如下：2.1.2 赋值语句赋值语句是PASCAL 中最常用的语句，它主要用于计算表达式的值，并将其赋给一个变量。赋值语句的一般格式为：:=；其中“:=”称为赋值运算符，它表示将运算符右侧表达式的结果送入运算符左侧变量相对应的存储单元中，作为其当前值。语法图如下：赋值语句使用注意以下几点：语句 1.语句 n语句 1语句 nPDL 框图描述顺序结构N-S 框图描述顺序结构变量标识符赋值语句函数标识符:=表达式;名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 5 页 -第二章顺序结构程序设计

3、20(1)表达式的类型必须是左端变量的类型能相容的。(2)赋值运算符“:=”与等号“=”具有完全不同的含义。例如 2.1：找出下面程序的错误programrzy3;vara:integer;b:real;c:char;d:string;e:boolean;beginb:=5;a:=b+1;a:=2*16384e:=(50);c:=I;d:=c+am a boy;c:=d;end.说明：字符串型变量(string)可相容字符型（char）数据，实数型变量(real)可相容整型(integer)数据,反过来则不可以。如上例：b+1 结果为实型，不能送入整型变量a 中。2.2 顺序结构程序设计例 2

4、.2我们用“1”代表牛奶，用“2”代表蜜糖，现有三个杯，其中一个杯装有牛奶，另一杯装有蜜糖，剩下的一个杯为空杯，试编程模拟交换牛奶和蜜糖两杯内容的过程。思路：借助空杯实现交换，设a:=1;b:=2;c:=0;交换图示如下：N-S 流程图及程序如下：programrzy4;vara,b,c:integer;beginwriteln(a b c);a:=1;b:=2;c:=0;writeln(a,b,c);c:=a;writeln(a,b,c);a:=b;writeln(a,b,c);b:=c:writeln(a,b,c);c:=0;writeln(a,b,c);end.开始赋予 a为 1，b 为

5、 2，c为 0输出开始状态，即a,b,c的值把 a杯牛奶送入c 杯显示当前a,b,c值把 b杯蜜糖送入a 杯显示显示当前a,b,c 值把 c杯牛奶送入b 杯显示显示当前a,b,c 值清空 c 杯显示当前 a,b,c值结束运行结果：a b c1 2 01 2 12 2 12 1 12 1 0错！为什么？错！为什么？cabN-S 框图描述错！为什么？名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 5 页 -第二章顺序结构程序设计21例 2.3已知甲、已两港间的水路为S 千米，一只船从甲港开往乙港，顺水T1 小时到达，从乙港返回甲港，逆水T2 小时到达，求船速VB 和水速 VW。编程实

6、现从键盘中输入S、T1 和 T2 则可打印出船速和水速。思路：从题意注意到有下面基本数量关系顺水速度=船速+水速逆水速度=船速-水速因此可建立下面数学模型顺水速度=水路/顺水时间即 VT1=S/T1逆水速度=水路/逆水时间即 VT2=S/T2船速=（顺水速度+逆水速度）/2 即 VB=（S/T1+S/T2）/2水速=（顺水速度-逆水速度）/2即 VW=（S/T1-S/T2）/2程序如下：program rzy5;vars,t1,t2,vb,vw:real;beginwrite(s,t1,t2=);readln(s,t1,t2);vb:=(s/t1+s/t2)/2;vw:=(s/t1-s/t2)

7、/2;writeln(vb=,vb:8:2);writeln(vw=,vw:8:2);end.问题：从运行时a,b,c 的值发现：执行过程中会多一杯牛奶或蜜糖，如1 2 1，您知到为什么会这样吗？原因：PASCAL 中对变量的操作是：“取数用复制，存数用替换”因此程序中，c:=a;的操作是：从a 中复制数“1”到 c 中，结果 c 中值为 1，而 a 中值仍然为1，结果多一杯牛奶了！改进后运行结果a b c1 2 00 2 12 0 12 1 0你能进一步修改程序，使模拟过程更加合理，并要求输出左边的运行结果吗？看谁做得最快！开始提示输入数据输入水路及顺逆水时间计算船速及水速输出船速及水速结束

8、运行输入数据：s,t1,t2=208813运行输出结果：vb=21.00vw=5.00再运行输入数据：s,t1,t2=3001015请记录运行输出结果：vb=vw=N-S 框图描述也可逐句提示输入：write(s=);readln(s);write(t1=);readln(t1);write(t2=);readln(t2);名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 5 页 -第二章顺序结构程序设计22例 2.4 猜数游戏，运行程序时，计算机会随机产生一个1 到 10 间的数，然后您输入一个数，您猜对了，计算机会显示“right!computer number is X”，否

9、则显示“wrong!computernumber is X”。其中 X 为计算机随机产生的数。思路：主要使用到计算机提供的随机函数random(x),产生 0,x-1 之间的随机数，再与输入的数比较而决定不同的输出。randomize 过程可使每次运行程序产生的随机数更加随机。programrzy6;varc,p:integer;name:string;b:boolean;beginname:=wrong!right!;randomize;c:=random(11);write(your guessnumber:);readln(p);b:=(c=p);writeln(copy(name,1+

10、ord(b)*6,6),computer number is ,c);end.程序理解：假设计算机随机产生数为3，即 c 为 3，读者输入猜数为4，即 p 为 4，则 b:=(3=4);故 b 值 为 false,则 copy(name,1+ord(b)*6,6)简 化 为 copy(name,1+ord(false)*6,6),因 为ord(false)的值为 0，则 copy(wrong!right!,1,6),结果为wrong!。试分析输入猜数为3 时，又如何。有关函数random,copy,ord 请参阅第一章或Turbo Pascal帮助说明。例 2.5编程实现从键盘中输入一个字符，

11、打印输出该字符的ASCII 码值。思路：程序很简单，只须用ord(x)求出字符在ASCII 字符集中的序号即可。程序如下：program rzy7;varch:char;beginwrite(enter a charater:);readln(ch);开始把输出信息存入变量name 中产生一个随机数存入变量c 中提示输入猜测数输入一个猜测数并存入p 中判断两数是否相同，结果b 中存入了 true 或 false用 copy 函数从 name 中复制相应信息输出。结束运行程序：enter a charater:A输出结果：A ASCII is 65N-S 框图描述名师资料总结-精品资料欢迎下载-

12、名师精心整理-第 4 页，共 5 页 -第二章顺序结构程序设计23writeln(ch,ASCII is,ord(ch);end.本章练习练习 1：编程实现输入三角形的底边和高，求三角形的面积。（提示：三角形面积=(底*高)/2）练习 2：编程用 writeln 语句及“*”号输出你的姓名。例如“王平”，输出如下：*练习 3：问题：有两支蜡烛，燃烧速度相同，第一支n 小时燃尽，第二支m 小时燃尽，其中 nm。如果同时点燃这两支蜡烛，在点燃多少小时以后，第一支蜡烛的长度是第二支蜡烛的 k 倍。要求编程实现从键盘输入不同的m,n,k 值，则输出应点燃时间t。提示：(1)设燃烧速度为L(n*L-t*

13、L)=k*(m*L-t*L)即t=(k*m-n)/(k-1)(2)设 n,m,k,t 为 real 型。(3)试测试数据n,m,k 对应 433正确结果t 为 2.5000000000E+00练习 4：一人骑自行车从甲地到乙地，速度是9 千米/小时，如果车速改为12 千米/小时，结果就会比原速早到半小时。问甲乙两地之间的距离是多少千米？提示：（1）设甲乙距离为S,原速成为v1=9 千米/小时，提速后v2=12 千米/小时，相差时间为 dt=0.5 小时。（2）有 s/v1-s/v2=dt即有 s=dt/(1/v1-1/v2)（3）可设 s,v1,v2,dt 为实数型real;（4）测试数据v1,v2,dt 分别为 9120.5,输出正确结果：s=18:00。DCBA第一支第二支开始停止燃烧时间tAB=k*CD名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 5 页 -