if语句练习1.pptVIP

if语句练习1 if语句练习2 流程图：判断闰年 程序：判断瑞年 PROGRAM leapyear(input,output); VAR y,n:integer; BEGIN write(input a year:); readln(y); IF (y MOD 4=0) AND (y MOD 1000) THEN writeln(y,’ is a leap year.’) ELSE IF y MOD 400=0 THEN writeln(y,’ is a leap year.’) ELSE writeln(y,’ is not a leap year.’) readln; END. 情况语句（case语句） 格式：case 表达式 of 常量1：语句1； 常量2：语句2； … end； case语句的逻辑含义 case语句示例 例：用情况语句计算分段函数 a+bx+cx2 0.5≤x＜1.5 (asin(bx))2 1.5≤x＜2.5 sqrt(a+bx2) 2.5≤x＜3.5 aln|b+c/x| 3.5≤x＜4.5 程序示例case 程序示例case Program caseformat( input, output); var a, b, c, x, y: real; begin write(‘input a,b,c, x :’); readln(a, b, c, x); if (x0.5) or (x4.5) then begin writeln(‘x is not in the range.’); exit; end; case trunc(x+0.5) of 1: y:=a+b*x+c*sqr(x); 2: y:=sqr(a*sin(b*x)); 3: y:=sqrt(a+b*sqr(x)); 4: y:=a*ln(abs(b+c/x)) end; writeln(‘x=‘,x:4:2); writeln(‘y=‘,y:8:4); readln; end. 作业 3.6 * * True False x0？ x5？ s:=0 s:=1 (a) s:=2 True False x0？ x5？ s:=1 s:=2 (b) s:=0 True True False False x0？ x5？ s:=0 s:=1 x0？ x5？ s:=0 s:=1 (c) (d) No Yes No No No Yes Yes False True 开始 y mod 4=0 且 y mod 1000? 输出y是闰年 结束 读取一个年号y y mod 400=0? True 输出y不是闰年 False CASE 表达式 END 语句 OF 常量 : ; , 情况语句的语法： … 表达式的值等于常量1？ Yes No 计算表达式的值 语句1 表达式的值等于常量2？ Yes 语句2 No 表达式的值等于常量n？ No Yes 语句n Program ex2(input, output); var op: char; a, b, s: integer; begin read(a, op, b); case op of +: s:=a+b; ‘-: s:=a-b; *: s:=a*b; /: s:=a div b end; writeln(a, op, b, =, s) end. 例：根据所输入的操作，做相应的计算。 Y= 已知分段函数： Program caseformat( input, output); var a, b, c, x, y: real; begin write(‘input a,b,c, x :’); readln(a, b, c, x); if (x=0.5) and (x4.5) then begin case trunc(x+0.5) of 1: y:=a+b*x+c*sq