作业 1 用Pascal语句实现 根据输入的考试分数判断是否及格 如果输入分数大于等于60则输出 passed 字样 否则输出 failed 字样 PROGRAMex1 VARmark real BEGINwriteln Pleaseinputanumber readln mark IFmark 60THENwriteln passed ELSEwriteln failed readln END PROGRAMex1 1 VARmark integer BEGINwriteln Pleaseinputanumber readln mark IFmark 60THENwriteln passed IFmark 60THENwriteln failed readln END 作业 2 用Pascal语句实现 输入三角形的三条边 然后判断这个三角形是否是直角三角形 PROGRAMex2 VARa b c real BEGINwriteln Pleaseenterthevalueofthethreesides 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 THENwriteln Thisisarighttriangle ELSEwriteln Thisisnotarighttriangle readln END 作业 2 用Pascal语句实现 输入三角形的三条边 然后判断这个三角形是否是直角三角形 PROGRAMex2 2 VARa b c real BEGINwriteln Pleaseenterthevalueofthethreesides readln a b c IF a b c AND a c b AND b c a THENBEGINIF a a b b c c OR a a c c b b OR b b c c a a THENwriteln Thisisarighttriangle ELSEwriteln Thisisnotarighttriangle ENDELSEwriteln Thiscannotconstituteatriangle readln END 循环结构算法的实现 循环结构 在程序的设计中 多次重复运行的结构称为循环结构 被多次重复执行的程序段称为循环体 除了循环体 循环结构还必须有控制循环何时终止的条件 循环结构总是根据某特定条件成立或不成立 从而决定是继续循环还是及时终止循环 循环开始时的初始状态 循环体和循环终止条件三要素 构成了一个基本的循环过程 循环结构 循环结构一般有以下两种 当 型循环结构 直到 型循环结构 循环结构 在Pascal语言中一般是用WHILE语句来实现的 WHILE语句的一般格式为 WHILEDO 在WHILE语句构成的循环中 当循环体由多个语句构成时 应该是一个复合语句 任务 用减法运算代替除法运算 求两个整数相除的商和余数 算法 从被除数中不断地减去除数 每当被除数减去一次除数 商就增加1 商的初值为0 一直减到被除数小于除数为止 这样就可以得到商和余数 1 输入被除数和除数 商取0 2 如果被除数大于或等于除数 则反复做以下两件事 a 商增加1 b 被除数减去除数 3 若 2 的条件不满足 则停止循环 输出商和这时的被除数 即余数 的值 4 流程图如图 图中t为商 d1和d2分别为被除数和除数 例 用减法运算代替除法运算 求两个整数相除的商和余数 PROGRAMDivAndMod VARdividen divisor t d1 d2 integer BEGINwriteln Inputdividenanddivisor readln dividen divisor t 0 商的初值为0 d1 dividen d1为被除数 d2 divisor d2为除数 WHILEd1 d2DO 当d1大于等于d2时执行循环 BEGINt t 1 商进1 d1 d1 d2 减去一个除数 END writeln dividen DIV divisor t 输出商 writeln dividen MOD divisor d1 输出余数 readln END 任务 输入若干个字符 以 作为输入结束的标志 计算输入的字符中字母 E 或 e 出现的次数 算法分析 不断输入字符 直到输入结束 可以采用循环结构 在循环中 每输入一个字符便进行判断是否是 E 或 e 如果是 则计数器计数 这样一直到输入的字符为 PROGRAMCountE VARch char i integer BEGINi 0 read ch WHILEch DO 循环到输入字符为 BEGINIF ch E OR ch e THENi i 1 对字母e或E计数 read ch 读入新字符 END writeln i i readln END 2 编写Pascal程序 以完成下列各项 1 打印图像y x2 3x 2的点 x y 的列表 x从0到4每次以0 5递增 2 打印从 开始的25个正偶数的平方 1 写出下列程序段所产生的输出 j 5 k 1 WHILEk jDOBEGINk k 1 j j 1 writeln j k END 作业 第一次循环K 0J 4J k 4 第二次循环K 1J 3J k 4 第三次循环K 2J 2J k 4 输出 444 感谢亲观看此幻灯片 此课件部分内容来源于网络 如有侵权请及时联系我们删除 谢谢配合