怎么在电脑上做课件

问题一：请问如何用电脑做课件 做课件做什么？

问题二：怎么用电脑做课件 首先你得有office

然后，选择一个位置，右键～新建～PPT（省略了一部分，要带有这三个字母），然后打开，新建幻灯片，就可以开始制作了。如何制作有很多的方法，我就不说了，自己百度

问题三：怎么在电脑里找到ppt做课件。。。。急需！！！! 5分 电脑里面安装了OFFICE且有Powerpoint的话，在桌面任意空白区域，点右键→新建→Microsfot Power Point演示文档即揣。

问题四：在电脑上怎么制作幻灯片？ 利用PowerPoint 2000轻松制作课件

多媒体课件已经越来越广泛地应用在现代化教育中，许多教师可能觉得课件制作的难度比较高。其实PowerPoint 2000是一个很方便的课件制作软件，方便大家制作出集文字、图表、图像、声音及视频剪辑为一体的演示幻灯片。由于PowerPoint还提供了所见即所得的幻灯片放映效果，所以可以很容易地在屏幕上编辑演示文稿。本文以实例介绍如何用Power Point来制作幻灯片。

基础篇―了解新建演示文稿的方法

单击“开始”菜单，点击“程序”中的PowerPoint 2000应用程序即可启动PowerPoint2000。这时我们就会看到（如图1）新建演示文稿的选择界面。这里提供了新建演示文稿的三种方法：内容提示向导、设计模板、空演示文稿。这三种生成演示文稿的方法可以说各有千秋，下面让大家了解用这些方法新建演示文稿的步骤。

1．内容提示向导

利用内容提示向导的提示 *** 作可引导你一步一步地快速创建一整套专业化演示文稿。这是制作一个新演示文稿最容易的方法。选择“内容提示向导”，你只需要选定一个演示文稿的主题，然后按照向导中的提示 *** 作，PowerPoint会打开一份示例演示文稿。您可以在示例文本中添加自己的文本或。如果该示例演示文稿不能符合您的要求，也可以很方便地添加或删除幻灯片，添加或所需的其他项目。完成后，请单击“文件”菜单上的“保存”，命名演示文稿，然后单击“保存”。 图1

2．设计模板

选择“设计模板”，选择好所需的模板，您就可以在预先设计好的基本框架上添加自己的文本或。我们也可以自定义各幻灯片的版式，在各个幻灯片上键入标题和任意内容。完成后，请单击“文件”菜单上的“保存”，命名演示文稿，然后单击“保存”。

3．空演示文稿

如果您想按照自己的思路创建演示文稿，那么就选择空演示文稿。空演示文稿允许您从一个空白页面来展开创意，PowerPoint将不提供任何设计元素或建议。选择空演示文稿后，为标题幻灯片选择所需的版式。然后在标题幻灯片上键入标题以及要添加的任意内容，标题幻灯片完成后，单击“格式”工具栏上的“常规任务”，然后单击“新幻灯片”，对每个新幻灯片重复以上步骤，按需要修改演示文稿。完成后，单击“文件”菜单上的“保存”，命名演示文稿，然后单击“保存”。

问题五：电脑桌面上怎么安装做ppt的软件 做PPT的办公软件软件有OFFICE　和WPS，不过现在在网上搜到的全是WPS了。wps挺好用的。

问题六：怎么在电脑里做课件，像老师的一样 10分 教程：1，新建PPT文件安装好Office PowerPoint软件后，就可以打开程序创建PPT文件了。打开PPT方式有几种，可以按照如图所示的打开，点击“开始”-“所有程序”-Microsoft Office-Microsoft PowerPoint 2010。在桌面上就会出现新建的文件了。

2，可以给文件重命名，如当我想起你MVpptx。打开文件。点击“开始”-“新建幻灯片”，然后在下拉“Office 主题”菜单中选择需要的一个幻灯片，我这里选择空白幻灯片，比较好编辑些。

3，的插入 *** 作步骤：点击“插入”，出现的下拉菜单中选择“”，d出插入的窗口，浏览找到相应的并将其导入。如图所示。插入成功后，显示在相应幻灯片上，可以点选后，通过鼠标拖动边上的小方点或小圆点，来调整的大小。

4，文字的插入 *** 作步骤：点击“插入”，在下拉菜单中选择“文本框”里的“横排文本框”或“垂直文本框”。鼠标在幻灯片上某一位置点击一下，就会出现输入框了。在里面输出相应文字。选中文字会在旁边出现一个文字设置栏，如图所示，可以设置文字的颜色、字体、大小、等等。

5，幻灯片的切换可以设置幻灯片与幻灯片期间的转换/切换效果， *** 作步骤：点击“切换”，如图所示，在下拉菜单中的效果设置处，点击向下的箭头，就会下拉 出很多的切换效果样式来。选择一个喜欢的样式，选择后会自动预览一次。在“效果选项”下拉菜单中，可以对选择的切换效果进一下设置。

6，ffice PowerPoint2010版幻灯片切换效果，有很多：细微型：切出 淡出 推进 擦除 分割 显示 随机线条 形状 揭开 覆盖 闪光；华丽型：溶解 棋盘 百叶窗 时钟 涟漪 蜂巢 闪耀 涡流 啐片 切换 翻转 库 立方体 门 框 缩放；动态内容：平移 摩天轮 传送带 旋转 窗口 轨道 飞过。

7，在切换过程中，还可以设置一个声音效果哦。点击初始为“无声音”的向下三角，下拉出多种声音如爆炸、抽气、打字机、风铃、等等。点击选择的时候，会发出相应的声音让你试听一次。

8，动画特效动画特效就是可以设置某一元件的进场、出场、强调、路径等动态效果。点击“动画”，下拉菜单中选择“动画窗格”，可PPT界面右边会出现一个 动画窗格的编辑栏。在幻灯片上选中某一元件如、文字等，再点击“动画”-“添加动画”的倒三角，下拉出现各种特效。选择一个喜欢的特效即可。如图所 示。

9， Office PowerPoint2010版支持制作动态特效：百叶窗 擦除 出现 飞入 盒状 阶梯状 菱形 轮子 劈裂 棋盘 切入 十字形扩展 随机线条 向内溶解 楔入 圆形扩展 淡出 缩放 旋转 展开 翻转式由远及近 回旋 基本缩放 上浮 升起 下浮 中心旋转 d跳 飞旋 浮动 基本旋转 螺旋飞入 曲线向上 玩具风车 字幕式 放大/缩小 填充颜色 透明 陀螺旋 线条颜色 变淡 补色 不饱和 对比色 对象颜色 加深 脉冲 彩色脉冲 中跷板 闪烁

10， 保存PPT保存PPT有几种方式，可以直接点击PPT界面左上角P旁边的“保存”按键，即马上保存。或者点击“文件”下拉菜单中，左上方的“保存”或“另存为”。就不废话了，大家应该都知道。

11，

PPT转视频如果将制作好的PPT转换为视频文件，可以上传网络，上传手机，刻录光盘等等，用途很多，方便观看。

如图所示，基本 *** 作为：①添加PPT文件，PPT版本不限，>>

问题七：教学电脑如何播放家中电脑做好的ppt 拷贝到U盘上、通过QQ、邮箱等发送到其他电脑上,都可以播放。

一般要考虑3点

1、将演示文稿另存为Powerpoint放映，即PPS格式，如果是2007或2010制作的，则要保存为Powerpoint97-2003放映类型，这样，不论对方电脑安装怎样版本的Office，都可以正常播放，并且不会打开Powerpoint进入编辑状态，而是直接播放。

2、外链的文件、视频、声音等需要拷贝到与PPS放映文稿相同的目录中，一并复制到对方的电脑中。

3、如果使用了系统之外的字体，可以在另存的时候，在保存选项中嵌入，如果不嵌入，则需要拷贝出来，与PPS放映文稿一同复制到对方电脑中，然后还需要复制到对方电脑的系统字库中。

这样，基本就能保证一切OK了。

问题八：怎样在电脑上做ppt 使用iWork打开幻灯片，另存为 PowerPoint格式（即后辍名为PPT或者PPTX格式）即可。iWork 可以另存Microsoft office格式的文件，以保证共享和兼容。・ 在 iWork 中打开 Microsoft Word、Excel 和 PowerPoint 文件。・ 将您的 iWork 文档另存为Word、Excel 或 PowerPoint 文件。

问题九：如何在电脑上做课件 用ppt或者authorware都可以

问题十：怎样在电脑上看PPT 要有ppt这个软件，power point

一般offices都有的 offices03 07都有

第十三届全国青少年信息学奥林匹克联赛初赛试题

（ 普及组 Pascal 语言 二小时完成）

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

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

1． 在以下各项中，（ ）不是CPU的组成部分。

A．控制器 B．运算器 C．寄存器 D．主板

2．在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）为主。

A．二叉树 B．多叉树 C．哈希表 D．二维表

3．在下列各项中，只有（ ）不是计算机存储容量的常用单位。

A．Byte B．KB C．UB D．TB

4．ASCII码的含义是（ ）。

A．二→十进制转换码 B．美国信息交换标准代码

C．数字的二进制编码 D．计算机可处理字符的唯一编码

5．一个完整的计算机系统应包括（ ）。

A．系统硬件和系统软件 B．硬件系统和软件系统

C．主机和外部设备 D．主机、键盘、显示器和辅助存储器

6．IT的含义是（ ）。

A．通信技术 B．信息技术 C．网络技术 D．信息学

7．LAN的含义是（ ）。

A．因特网 B．局域网 C．广域网 D．城域网

8．冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面4个数据如果都是输入的，由于 *** 作错误使总分不等于三科成绩之和，就会产生矛盾。下面关于冗余数据的说法中，正确的是（ ）。

A．应该在数据库中消除一切冗余数据

B．用高级语言编写的数据处理系统，通常比用关系数据库编写的系统更容易消除冗余数据

C．为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验

D．做相容性检验会降低效率，可以不理睬数据库中的冗余数据

9．在下列各软件，不属于NOIP竞赛（复赛）推荐使用的语言环境有（ ）。

A．gcc B．g++ C．Turbo C D．Free Pascal

10．以下断电后仍能保存数据的有（ ）。

A．硬盘 B．高速缓存 C．显存 D．RAM

11．在下列关于计算机语言的说法中，正确的有（ ）。

A．高级语言比汇编语言更高级，是因为它的程序的运行效率更高

B．随着Pascal、C等高级语言的出现，机器语言和汇编语言已经退出了历史舞台

C．高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上

D．C是一种面向对象的高级计算机语言

12．近20年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（ ）。

A．在1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间

B．和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些

C．对于较复杂的问题，用递归方式编程一般比非递归方式更难一些

D．对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x));”就是一种递归调用

13．一个无法靠自身的控制终止的循环成为“死循环”，例如，在C语言程序中，语句“while(1) printf(“”);”就是一个死循环，运行时它将无休止地打印号。下面关于死循环的说法中，只有（ ）是正确的。

A．不存在一种算法，对任何一个程序及相应的输入数据，都可以判断是否会出现死循环，因而，任何编译系统都不做死循环检查

B．有些编译系统可以检测出死循环

C．死循环属于语法错误，既然编译系统能检查各种语法错误，当然也应该能检查出死循环

D．死循环与多进程中出现的“死锁”差不多，而死锁是可以检测的，因而，死循环也可以检测的

14．在Pascal语言中，表达式 （23 or 2 xor 5）的值是（ ）。

A．18 B．1 C．23 D．32

15．在Pascal语言中，判断整数a等于0或b等于0或c等于0的正确的条件表达式是（ ）。

A．not ((a<>0) or (b<>0) or (c<>0))

B．not ((a<>0) and (b<>0) and (c<>0))

C．not ((a=0) and (b=0)) or (c<>0)

D．(a=0) and (b=0) and (c=0)

16．地面上有标号为A、B、C的三根柱，在A柱上放有10个直径相同中间有孔的圆盘，从上到下依次编号为1，2，3……，将A柱上的部分盘子经过B柱移入C柱，也可以在B柱上暂存。如果B柱上的 *** 作记录为“进、进、出、进、进、出、出、进、进、出、进、出、出”。那么，在C柱上，从下到上的编号为（ ）。

A．2 4 3 6 5 7 B．2 4 1 2 5 7 C．2 4 3 1 7 6 D．2 4 3 6 7 5

17．与十进制数1770对应的八进制数是（ ）。

A．3350 B．3351 C．3352 D．3540

18．设A=B=True，C=D=False，一下逻辑运算表达式值为假的有（ ）。

A．(「A∧B)∨(C∧D∨A) B．「(((A∧B)∨C)∧D)

C．A∧(B∨C∨D)∨D D．(A∧(D∨C))∧B

19．(2070)16 + (34)8 的结果是（ ）。

A．（8332）10 B．（208A）16 C．（100000000110）2 D．(20212)8

20．已知7个节点的二叉树的先根遍历是1 2 4 5 6 3 7（数字为节点的编号，以下同），中根遍历是4 2 6 5 1 7 3，则该二叉树的后根遍历是（ ）。

A．4 6 5 2 7 3 1 B．4 6 5 2 1 3 7 C．4 2 3 1 5 4 7 D．4 6 5 3 1 7 2

二、问题求解（共2题，每题5分，共计10分）。

1、（子集划分）将n个数（1，2，…，n）划分成r个子集。每个数都恰好属于一个子集，任何两个不同的子集没有共同的数，也没有空集。将不同划分方法的总数记为S(n,r)。例如，S(4,2)=7，这7种不同的划分方法依次为{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。当n=6，r=3时，S(6,3)=______________。

（提示：先固定一个数，对于其余的5个数考虑S(5,3)与S(5,2)，再分这两种情况对原固定的数进行分析。）

2、（最短路线）某城市的街道是一个很规整的矩形网络（见下图），有7条南北向的纵街，5条东西向的横街。现要从西南角的A走到东北角的B，最短的走法共有多少种？___________

(图画不了)

三、阅读程序写结果（共4题，每题8分，共计32分。）

1、program j301;

var i,a,b,c,x,y:integer;

p:array[04] of integer;

begin

y:=20;

for i:=0 to 4 do read(p);

readln;

a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;

b:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);

c:=p[0]p[1] div p[2];

x:=a+b-p[(p[3]+3) mod 4];

if (x>10)

then y:=y+(b100-a) div (p[p[4] mod 3]5)

else

y:=y+20+(b100-c) div (p[p[4] mod 3]5);

writeln(x,',',y);

end

{注：本例中，给定的输入数据可以避免分母为0或数组元素下表越界。}

输入：6 6 5 5 3 输出：______________________

2、program j302;

var a,b:integer;

var x,y:^integer;

procedure fun(a,b:integer);

var k:integer;

begin k:=a; a:=b; b:=k; end;

begin

a:=3; b:=6;

x:=@a; y:=@b;

fun(x^,y^);

writeln(a,',',b);

end

输出：_______________________________

3、program j303;

var a1:array[150] of integer;

var i,j,t,t2,n,n2:integer;

begin

n:=50;

for i:=1 to n do a1:=0;

n2:=round(sqrt(n));

for i:=2 to n2 do

if (a1=0) then

begin

t2:=n div i;

for j:=2 to t2 do a1[ij]:=1;

end;

t:=0;

for i:=2 to n do

if (a1=0) then

begin

write(i:4); inc(t);

if (t mod 10=0) then writeln;

end;

writeln;

end

输出：_____________________________________________

_____________________________________________

4、Program j304;

Type str1=string[100];

Str2=string[200];

Var

S1:str1; s2:str2;

Function isalpha(c:char):Boolean;

Var i:integer;

Begin

i:=ord(c);

if ((i>=65) and (i<=90)) or ((i>=97) and (i<=122)) then

isalpha:=true

else isalpha:=false;

end;

function isdigit(c:char):Boolean;

var i:integer;

begin

i:=ord(c); if (i>=48) and (i<=57) then isdigit:=true

else isdigit:=false;

end;

procedure expand(s1:str1;var s2:str2);

var i,j:integer; a,b,c:char;

begin

j:=1; c:=char(1); i:=0;

while (i<=ord(s1[0])) do

begin inc(i); c:=s1;

if c='-' then begin {1}

a:=s1[i-1]; b:=s1[i+1];

if (isalpha(a) and isalpha(b)) or (isdigit(a) and isdigit(b)) then begin

dec(j);

while (ord(upcase(a))<ord(upcase(s1[i+1]))) do

begin

s2[j]:=a; inc(j); inc(a); end;

end

else

begin s2[j]:=c; inc(j); end;

end{1}

else begin s2[j]:=c; inc(j); end; end; s2[0]:=char(j-2); end;

begin readln(s1); expand(s1,s2); writeln(s2);

end

输入：wer2345d-h454-82qqq 输出：__________________________

四、完善程序（前4空，每空25分，后6空，每空3分，共28分）。

1、（求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1终止程序。

请将程序补充完整。

Program j401;

type str1=string[100];

var line:str1; kz:integer;

procedure reverse(var s:str1);

var I,j:integer; t:char;

begin

i:=1; j:=length(s);

while (i<j) do begin

t:=s; s:=s[j]; s[j]:=t;

; ;

end;

end;

begin

writeln(‘continue -1 for end’);

readln(kz);

while ( )do

begin

readln(line);

;

writeln(line);

writeln(‘continue -1 for end’);

readln(kz);

end;

end

2 2 3 3

2 -1 1 3

4 1 1 5

4 4 5 5

2、（棋盘覆盖问题）在一个2k×2 k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。

下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。

(图画不了郁闷)

Program j402;

type arr1=array[165] of integer;

arr2=array[165] of arr1;

var board:arr2; tile:integer; size,dr,dc:integer;

procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer);

var t,s:integer;

begin

if (size=1) then ;

t:=tile; inc(tile);

s:=size div 2;

if then chessboard(tr,tc,dr,dc,s) else begin

board[tr+s-1]:=t;

end;

if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)

else begin board[tr+s-1][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin

board[tr+s][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)

else begin board[tr+s][tc+s]:=t;

; end;

end;

procedure prt1(n:integer);

var I,j:integer;

begin

for I:=1 to n do begin

for j:=1 to n do write(board[j]:3);

writeln;

end;

end;

begin

writeln(‘input size(4/8/16/64):’);

readln(size); writeln(‘input the position of special block(x,y):’);

readln(dr,dc); board[dr][dc]:=-1;

tile:=1; chessboard(1,1,dr,dc,size); prt1(size);

end

NOIP2007年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题15分）

题号 1 2 3 4 5 6 7 8 9 10

答案 D D C B B B B C C A

题号 11 12 13 14 15 16 17 18 19 20

答案 C A A A B D C D A A

二、问题求解：（每题 5分）

1．90 2．210

三、阅读程序写结果

1 15, 46（对1个数给4分，无逗号扣1分）

2 3, 6

3 2 3 5 7 11 13 17 19 23 29

31 37 41 43 47

4 wer2345defgh45456782qqq

四、完善程序(前4空（①--④），每空25分，后6空（⑤--⑩），每空3分)

1．

① inc(i) 或i:=i+1

② dec(j) 或 j:=j-1

③ kz<>-1

④ reverse(line)

2

⑤ exit

⑥ (dr<tr+s)and(dc<tc+s)

⑦ chessboard(tr,tc,tr+s-1,tc+s-1,s)

⑧ chessboard(tr,tc+s,tr+s-1,tc+s,s)

⑨ chessboard(tr+s,tc,tr+s,tc+s-1,s)

⑩ chessboard(tr+s,tc+s,tr+s,tc+s,s)

貌似我考过了 不难

希望对你能有所帮助。

int t=++tile这个tile是什么定义？通篇都没有见到啊~

Board[tr+s-1][tc+s-1]=t;Board是什么函数，也没见到~

能不能把整个程序的语言放上来呢？

另外，我想说，用L型覆盖的话，每次四等分后，不一定能覆盖掉其中一块哦，你的L型是什么样的呢？3-1还是2-1？如果是3-1，那意味着边长是4的倍数才能简单覆盖哦~

看得我眼晕目前看到一个小问题

//覆盖左上角棋盘

if(dr<tr+s && dc<tc+s)

//特殊方格在此棋盘中

ChessBoard(tr,tc,dr,dc,s);

else{//此棋盘中无特殊方格,用T号L型骨牌覆盖右下角

Board[tr+s-1][tc+s-1]=t;

//覆盖其余方格 <------------------------------------下面那句话有点问题啊，你以左上角最右下角的那个格子为特殊格再次chessboard了

ChessBoard(tr,tc,tr+s-1,tc+s-1,s);}

NOIP2007第十三届普及组初赛试题

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

1． 在以下各项中，（ ）不是CPU的组成部分。

A．控制器 B．运算器 C．寄存器 D．主板

2．在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）为主。

A．二叉树 B．多叉树 C．哈希表 D．二维表

3．在下列各项中，只有（ ）不是计算机存储容量的常用单位。

A．Byte B．KB C．UB D．TB

4．ASCII码的含义是（ ）。

A．二→十进制转换码 B．美国信息交换标准代码

C．数字的二进制编码 D．计算机可处理字符的唯一编码

5．一个完整的计算机系统应包括（ ）。

A．系统硬件和系统软件 B．硬件系统和软件系统

C．主机和外部设备 D．主机、键盘、显示器和辅助存储器

6．IT的含义是（ ）。

A．通信技术 B．信息技术 C．网络技术 D．信息学

7．LAN的含义是（ ）。

A．因特网 B．局域网 C．广域网 D．城域网

8．冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面4个数据如果都是输入的，由于 *** 作错误使总分不等于三科成绩之和，就会产生矛盾。下面关于冗余数据的说法中，正确的是（ ）。

A．应该在数据库中消除一切冗余数据

B．用高级语言编写的数据处理系统，通常比用关系数据库编写的系统更容易消除冗余数据

C．为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验

D．做相容性检验会降低效率，可以不理睬数据库中的冗余数据

9．在下列各软件，不属于NOIP竞赛（复赛）推荐使用的语言环境有（ ）。

A．gcc B．g++ C．Turbo C D．Free Pascal

10．以下断电后仍能保存数据的有（ ）。

A．硬盘 B．高速缓存 C．显存 D．RAM

11．在下列关于计算机语言的说法中，正确的有（ ）。

A．高级语言比汇编语言更高级，是因为它的程序的运行效率更高

B．随着Pascal、C等高级语言的出现，机器语言和汇编语言已经退出了历史舞台

C．高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上

D．C是一种面向对象的高级计算机语言

12．近20年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（ ）。

A．在1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间

B．和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些

C．对于较复杂的问题，用递归方式编程一般比非递归方式更难一些

D．对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x));”就是一种递归调用

13．一个无法靠自身的控制终止的循环成为“死循环”，例如，在C语言程序中，语句“while(1) printf(“”);”就是一个死循环，运行时它将无休止地打印号。下面关于死循环的说法中，只有（ ）是正确的。

A．不存在一种算法，对任何一个程序及相应的输入数据，都可以判断是否会出现死循环，因而，任何编译系统都不做死循环检查

B．有些编译系统可以检测出死循环

C．死循环属于语法错误，既然编译系统能检查各种语法错误，当然也应该能检查出死循环

D．死循环与多进程中出现的“死锁”差不多，而死锁是可以检测的，因而，死循环也可以检测的

14．在Pascal语言中，表达式 （23 or 2 xor 5）的值是（ ）。

A．18 B．1 C．23 D．32

15．在Pascal语言中，判断整数a等于0或b等于0或c等于0的正确的条件表达式是（ ）。

A．not ((a<>0) or (b<>0) or (c<>0))

B．not ((a<>0) and (b<>0) and (c<>0))

C．not ((a=0) and (b=0)) or (c<>0)

D．(a=0) and (b=0) and (c=0)

16．地面上有标号为A、B、C的三根柱，在A柱上放有10个直径相同中间有孔的圆盘，从上到下依次编号为1，2，3……，将A柱上的部分盘子经过B柱移入C柱，也可以在B柱上暂存。如果B柱上的 *** 作记录为“进、进、出、进、进、出、出、进、进、出、进、出、出”。那么，在C柱上，从下到上的编号为（ ）。

A．2 4 3 6 5 7 B．2 4 1 2 5 7 C．2 4 3 1 7 6 D．2 4 3 6 7 5

17．与十进制数1770对应的八进制数是（ ）。

A．3350 B．3351 C．3352 D．3540

18．设A=B=True，C=D=False，一下逻辑运算表达式值为假的有（ ）。

A．(「A∧B)∨(C∧D∨A) B．「(((A∧B)∨C)∧D)

C．A∧(B∨C∨D)∨D D．(A∧(D∨C))∧B

19．(2070)16 + (34)8 的结果是（ ）。

A．（8332）10 B．（208A）16 C．（100000000110）2 D．(20212)8

20．已知7个节点的二叉树的先根遍历是1 2 4 5 6 3 7（数字为节点的编号，以下同），中根遍历是4 2 6 5 1 7 3，则该二叉树的后根遍历是（ ）。

A．4 6 5 2 7 3 1 B．4 6 5 2 1 3 7 C．4 2 3 1 5 4 7 D．4 6 5 3 1 7 2

二、问题求解（共2题，每题5分，共计10分）。

1、（子集划分）将n个数（1，2，…，n）划分成r个子集。每个数都恰好属于一个子集，任何两个不同的子集没有共同的数，也没有空集。将不同划分方法的总数记为S(n,r)。例如，S(4,2)=7，这7种不同的划分方法依次为{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。当n=6，r=3时，S(6,3)=______________。

（提示：先固定一个数，对于其余的5个数考虑S(5,3)与S(5,2)，再分这两种情况对原固定的数进行分析。）

2、（最短路线）某城市的街道是一个很规整的矩形网络（见下图），有7条南北向的纵街，5条东西向的横街。现要从西南角的A走到东北角的B，最短的走法共有多少种？___________

B

A

三、阅读程序写结果（共4题，每题8分，共计32分。）

1、program j301;

var i,a,b,c,x,y:integer;

p:array[04] of integer;

begin

y:=20;

for i:=0 to 4 do read(p[i]);

readln;

a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;

b:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);

c:=p[0]p[1] div p[2];

x:=a+b-p[(p[3]+3) mod 4];

if (x>10)

then y:=y+(b100-a) div (p[p[4] mod 3]5)

else

y:=y+20+(b100-c) div (p[p[4] mod 3]5);

writeln(x,',',y);

end

{注：本例中，给定的输入数据可以避免分母为0或数组元素下表越界。}

输入：6 6 5 5 3 输出：______________________

2、program j302;

var a,b:integer;

var x,y:^integer;

procedure fun(a,b:integer);

var k:integer;

begin k:=a; a:=b; b:=k; end;

begin

a:=3; b:=6;

x:=@a; y:=@b;

fun(x^,y^);

writeln(a,',',b);

end

输出：_______________________________

3、program j303;

var a1:array[150] of integer;

var i,j,t,t2,n,n2:integer;

begin

n:=50;

for i:=1 to n do a1[i]:=0;

n2:=round(sqrt(n));

for i:=2 to n2 do

if (a1[i]=0) then

begin

t2:=n div i;

for j:=2 to t2 do a1[ij]:=1;

end;

t:=0;

for i:=2 to n do

if (a1[i]=0) then

begin

write(i:4); inc(t);

if (t mod 10=0) then writeln;

end;

writeln;

end

输出：_____________________________________________

_____________________________________________

4、Program j304;

Type str1=string[100];

Str2=string[200];

Var

S1:str1; s2:str2;

Function isalpha(c:char):Boolean;

Var i:integer;

Begin

i:=ord(c);

if ((i>=65) and (i<=90)) or ((i>=97) and (i<=122)) then

isalpha:=true

else isalpha:=false;

end;

function isdigit(c:char):Boolean;

var i:integer;

begin

i:=ord(c); if (i>=48) and (i<=57) then isdigit:=true

else isdigit:=false;

end;

procedure expand(s1:str1;var s2:str2);

var i,j:integer; a,b,c:char;

begin

j:=1; c:=char(1); i:=0;

while (i<=ord(s1[0])) do

begin inc(i); c:=s1[i];

if c='-' then begin {1}

a:=s1[i-1]; b:=s1[i+1];

if (isalpha(a) and isalpha(b)) or (isdigit(a) and isdigit(b)) then begin

dec(j);

while (ord(upcase(a))<ord(upcase(s1[i+1]))) do

begin

s2[j]:=a; inc(j); inc(a); end;

end

else

begin s2[j]:=c; inc(j); end;

end{1}

else begin s2[j]:=c; inc(j); end; end; s2[0]:=char(j-2); end;

begin readln(s1); expand(s1,s2); writeln(s2);

end

输入：wer2345d-h454-82qqq 输出：__________________________

四、完善程序（前4空，每空25分，后6空，每空3分，共28分）。

1、（求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1终止程序。

请将程序补充完整。

Program j401;

type str1=string[100];

var line:str1; kz:integer;

procedure reverse(var s:str1);

var I,j:integer; t:char;

begin

i:=1; j:=length(s);

while (i<j) do begin

t:=s[i]; s[i]:=s[j]; s[j]:=t;

; ;

end;

end;

begin

writeln(‘continue -1 for end’);

readln(kz);

while ( )do

begin

readln(line);

;

writeln(line);

writeln(‘continue -1 for end’);

readln(kz);

end;

end

2 2 3 3

2 -1 1 3

4 1 1 5

4 4 5 5

2、（棋盘覆盖问题）在一个2k×2 k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。

下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。

Program j402;

type arr1=array[165] of integer;

arr2=array[165] of arr1;

var board:arr2; tile:integer; size,dr,dc:integer;

procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer);

var t,s:integer;

begin

if (size=1) then ;

t:=tile; inc(tile);

s:=size div 2;

if then chessboard(tr,tc,dr,dc,s) else begin

board[tr+s-1]:=t;

;

end;

if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)

else begin board[tr+s-1][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin

board[tr+s][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)

else begin board[tr+s][tc+s]:=t;

; end;

end;

procedure prt1(n:integer);

var I,j:integer;

begin

for I:=1 to n do begin

for j:=1 to n do write(board[i][j]:3);

writeln;

end;

end;

begin

writeln(‘input size(4/8/16/64):’);

readln(size); writeln(‘input the position of special block(x,y):’);

readln(dr,dc); board[dr][dc]:=-1;

tile:=1; chessboard(1,1,dr,dc,size); prt1(size);

end

NOIP2007第十三届普及组初赛试题参考答案

一、单项选择题：（每题15分）

题号 1 2 3 4 5 6 7 8 9 10

答案 D D C B B B B C C A

题号 11 12 13 14 15 16 17 18 19 20

答案 C A A A B D C D A A

二、问题求解：（每题 5分）

1．90 2．210

三、阅读程序写结果

1 15, 46（对1个数给4分，无逗号扣1分）

2 3, 6

3 2 3 5 7 11 13 17 19 23 29

31 37 41 43 47

4 wer2345defgh45456782qqq

四、完善程序(前4空（①--④），每空25分，后6空（⑤--⑩），每空3分)

（说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）

1．

① inc(i) 或i:=i+1

② dec(j) 或 j:=j-1

③ kz<>-1

④ reverse(line)

2

⑤ exit

⑥ (dr<tr+s)and(dc<tc+s)

⑦ chessboard(tr,tc,tr+s-1,tc+s-1,s)

⑧ chessboard(tr,tc+s,tr+s-1,tc+s,s)

⑨ chessboard(tr+s,tc,tr+s,tc+s-1,s)

⑩ chessboard(tr+s,tc+s,tr+s,tc+s,s)

以上就是关于怎么在电脑上做课件全部的内容，包括:怎么在电脑上做课件、NOIP提高组Pascal语言问题、棋盘覆盖问题(高分回报)等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！