第一篇: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 制作五張幻燈片(每小題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-第四篇:PPT 上機操作題
第五篇:信息論上機實驗報告