原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
NOIP2015普及组初赛试题及答案(Pascal)讲解
第二十一届全国青少年信息学奥林匹克联赛初赛
普及组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.
输入：Hello,my name is Lostmonkey.?
输出： ??
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
begin
文档评论（0）