高中信息技术 信息学奥赛_PASCAL语言枚举与子界类型课件.pptVIP

本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 * 枚举子界作业：P135 6.1 (today yesterday) 6.2 6.1 输入今天是星期几的序号，给今天和昨天赋成枚举值，并输出昨天是星期几的枚举值。 Program ex61(input,output); Type day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var today,yesterday: day; number: integer; Begin read(number); CASE number OF 0 : today:=Sunday; 1 : today:=Monday; 2 : today:=Tuesday; 3 : today:=Wednesday; 4 : today:=Thursday; 5 : today:=Friday; 6 : today:=Saturday End; If today=Sunday Then yesterday:=Saturday Else yesterday:=pred(today); write(‘ yesterday is ’); CASE yesterday OF Sunday : writeln(‘Sunday’); Monday : writeln(‘Monday’); Tuesday : writeln(‘Tuesday’); Wednesday : writeln(‘Wednesday’); Thursday : writeln(‘Thursday’); Friday : writeln(‘Friday’); Saturday : writeln(‘Saturday’) End End. 6.2 输入年、月、日，输出它是该年的第几天？ PROGRAM ex62 ( input , output ) ; VAR year :1..10000; month:1..12; day:1..31; days:28..31; s:1..366; i:integer; BEGIN read( year , month , day ) ; s:=day; for i:= 1 to month-1 do begin CASE i OF 1,3,5,7,8,10,12 : days:=31 ; 4,6,9,11 : days:=30 ; 2 : IF (year MOD 4=0) AND (year MOD 1000) OR (year MOD 400=0) THEN days:=29 ELSE days:=28 end; s:=s+days end; writeln( ‘ It is ’, s, ‘th’) END. 标准数据类型 实型、整型、字符型、布尔型