end.
例4、从键盘上读入年份和月份,输出该月有多少天。 (这个题目要上机)
var year,month,day:integer; runnian:boolean;
begin readln(year,month); case month of{根据月份来划分情况} 1,3,5,7,8,10,12: day:=31; 4,6,9,11: day:=30; 2:begin{处理2月的情况}
Pascal运算的优先顺序:
① 括号
② 函数
var y:integer;
begin readln(y);
③ NOT ④ *、/、DIV、MOD、AND ⑤ +、-、OR ⑥ >、<、>=、<=、<>、=
if ((y mod 4=0) and (y mod 100<>0)) or (y mod 400=0)
var
s:integer;
ch:char;
begin
readln(s);
case s div 10 of {根据s div 10的值来划分情况}
10,9:ch:='A'; 8 :ch:='B'; 7,6 :ch:='C'; 5,4,3,2,1,0:ch:='D'; end; writeln('deng ji shi:',ch) end.
接转到下一语句行往下执行。 格式2:if <条件> then <语句1> else <语句2>; 功能:若条件成立,则执行语句,然后再执行下一语句
行;若条件不成立,则执行语句2,然后再执行下一语句行。
没有else