【正文】 現(xiàn)一些不問題。sex:char。varstu:sarr。f39。readln(s[i])。2:begin write(39。readln(s[i])。write(39。stu[j]:=a。beginfor j:=1 to m dobegink:=0。beginfor j:=1 to m dobeginp:=j。var i:integer。write(39。:9,39。:5,39。:9,39。ave39。39。 39。)。)。u:boolean。d:=iend。write(39。)。ave:=0end。q1:=0。case w1 of1:h1:=true。end。eng:39。:5,39。end。 39。,39。,39。,39。,39。 39。writeln。 39。 39。39。while k5 dobeginwriteln(39。read(k)end。head1(stu)end。end.. shadow。procedure s2。+39。beginif x第三篇：信息論上機實驗報告華中科技大學文華學院信息論上機實驗報告專業(yè)年級：10級通信工程** 學號：1001******** 姓名：** 指導教師：***2012年 04月30日目錄 等長編碼.........................2 求信源的熵...................2 求等長碼碼長.................2 求等長長等編碼...............3 等長編碼全部源代碼...........3 ..........5 2霍夫曼編碼.......................6 霍夫曼編碼源代碼.............6 ..........9 3游程編碼.........................9 游程編碼源代碼...............9 MATLAB仿真及其截圖..........11 4 學習心得........................12 5 參考書籍........................14for i=1:1: 4。end t=t1。結(jié)果：h=lc=A=00 01 10 11 MATLAB仿真及其截圖霍夫曼編碼T(t1)=r。%給最后一列的元素編碼 END=END1。x=find(temp==B(i,j))。Matlab的課比較少，課堂上學到的東西也不是特別的多，但是通過實驗，我自學了許多東西，也完成了學習任務，同時也鍛煉了自己的個人能力2012/5/3314第四篇：《電子商務》上機實驗報告上機實驗報告實驗名稱： 電子商務模擬實驗學生姓名：班級學號：指導教師：實驗日期：電子商務模擬實驗一、實驗名稱電子商務模擬實驗二、實驗目的1．了解電子商務的框架體系與基本運行原理。電子商務交易虛擬化、交易成本低、交易效率高、交易透明化。而學了電子商務后，我認為這是很重要的一個專業(yè)領(lǐng)域，也是很熱門的一個專業(yè)。它是原廣東省機械廳直屬的生產(chǎn)各種機床的大型國有企業(yè)，于 1995 年改制成為股份有限公司，并于 1999 年在上海證券交易所掛牌交易。記賬憑證應按要求填制。科目匯總表的填制根據(jù)記帳憑證逐筆登記總帳，如果工作量很大，可以先填制科目匯總表，然后根據(jù)科目匯總表再來登記總帳。登記會計帳簿時，應將會計憑證的日期、編號，業(yè)務內(nèi)容摘要、金額和其他相關(guān)資料逐項記入賬內(nèi)，作到數(shù)字準確、摘要清楚、登記及時、字跡工整。我很遺憾實驗課程就這樣結(jié)束了，從這次會計實驗中，我學到了不少的知識。通過這次的模擬實驗使我加強了對基礎會計各方面知識的記憶也讓我發(fā)現(xiàn)了自己在哪些方面的不足，發(fā)現(xiàn)問題及時補救是這一次實驗一大收獲。編制財務報表最后，根據(jù)總賬和明細賬及資料所給的期初余額編制編制會計報表，包括資產(chǎn)負債表、利潤表、股東權(quán)益增減變動表和現(xiàn)金流量表。匯總表的編號一般按年順序編列，匯總表上會計科目名稱的排列應與總帳科目的序號保持一致。第二，要根據(jù)經(jīng)濟業(yè)務的性質(zhì)，按照會計制度所規(guī)定的會計科目和每一會計科目所核算的內(nèi)容，正確編制會計分錄。該公司設有鑄造、加工和裝配三個基本生產(chǎn)車間，主要從事立竣一號機床和立竣二號機床的生產(chǎn)。我?guī)缀蹩梢詮木W(wǎng)上買到我生活中所需的所有東西，而且省去了我路上往返的辛苦和路費。而且完全是無紙化辦公，減少了成本。3．具備初步電子商務網(wǎng)站的規(guī)劃與設計能力。游程編碼、游程編碼源代碼 I=checkerboard(10,2)。d=1。T=fliplr(sort(T))。len=size(s,2)。t=lc。=39。wrong!39。right:boolean。end。head1(stu)end。)。writeln。writeln。 39。39。write(39。:8,39。:6,39。:8,39。:4,39。for i:=1 to 72 do write(39。var j,i:integer。,q1)。end。writeln(39。3:h3:=true。writeln(39。procedure tj(var stu:sarr)。name:=39。)。end。while u dobeginwrite(39。39。 39。 39。writeln。 39。,39。,39。,39。