pascal语言程序设计教案分支结构编程练习.pptVIP

作业： 1、对照流程图在TurboPascl中编写程序 2、将程序及运行结果截图粘贴至ppt最后新插入的幻灯片上。 要求： 题目1：测试数据需要三个，任意的正数、负数、0. 题目2：测试数据需要三个，50、任意大于及小于50的数 （上节课作业：“网络课堂?作业上传下载? 找到自己班级文件夹? 05文件夹下”） 作业提交： “网络课堂?作业上传下载? 找到自己班级文件夹? 将此ppt改名为“学号姓名.ppt”上传 试一试：请写出程序流程图 从键盘读入一个数，判断它的正负。如果大于等于0输出“It is a zhengshu.”，如果小于0输出“It is a fushu.” 试一试：请写出程序流程图 从键盘读入一个数，判断它的正负。如果大于等于0输出“It is a zhengshu.”，如果小于0输出“It is a fushu.” * * 第五节 分支结构程序设计 现实生活中，事物的发展总是按照一定顺序来进行的，这种顺序反映到程序设计上，叫做顺序结构。 但是，有的时候，事物的发展却不是一帆风顺的，会有各种意外发生，在解决这类问题的时候，我们要尽量把各种情况都考虑进去，针对不同的情况采取不同的措施，这就出现了分支的情况。这种现象反映到程序设计上，就叫做分支结构。 2.行李托运问题 铁路托运：物品实重不超过50kg的，托运费按0.15元/kg计算，超过50kg的，超过部分按0.1元/kg加收运费，试用流程图表示计费过程。 开始 输入物品实重W W=50? 计算运费S=W×0.15+（W-50）×0.1 输出运费S 结束 是 否 Program exa01; Var w,s:real; Begin Writeln(‘please enter ? Kg:’); Readln(w); If w=50 Then s:=w*0.15 Else s:=w*0.15+(w-50)*0.1; Writeln(s); End. 计算运费S=W×0.15 开始 输入一个数N N=0？ 输出：“It is a zhengshu.” 结束 是 否 输出： “It is a fushu.” 练一练：超市自动计费程序 某超市为了促销，规定：购物不足50元的按原价付款，超过50元的， 超过部分按九折付款。请帮超市设计一个程序完成自动计费，写出 它的程序流程图。 开始 输入购物金额A A50？ 需付款额M=A 结束 是 否 需付款额为M=50+（A-50）*0.9 开始 输入一个数N N=0？ 输出：“It is a zhengshu.” 结束 是 否 输出： “It is a fushu.”