一.     題目1.  建立一個(gè)學(xué)生檔案，內(nèi)容包括學(xué)號，姓名，年齡，性別，數(shù)學(xué)，物理和英語3門功課成績。要求實(shí)現(xiàn)以下功能：1)        數(shù)據(jù)輸入；2)        查詢某個(gè)學(xué)生的成績；3)        按平均排列輸出；4)        統(tǒng)計(jì)某門課各分?jǐn)?shù)段人數(shù)；5)        刪除某個(gè)學(xué)生記錄；2.  編程實(shí)現(xiàn)對二位數(shù)進(jìn)行加，減，乘運(yùn)算，每運(yùn)行一次程序做10道題，完成后給出成績（每題10分）。二.     設(shè)計(jì)思想和模塊劃分1.1.先定義所需要的條件，例如，姓名，學(xué)號，性別，三門功課的成績，平均分等。2.輸入姓名，學(xué)號，性別，年齡，三門功課的成績后，就輸出相應(yīng)的姓名，學(xué)號，性別，年齡，三門功課的成績。3.打印表頭；4.在求出平均分，并打印出平均分。5.在查找學(xué)生，并打印出學(xué)生的相關(guān)資料；并按照平均分的高低排列；6.在統(tǒng)計(jì)學(xué)生各科成績是否》=60分，如果是就是通過，否就是沒通過，最后打印出最后的結(jié)果。7.刪除學(xué)生，選中刪除的學(xué)生，如果確定要，那么該學(xué)生的一切記錄就變?yōu)?；2.1.隨機(jī)調(diào)用函數(shù)，產(chǎn)生兩個(gè)其值為10到99的隨機(jī)整數(shù)分別放在c,d中用作運(yùn)算時(shí)的運(yùn)算數(shù)。2.隨機(jī)調(diào)用函數(shù)，產(chǎn)生一個(gè)值為1到3 的隨機(jī)整數(shù)放入b中，用來選擇不同的運(yùn)算。根據(jù)b的值選擇不同的運(yùn)算。當(dāng)b=1時(shí)，去進(jìn)行c+d的運(yùn)算練習(xí)；當(dāng)b＝2 時(shí)，去進(jìn)行c-d的運(yùn)算練習(xí)；當(dāng)b=3時(shí)，去進(jìn)行c×d的運(yùn)算練習(xí)。每完成一個(gè)算題就給出是否正確的信息。3.根據(jù)答案正確與否統(tǒng)計(jì)。正確時(shí)，顯示’right’; 錯(cuò)誤時(shí)，顯示’wrong’。4.步驟1. 2. 3. 4. 重復(fù)10次。5.輸出學(xué)生成績。 三.     運(yùn)行結(jié)果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:50 1.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 四.     主要錯(cuò)誤改正方法1.在本題的編寫過程中常出現(xiàn)begin 和end 不配對，只要始它們的個(gè)數(shù)相同就可以了，就可以了。在程序中常出現(xiàn)的’unknown identifier’沒有定義的錯(cuò)誤，只要在程序前加上定義，就可以了。還有就是type mismatch’的類型不匹配，只要根據(jù)前后內(nèi)容，重新定義，就可以了。2.在本題編寫中，題目要求是兩個(gè)兩位數(shù)運(yùn)算，如果寫成c:=random(100)在運(yùn)行過程中，就會出現(xiàn)一位數(shù)運(yùn)算，只要把它寫成c:=random(90)+10，就可以了。五.     實(shí)習(xí)小結(jié)1.第一題的程序編寫比較復(fù)雜，需要較多的定義，因而在后面的程序部分，就常出現(xiàn)標(biāo)識符重復(fù)，而導(dǎo)致的類型不匹配。還有就是每個(gè)部分編好后，上下不能連接，而無法調(diào)用。2.第二題較第一題簡單，和書上的例題類似，所以，比較簡單，但從中也出現(xiàn)一些不問題。以上兩大題中出現(xiàn)的問題，要在同學(xué)的幫助下，才能完成�？偟膩碚f兩題程序比較困難 六.     程序清單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<y thenbegin w:=x; x:=y; y:=wend;write(x,'-',y,'=');readln(h);if h=x-y then s1 else s2end;procedure s5 (x,y:integer);var h:integer;beginwrite(x,'*',y,'=');readln(h);if h=y then s1 else s2end;beginrandomize;e:=0;for a:=1 to 10 dobeginc:=random(90)+10;d:=random(90)+10;b:=random(3);case b of0:s3(c,d);1:s4(c,d);2:s5(c,d);end;if right then e:=e+10;end;writeln('mark is',e:3)end.

　　新疆農(nóng)業(yè)大學(xué)實(shí)習(xí)報(bào)告  實(shí)習(xí)課程名稱（課號）： Dreamweaver視頻上機(jī)實(shí)驗(yàn)指導(dǎo)系列課件     50例                               學(xué)               院： 計(jì)算機(jī)與信息工程學(xué)院                專    業(yè)、 班    級：  信息管理與信息系統(tǒng)022班           指    導(dǎo)    教   師：  鮑建波      張勝光                      報(bào) 告 人 ：　張潮　　　  　　 學(xué)號：　024631239　　　　　 時(shí)              間：　XX年3月6日—XX年4月30日                  　      實(shí)習(xí)主要內(nèi)容：計(jì)算機(jī)的組裝與維護(hù)、中小型網(wǎng)絡(luò)的安裝與調(diào)試主要收獲與體會：XX年3月，我來到克拉瑪依市天勤電子實(shí)習(xí)工作。轉(zhuǎn)眼間，2個(gè)月的實(shí)習(xí)期即將過去，回想自己這段時(shí)間的經(jīng)歷與收獲，我深深的感到在我今后的發(fā)展，天勤電子給予我的是一筆多么寶貴的人生財(cái)富！公司給我的工作定位是從事技術(shù)部基礎(chǔ)工作以及銷售工作，同時(shí)我還承擔(dān)了公司網(wǎng)絡(luò)的維護(hù)等基礎(chǔ)工作，從學(xué)校的理論知識到過去兩個(gè)月的實(shí)踐工作，其中的角色轉(zhuǎn)變離不開公司各級領(lǐng)導(dǎo)以及同事們的幫助和指導(dǎo)。技術(shù)方面，通過和公司其他技術(shù)人員的學(xué)習(xí)與交流，使我現(xiàn)在能夠獨(dú)立處理計(jì)算機(jī)出現(xiàn)的軟硬件故障，同時(shí)在實(shí)踐過程中我還學(xué)會了網(wǎng)絡(luò)的安裝以及調(diào)試技能，這些是在書本上所不能學(xué)到的，對于我今后的發(fā)展將起到巨大的幫助。積極參加公司組織的各種活動，包括保齡球、乒乓球等各項(xiàng)文藝活動。經(jīng)過過去兩個(gè)月的實(shí)習(xí)，我對未來充滿了美好的憧憬，在未來的日子，我將努力做到以下幾點(diǎn)：一、繼續(xù)學(xué)習(xí)，不斷提升理論素養(yǎng)。在信息時(shí)代，學(xué)習(xí)是不斷地汲取新信息，獲得事業(yè)進(jìn)步的動力。作為一名年輕同志更應(yīng)該把學(xué)習(xí)作為保持工作積極性的重要途徑。走上工作崗位后，我積極響應(yīng)公司號召，結(jié)合工作實(shí)際，不斷學(xué)習(xí)理論、業(yè)務(wù)知識和社會知識，用先進(jìn)的理論武裝頭腦，用精良的業(yè)務(wù)知識提升能力，以廣博的社會知識拓展視野。二、努力實(shí)踐，自覺進(jìn)行角色轉(zhuǎn)化。“理論是灰色的，生活之樹常青”，只有將理論付諸于實(shí)踐才能實(shí)現(xiàn)理論自身的價(jià)值，也只有將理論付諸于實(shí)踐才能使理論得以檢驗(yàn)。同樣，一個(gè)人的價(jià)值也是通過實(shí)踐活動來實(shí)現(xiàn)的，也只有通過實(shí)踐才能鍛煉人的品質(zhì)，彰現(xiàn)人的意志。從學(xué)校走向社會，首要面臨的問題便是角色轉(zhuǎn)換的問題。從一個(gè)學(xué)生轉(zhuǎn)化為一個(gè)單位人，在思想的層面上，必須認(rèn)識到二者的社會角色之間存在著較大的差異。學(xué)生時(shí)代只是單純的學(xué)習(xí)知識，而社會實(shí)踐則意味著繼續(xù)學(xué)習(xí)，并將知識應(yīng)用于實(shí)踐，學(xué)生時(shí)代可以自己選擇交往的對象，而在社會則更多地被他人所選擇。種種的差異。不勝枚舉。但僅僅在思想的層面上認(rèn)識到這一點(diǎn)還是不夠的，而是必須在實(shí)際的工作和生活中潛心體會，并自覺的進(jìn)行這種角色的轉(zhuǎn)換。三、提高工作積極性和主動性兩個(gè)月的實(shí)習(xí)期很快過去了，是開端也是結(jié)束。展現(xiàn)在自己面前的是一片任自己馳騁的沃土，也分明感受到了沉甸甸的責(zé)任。在今后的工作和生活中，我將繼續(xù)學(xué)習(xí)，深入實(shí)踐，不斷提升自我，努力創(chuàng)造業(yè)績，繼續(xù)為中心創(chuàng)造更多的價(jià)值。指導(dǎo)教師批閱意見：該同學(xué)自3月開始實(shí)習(xí)以來，工作認(rèn)真負(fù)責(zé)、勤學(xué)好問、能夠與同事和睦相處，對其工作表示肯定，望今后走上工作崗位能夠繼續(xù)發(fā)揮其優(yōu)點(diǎn)及特長。    成績評定：優(yōu)秀                                             指導(dǎo)教師簽字：鮑建波                                             XX年4月25日備注：