- 1、本文档共25页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
第二讲选择结构
程序的三种基本结构:顺序结构选择结构(if、case)循环结构(for、while、repeat)
例:输入三角形的三条边a,b,c,输出三角形的面积。(a,b,c是正整数100,满足三角形条件)一、顺序结构
vara,b,c:integer;p,s:real;beginreadln(a,b,c);p:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s:0:2);end.程序从第一句开始,依次顺序执行语句直到结束,中间无分支和循环,这种程序结构称为顺序结构
Readln(a,b,c)读入边长求p求s输出面积s流程图
改进:输入三角形的三条边a,b,c,如果能构成三角形则输出三角形的面积;如果不能构成三角形则输出提示信息”Noanswer”.
Readln(a,b,c)读入边长A,b,c能否构成三角形?求p,s,输出面积输出:‘Noanswer’YESNO
vara,b,c:integer;p,s:real;beginreadln(a,b,c);if(a+bc)and(a+cb)and(b+ca)thenbeginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s:0:2);endelsewriteln(‘Noanswer’);end.无“;”
选择结构:if语句
有两种形式的IF语句:
(1)if布尔表达式then语句;
(2)if布尔表达式then语句1else语句2;
IF语句是由一个布尔表达式和一个或两个供选择的操作序列组成。运行时根据布尔表达式的求值结果,选取其中之一的操作序列执行。当布尔表达式的值为TRUE,则执行then后面的语句,值为FALSE时有两种情况:
(1)什么也不做;(2)执行else后面的语句。注意:
1、else前面的语句不能有分号;2:如果语句部分是复合语句(多于一条语句),则必须用begin与end括起来。二、选择结构if/case布尔表达式:由关系运算符和逻辑运算符连接成的表达式(判断)。结果是布尔类型:TRUE或FALSE
例1:输入一个整数a,判断他的奇偶性。(是偶数输出“yes”,奇数输出“no”)。方法一:Vara:integer;Beginreadln(a);Ifamod2=0thenwriteln(‘yes’);ifamod20thenwriteln(‘no’);End.方法二:Vara:integer;Beginreadln(a);Ifamod2=0thenwriteln(‘yes’)elsewriteln(‘no’);End.无“;”
例2、计算下列函数,输入x,输出y的值(精确到小数点后两位小数)。
varx:real;beginreadln(x);ifx0thenwriteln(x*x:0:2)elseifx=0thenwriteln(0)elsewriteln(sqrt(x):0:2);end.IF语句的嵌套:在if语句中,如果then子句或else子句仍是一个if语句,则称为if语句的嵌套。varx:real;beginreadln(x);ifx0thenwriteln(x*x:0:2);ifx=0thenwriteln(0);ifx0thenwriteln(sqrt(x):0:2);end.
例3:已知方程:ax2+bx+c=0输入系数a,b,c,a0,输出方程的解(考虑各种情况)。保留两位小数。(1):如果无实数解输出:’noanswer’;(2):相同的实数解:输出一个即可。(3):两个不同的实数解:分别输出。如:输入:132输出:X1=-1.00X2=-2.00输入:21输出:X=-1.00
vara,b,c:integer;d,x1,x2:real;beginreadln(a,b,c);d:=b*b-4*a*c;ifd0then
您可能关注的文档
最近下载
- ZJ70-4500D20石油钻机使用说(2022年-2023年)明书.docx VIP
- 2023-2024学年人教版高中信息技术必修一第二章第一节《解决问题的一般过程和用计算机解决问题》教案.docx VIP
- GB7258—2022机动车运行安全技术条件修订内容解读29.pdf
- 医学装备使用安全培训.pptx
- Unit6单元整体设计人教版九年级英语全册.pdf
- 中考数学轨迹问题集锦69739.doc VIP
- 2024年河北省继续医学教育公共必修课参考答案.pdf VIP
- 驾校学员心理调节精编.ppt
- 自考06269工程应用英语(13-19)真题试卷.doc VIP
- 智能农业传感器监测和优化农作物生长环境.pptx
文档评论(0)