Free Pascal 典型题目解析

Free Pascal 典型题目解析

解析人：704班 应炜 试题网址：www.sznoi.cn

1.键盘输入两数（整形），输出两数和。 输入：12 48 输出：60

var

a,b,c:longint; begin

read(a,b); c:=a+b; write(c); end.

2.求圆的周长和面积。 输入：10.0

输出：62.80 314.00 const

pi=3.1415; var

r,c,s:real; begin read(s); c:=2*r*pi; s:=r*r*pi;

write(c:0:2,’ ‘,s:0:2); //保留2位小数，并空一格输出 end.

3.计算1+2+3+??+n 的和 输入：100 输出：5050 var

CCF NOIP2011 初赛 1 普及组 Pascal

i,n,s:longint; begin read(n); s:=0;

for i:=1 to n do //注意，do后面没有封号 s:=s+i; write(s); end.

4.求两数较大者。 输入：15 8 输出：15

var

a,b:longint; begin

read(a,b);

if a>b then write(a); if a

5.求梯形或矩形（长方形）的面积 矩形： 输入：100 50 输出：5000 var

a,b,s:integer; begin

read(a,b); s:=a*b; write(s); end. 梯形： 输入：1 2 3 输出：4.50 var

a,b,h,s:real;

CCF NOIP2011 初赛 2 普及组 Pascal

begin

read(a,b,h); s:=(a+b)*h/2; write(s：0：2); end.

6.计算阶乘！。 输入：5 输出：120

var

n,i:longint; s:int64; begin

readln(n); s:=1;

for i:=2 to n do s:=s*i;

writeln(s); end.

7.求100－999中的水仙花数，（若三位数abc，abc＝a^3+b^3+c^3， 则称abc为水仙花数。如153，1^3+5^3+3^3=1+125+27=153，则153是水仙花数） var

a,b,c:integer; begin

for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do

if(a*100+b*10+c)=a*a*a+b*b*b+c*c*c then writeln(a*100+b*10+c) end. 8.典型练习题。

（1）计算12+22+32+42+??+1002的和 （2）输出1~100中所有100的整奇数 （3）求1000-9999中的水仙花数

CCF NOIP2011 初赛 3 普及组 Pascal

（4）计算立方体的体积

9.第十七届全国信息学奥林匹克竞赛初赛试题。

第十七届全国青少年信息学奥林匹克联赛初赛试题 （ 普及组 Pascal 语言 两小时完成 ）

●● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 ●●

一、单项选择题（共 20 题，每题 1.5 分，共计 30 分。每题有且仅有一个正确选项。）

1、在二进制下，1101001 + （ ） = 1110110。 A、1011

2、字符“0”的 ASCII 码为 48，则字符“9”的 ASCII 码为（ ）。 A、39

3、一片容量为 8GB 的 SD 卡能存储大约（ ）张大小为 2MB 的数码照片。 A、1600

4、摩尔定律（Moore's law）是由英特尔创始人之一戈登·摩尔（Gordon Moore）提出来的。根据摩尔定律，在过去几十年以及在可预测的未来几年，单块集成电路的集成度大约每（ ）个月翻一番。 A、1

5、无向完全图是图中每对顶点之间都恰有一条边的简单图。已知无向完全图 G 有 7 个顶点，则它共有（ ）条边。 A、7

6、寄存器是（ ）的重要组成部分。 A、硬盘

7、如果根结点的深度记为 1，则一棵恰有 2011 个叶结点的二叉树的深度最少是（ ）。 A、10

8、体育课的铃声响了，同学们都陆续地奔向操场，按老师的要求从高到矮站成一排。每个同

B、11

C、12

D、13

B、高速缓存

C、内存

D、中央处理器（CPU）

B、21

C、42

D、49

B、6

C、18

D、36

B、2000

C、4000

D、16000

B、57

C、120

D、视具体的计算机而定

B、1101

C、1010

D、1111

CCF NOIP2011 初赛 4 普及组 Pascal