PPT上机实验报告-校园题材

第一篇：PPT上机实验报告-校园题材

重庆交通大学 上机实验报告

成绩：

专 业 班级：学号：姓名：实验项目名称： 制 作 演 示文 稿 实验项目性质：设计性实验所属课程：大学计算机基础实验室(中心)： 计算机中心指 导 教 师 ：贺清碧实验完成时间：2010 年01 月 5日

一、实验名称：

制作演示文稿

二、实验目的1．掌握演示文稿的创建、打开和保存。

2．掌握演示文稿视图的使用、幻灯片的制作、插入和删除方法。

3．掌握修改表格格式化的方法，文字编排、图片和图表插入及模板的选用。

4．掌握简单动画的设置。

5．掌握幻灯片的放映方式。

6．掌握建立超链接和动作按钮。

三、实验主要内容及主要步骤

实验主要内容：

利用PowerPoint设计制作个性化的演示文稿，主题为校园题材。实验主要步骤：

1、创建演示文稿并保存文件

2、演示文稿的格式化（设置图形项目符号应用“设计模板”，设置背景）

3、插入图片、图形操作

4、设置动画、切换效果，播放幻灯片

5、建立超链接与动作按钮

四、实验结果

见附件。

五、实验分析总结

第二篇：上机实验报告格式

请各位同学按照下列格式写：否则按照0分记

上机实验报告格式

Matlab学习第？次上机实验报告（第？次）

姓名：？？？班级:???上机时间：？？？？？？

1.上机内容

2.建模及算法分析

3.程序

4.小结

5.参考文献

将文档发到我的邮箱里面

learn_matlab@163.com

第三篇：上机实验报告

一． 题目1． 建立一个学生档案，内容包括学号，姓名，年龄，性别，数学，物理和英语3门功课成绩。要求实现以下功能：1)数据输入；2)查询某个学生的成绩；3)按平均排列输出；4)统计某门课各分数段人数；5)删除某个学生记录；2． 编程实现对二位数进行加，减，乘运算，每运行一次程序做10道题，完成后给出成绩（每题10分）。二． 设计思想和模块划分1.1．先定义所需要的条件，例如，姓名，学号，性别，三门功课的成绩，平均分等。2．输入姓名，学号，性别，年龄，三门功课的成绩后，就输出相应的姓名，学号，性别，年龄，三门功课的成绩。3．打印表头；4．在求出平均分，并打印出平均分。5．在查找学生，并打印出学生的相关资料；并按照平均分的高低排列；6．在统计学生各科成绩是否》=60分，如果是就是通过，否就是没通过，最后打印出最后的结果。7．删除学生，选中删除的学生，如果确定要，那么该学生的一切记录就变为0；2．1．随机调用函数，产生两个其值为10到99的随机整数分别放在c,d中用作运算时的运算数。2．随机调用函数，产生一个值为1到3 的随机整数放入b中，用来选择不同的运算。根据b的值选择不同的运算。当b=1时，去进行c+d的运算练习；当b＝2 时，去进行c-d的运算练习；当b=3时，去进行c×d的运算练习。每完成一个算题就给出是否正确的信息。3．根据答案正确与否统计。正确时，显示’right’;错误时，显示’wrong’。4．步骤1.2.3.4.重复10次。5．输出学生成绩。三． 运行结果1.Input the 1 student :num:03name:wfage:18sex:fmath:98phy:75eng:65Input the 2 student :num:06name:scage:17sex:fmath:78phy:45eng:65Input the 3 student :num:09name:ytage:17sex:mmath:69phy:75eng:501.readin 2.finds 3.del 4.tj 5.exit1-----------------------------table----num name age sex math phy eng ave------3 wf 18 f 98.0 75.0 65.0 79.3------9 yt 17 m 69.0 75.0 50.0 64.7-------6 sc 17 f 78.0 45.0 65.0 62.7-------1.readin 2.finds 3.del 4.tj 5.exit2Into number:3---num name age sex math phy eng ave---3 wf 18 f 98.0 75.0 65.0 79.3----1.readin 2.finds 3.del 4.tj 5.exit3Into number:6---num name age sex math phy eng ave---6 sc 17 f 78.0 45.0 65.0 62.6---true? Y/Ny1----------------table------------------num name age sex math phy eng ave----3 wf 18 f 98.0 75.0 65.0 79.3-----9 yt 17 m 69.0 75.0 50.0 64.7-----0 0 0 f 0.0 0.0 0.0 0.0-----1.readin 2.finds 3.del 4.tj 5.exit4 1.input the math 2.input the phy 3.input the eng 1math: pass num is :3 no pass num is :02.32+82=114right!97*15=1455right!99-58=41right!76-66=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!73-38=31wrong!86+34=120right!mark is 80四． 主要错误改正方法1.在本题的编写过程中常出现begin 和end 不配对，只要始它们的个数相同就可以了，就可以了。在程序中常出现的’unknown identifier’没有定义的错误，只要在程序前加上定义，就可以了。还有就是type mismatch’的类型不匹配，只要根据前后内容，重新定义，就可以了。2.在本题编写中，题目要求是两个两位数运算，如果写成c:=random(100)在运行过程中，就会出现一位数运算，只要把它写成c:=random(90)+10，就可以了。五． 实习小结1．第一题的程序编写比较复杂，需要较多的定义，因而在后面的程序部分，就常出现标识符重复，而导致的类型不匹配。还有就是每个部分编好后，上下不能连接，而无法调用。2．第二题较第一题简单，和书上的例题类似，所以，比较简单，但从中也出现一些不问题。以上两大题中出现的问题，要在同学的帮助下，才能完成。总的来说两题程序比较困难六． 程序清单1.program twins;const m=3;n=3;typestudent=recordnum:integer;name:string[3];age:integer;sex:char;s:array[1..n] of real;math,eng,phy:real;ave:real;end;sarr=array[1..m] of student;ta=array [1..m] of student;f=string[6];varstu:sarr;ct:ta;k,d:integer;procedure readin(var stu:sarr);const wrong='0<=data<=100 ,again!';var j,i:integer;a:student;beginwriteln;writeln('Input ',m,' num name sex math phy eng',' of student.');for j:=1 to m dobeginwriteln;writeln('Input the ',j,' student :');with a dobeginwrite('num:');readln(num);write('name:');readln(name);write('age:');readln(age);write('sex:');readln(sex);while(sex<>'m')and(sex<>'f')dobeginwrite('sex:');readln(sex)end;for i:=1 to n do begincase i of1:begin write('math:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('math:');readln(s[i]);end;end;2:begin write('phy:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('phy:');readln(s[i]);end;end;3:begin write('eng:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('eng:');readln(s[i]);end;end;end;end;stu[j]:=a;end;writeln;end;end;procedure ave(var stu:sarr);var j,i:integer;k:real;beginfor j:=1 to m dobegink:=0;with stu[j] dobeginfor i:=1 to n do k:=k+s[i];ave:=k/nend;end;end;procedure px(var stu:sarr);var tm:ta;j,i,p:integer;beginfor j:=1 to m dobeginp:=j;for i:=j+1 to m doif stu[i].ave>stu[p].ave then p:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedure head(ct:ta);var i:integer;beginwrite(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;with ct[1] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7,' ');write(ave:10,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;procedure find(var stu:sarr);var n,i:integer;u:boolean;beginu:=true;while u dobeginwrite('Into number:');readln(n);for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i];u:=false;d:=iend;end;end;end;procedure del(var stu:sarr);var i:integer;b:char;beginhead(ct);write('true? Y/N');readln(b);if b='y' then begin write('1');with stu[d] dobeginnum:=0;name:='0';age:=0;sex:='f';for i:=1 to n do s[i]:=0;ave:=0end;endelseend;procedure tj(var stu:sarr);var w1,q1,q2,num,j:integer;h1,h2,h3:boolean;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writeln(' ':30,'1.input the math 2.input the phy 3.input the eng ');readln(w1);case w1 of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math>=60 thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy>=60 thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng>=60 thenq1:=q1+1elseq2:=q2+1;writeln('eng:');end;end;end;end;writeln(' ':5,'pass num is :',q1);writeln(' ':5,'no pass num is :',q2);end;procedure head1(var stu:sarr);var j,i:integer;beginwriteln('----------------table--------------':60);writeln;write(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;for j:=1 to m do beginwith stu[j] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7:1,' ');write(ave:10:1,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;end;beginreadin(stu);ave(stu);k:=0;while k<>5 dobeginwriteln('1.readin 2.finds 3.del 4.tj 5.exit');read(k);readln;while(k<>1)and(k<>2)and(k<>3)and(k<>4)and(k<>5)dobeginwriteln(' mistake,please again');read(k)end;case k of1: begin px(stu);head1(stu)end;2: begin find(stu);head(ct)end;3: begin find(stu);del(stu);px(stu);head1(stu)end;4: begin tj(stu);end;5: writeln('exit!');end;end;end..2.program shadow;var a,b,c,d,e:integer;right:boolean;procedure s1;beginwriteln('right!');right:=trueend;procedure s2;beginwriteln('wrong!');right:=falseend;procedure s3(x,y:integer);var h:integer;beginwrite(x,'+',y,'=');readln(h);if h=x+y then s1else s2 end;procedure s4(x,y:integer);var h,w:integer;beginif x

第四篇：PPT 上机操作题

制作五张幻灯片（每小题4分）

一、第一张要求

1、采用“空白”版式，插入艺术字作为标题，艺术字内容为“侏罗纪公园”，楷 体，80 号，倾斜。

2、艺术字的填充色为渐变——预设——金乌坠地；幻灯片背景用填充效果—— 渐变——双色——粉、浅蓝。

3、添加该幻灯片切换效果为“水平百叶窗”，慢速，无声音；添加艺术字动画效 果为“飞入”、自底部、中速。

二、第二张要求

1、采用“只有标题”版式，标题内容为“最古老的鸟类”。标题字体为华文新魏，加粗，黄色，60 号字。

2、插入一个横排的文本框，输入正文，正文内容为“自从始祖鸟的化石在德国 发现以后，就一直被认为是最古老的鸟类，它的学名翻译成中文，就是“远古的 翅膀”的意思。，正文字体为楷体，加粗，黄色，36 号字。”

3、在合适位置插入一副剪贴画“花”的剪贴画。

4、给所有文字设置“飞入”的动画效果，给剪贴画设置“向内溶解”的动画效果。

5、幻灯片背景用填充效果为渐变——预设——孔雀开屏。

6、插入动作按钮，点击该按钮可以进入第一张幻灯片，按钮颜色设置配合幻灯 背景自行设计。

三、第三张要求（表格）

一季度 市场1 市场1 市场1 50000 40000 52000 二季度 100000 50000 100000 三季度 75000 65000 80000 四季度 80000 100000 1200001、插入一个 4 行 5 列的表格，输入以上表格内容。

2、设置所有单元格为“中部居中”，外边框为 6 磅、黄色、实线；内边框为 3 磅、玫红色、实线。

3、设置表格背景为双色——浅蓝、蓝色渐变。

4、添加标题“销售业绩”，设置字体格式为黑体、32 号字、加粗。

5、幻灯片背景用填充效果——纹理——花束。

四、第四张要求（模板和配色方案）

1、插入一张新幻灯片，选择的“模板”名称为：暗香扑面。

2、进入“幻灯片母版”设计界面，对该演示文稿的幻灯片母版进行“文本背景”、“强调文字”、“强调 文字和超级链接”和“已访问的超级链接”为龙腾四海。

3、标题栏中输入： “新年快乐”。

五、第五张要求（超级链接）

1、采用“标题与内容”版式，在内容区域输入“返回首页” “表格” “新年快乐”，分别设置超级链接，依次链接到第一张、第三张、第四张。

2、设置行距为 2 行，幻灯片背景为双色——浅蓝、红色渐变。

3、在标题处增加竖排艺术字“认真检查”，设置字体为楷体，60 号字；设置 艺术字的形状为“双波形 2”，艺术字的填充色为“预设”——红日西斜。

六、保存，以“职高班.PPTX” 为名，保存到“期中试题”文件夹中。

第五篇：信息论上机实验报告

华中科技大学文华学院

信息论上机实验报告

专业年级：10级通信工程** 学号：1001******** 姓名：** 指导教师：***

2012年 04月30日

目录 等长编码.........................2 1.1 求信源的熵...................2 1.2 求等长码码长.................2 1.3 求等长长等编码...............3 1.4 等长编码全部源代码...........3 1.5MATLAB仿真及其截图..........5 2霍夫曼编码.......................6 2.1 霍夫曼编码源代码.............6 2.2MATLAB仿真及其截图..........9 3游程编码.........................9 3.1 游程编码源代码...............9 3.2 MATLAB仿真及其截图..........11 4 学习心得........................12 5 参考书籍........................14

for i=1:1: 4;s=i;t=lc;for j=1:1:lc;if s>power(2,t)/2;A(i,lc-t+1)=1;s=s-power(2,t)/2;else A(i,lc-t+1)=0;end t=t-1;end end 1.4全部源代码

s=[0.25,0.25,0.25,0.25];len=size(s,2);if sum(s)~=1 error('s is not a complete set');end h=0;for i=1:1:len h=h-s(i)*log(s(i))/log(2);

结果：h=

2、lc=

2、A=00 01 10 11 1.5 MATLAB仿真及其截图

2、霍夫曼编码

2.1霍夫曼编码源代码

T(t-1)=r;T(t)=0;T=fliplr(sort(T));t=t-1;end B;%输出编码表

END1=sym('[0,1]');%给最后一列的元素编码 END=END1;t=3;d=1;for j=n-2:-1:1%从倒数第二列开始依次对各列元素编码 for i=1:t-2 if i>1 & B(i,j)==B(i-1,j)d=d+1;else d=1;end B(B(n,j+1),j+1)=-1;temp=B(:,j+1);

x=find(temp==B(i,j));END(i)=END1(x(d));

2.2MATLAB仿真及其截图

3、游程编码

3.1、游程编码源代码 I=checkerboard(10,2);[m,n]=size(I);J=[];for i=1:m

压缩图像大小：

Name Size Bytes Class J 1x400 3200 double array 图像压缩比：4 3.2 MATLAB仿真及其截图

就直接向他们求教，虽然有些时候他们也不一定能解答出来，但最少也能给我一些提示。最后有时候也靠自己，慢慢的想，慢慢的翻资料一遍一遍的输入，校正，最后就做出来了。虽然有些题目我也不知道自己的对不对，但是通过自己动手把它做出结果了我就觉得有收获了。

Matlab的课比较少，课堂上学到的东西也不是特别的多，但是通过实验，我自学了许多东西，也完成了学习任务，同时也锻炼了自己的个人能力

2012/5/3

314-