循环结构ppt课件.pptx

. 作业： 1、用Pascal语句实现：根据输入的考试分数判断是否及格，如果输入分数大于等于60则输出“passed”字样，否则输出“failed”字样。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 PROGRAM ex1; VAR mark: real; BEGIN writeln(‘Please input a number:); readln(mark); IF mark=60 THEN writeln(passed) ELSE writeln(failed); readln; END. PROGRAM ex1_1; VAR mark: integer; BEGIN writeln(‘Please input a number:); readln(mark); IF mark=60 THEN writeln(passed); IF mark60 THEN writeln(failed); readln; END. 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 作业：　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2、用Pascal语句实现：输入三角形的三条边，然后判断这个三角形是否是直角三角形。 PROGRAM ex2; VAR a,b,c: real; BEGIN writeln(‘Please enter the value of the three sides:’); readln(a,b,c); IF(a*a+b*b=c*c)OR(a*a+c*c=b*b)OR (b*b+c*c=a*a) THEN writeln(This is a right triangle ) ELSE writeln(This is not a right triangle ); readln; END. 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 作业：　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2、用Pascal语句实现：输入三角形的三条边，然后判断这个三角形是否是直角三角形。 PROGRAM ex2_2; VAR a,b,c: real; BEGIN writeln(‘Please enter the value of the three sides:’); readln(a,b,c); IF (a+bc) AND (a+cb) AND (b+ca) THEN BEGIN IF(a*a+b*b=c*c)OR(a*a+c*c=b*b)OR (b*b+c*c=a*a) THEN writeln(This is a right triangle. ) ELSE writeln(This is not a right triangle. ); END ELSE writeln(‘This can not constitute a triangle .’); readln; END. 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 循环结构算法的实现 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 循环结构 在程序的设计中，多次重复运行的结构称为循环结构。被多次重复执行的程序段称为循环体。除了循环体，循环结构还必须有控制循环何时终止的条件，循环结构总是根据某特定条件成立或不成立，从而决定是继续循环还是及时终止循环。 循环开始时的初始状态、循环体和循环终止条件三要素，构成了一个基本的循环过程。 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 循环结构 循环结构一般有以下两种： “当”型循环结构 、“直到”型循环结构。　　　　 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 循环结构 在Pascal语言中一般是用WHILE语句来实现的。　　WHILE语句的一般格式为： 　　WHILE条件 DO 语句； 　　在WHILE语句构成的循环中，当循环体由多个语句构成时，应该是一个复合语句。 名师归纳综合总结@欢迎下载#可编辑！！！！！ . 任务：　　用减法运算代替除法运算，求两个整数相除的商和余数。算法：　　从被除数中不