NOIP2015普及组初赛试题及答案(Pascal).doc

第二十一届全国青少年信息学奥林匹克联赛初赛 普及组Pascal语言试题 竞赛时间：201年10月1日14:30~16:30选手注意试题纸共有页，答题纸共有2页，满分100分。请在答题纸上作答，写在试题纸上一律无效。不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。 输出： 2. type point = record x: longint; y: longint; end; EX = record a: longint; b: longint; c: point; end; var e: EX; begin e.a := 1; e.b := 2; e.c.x := e.a + e.b; e.c.y := e.a * e.b; writeln(e.c.x, ,, e.c.y); end. 输出： 3. ?var str: string; i: longint; count: longint; begin count := 0; readln(str); for i := 1 to length(str) do begin if (str[i] = a) and (str[i] = z) then inc(count); end; writeln(It has , count, lowercases); end. 输入：NOI2016 will be held in Mian Yang.? 输出： ?? 4. type p_char = ^char; var c1, c2: char; p1, p2: p_char; procedure fun(a, b: p_char); begin a := b; inc(a^); end; begin c1 := A; c2 := a; p1 := @c1; p2 := @c2; fun(p1, p2); writeln(c1, c2); end. 输出： 完善程序 (前4空，每空3分，后4空，每空4分，共28分) 1 . (打印月历)输入月份m（），按一定格式打印2015年第m月的月历。（第三、四空2.5分，其余3分） 例如，2015年1月的月历打印效果如下（第一列为周日）： S M T W T F S 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 const dayNum: array [1..12] of longint = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var m, offset, i: longint; begin read(m); writeln(S, #9, M, #9, T, #9, W, #9, T, #9, F, #9, S); // #9 为 TAB 制表符 (1) ; for i := 1 to m - 1 do offset := (2) ; for i := 1 to offset do write(#9); for i := 1 to (3) do beg