上機(jī)實(shí)驗(yàn)報(bào)告---第九次(編輯修改稿)
2025-09-20 23:20 本頁面
【文章內(nèi)容簡介】 ht!9958=41right!7666=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!7338=31wrong!86+34=120right!mark is 80四． 主要錯(cuò)誤改正方法 begin 和 end 不配對(duì)，只要始它們的個(gè)數(shù)相同就可以了，就可以了。在程序中常出現(xiàn)的 ’unknown identifier’ 沒有定義的錯(cuò)誤，只要在程序前加上定義，就可以了。還有就是 type mismatch’ 的類型不匹配，只要根據(jù)前后內(nèi)容，重新定義，就可以了。 ，題目要求是兩個(gè)兩位數(shù)運(yùn)算，如果寫成 c:=random(100)在運(yùn)行過程中，就會(huì)出現(xiàn)一位數(shù)運(yùn)算，只要把它寫成c:=random(90)+10，就可以了。五． 實(shí)習(xí)小結(jié) 1．第一題的程序編寫比較復(fù)雜，需要較多的定義，因而在后面的程序部分，就常出現(xiàn)標(biāo)識(shí)符重復(fù)，而導(dǎo)致的類型不匹配。還有就是每個(gè)部分編好后，上下不能連接，而無法調(diào)用。 2．第二題較第一題簡單，和書上的例題類似，所以，比較簡單，但從中也出現(xiàn)一些不問題。以上兩大題中出現(xiàn)的問題，要在同學(xué)的幫助下，才能完成?？偟膩碚f兩題程序比較困難六． 程序清單 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=39。039。m39。)and(sex39。f39。)dobeginwrite(39。sex:39。)。readln(sex)end。for i:=1 to n do begincase i of1:begin write(39。math:39。)。readln(s[i])。while(s[i]100)dobeginwriteln(wrong)。write(39。math:39。)。readln(s[i])。end。end。2:begin write(39。phy:39。)。readln(s[i])。while(s[i]100)dobeginwriteln(wrong)。write(39。phy:39。)。readln(s[i])。end。end。3:begin write(39。eng:39。)。readln(s[i])。while(s[i]100)dobeginwriteln(wrong)。write(39。eng:39。)。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].avestu[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(39。 39。)。for i:=1 to 72 do write(39。39。)。writeln。write(39。39。,39。 num39。:4,39。 39。,39。name39。:9,39。 39。,39。age39。:8,39。 39。,39。sex39。:5,39。 39。,39。math39。:6,39。 39。,39。phy39。:9,39。 39。,39。eng39。:8,39。 39。)。writeln(39。ave39。:6,39。 39。)。write(39。 39。)。for i:=1 to 72 do write(39。39。)。writeln。with ct[1] dobeginwrite(39。39。,num:7,39。 39。,name:8,39。 3
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1