信息論上機(jī)實(shí)驗(yàn)報(bào)告-文庫(kù)吧資料
2024-10-21 07:38本頁(yè)面
【正文】 stake,please again39。readln。)。while k5 dobeginwriteln(39。ave(stu)。end。writeln。39。)。write(39。writeln。 39。)。for i:=1 to n do write(s[i]:7:1,39。 39。 39。 39。 39。39。writeln。39。)。write(39。 39。ave39。)。:8,39。,39。:9,39。,39。:6,39。,39。:5,39。,39。:8,39。,39。:9,39。,39。:4,39。,39。write(39。)。for i:=1 to 72 do write(39。 39。writeln。table39。var j,i:integer。end。no pass num is :39。 39。,q1)。:5,39。writeln(39。end。end。eng:39。if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng=60 thenq1:=q1+1elseq2:=q2+1。)。writeln(39。end。math:39。if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math=60 thenq1:=q1+1elseq2:=q2+1。3:h3:=true。case w1 of1:h1:=true。)。:30,39。writeln(39。q1:=0。h2:=false。h1,h2,h3:boolean。procedure tj(var stu:sarr)。ave:=0end。f39。age:=0。name:=39。)。 then begin write(39。if b=39。)。write(39。b:char。procedure del(var stu:sarr)。end。d:=iend。for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i]。)。while u dobeginwrite(39。u:boolean。procedure find(var stu:sarr)。writeln。39。)。write(39。writeln。 39。)。for i:=1 to n do write(s[i]:7,39。 39。 39。 39。 39。39。writeln。39。)。write(39。 39。ave39。)。:8,39。,39。:9,39。,39。:6,39。,39。:5,39。,39。:8,39。,39。:9,39。,39。:4,39。,39。write(39。)。for i:=1 to 72 do write(39。 39。var i:integer。end。stu[j]:=tm[1]。tm[1]:=stu[p]。beginfor j:=1 to m dobeginp:=j。var tm:ta。end。ave:=k/nend。beginfor j:=1 to m dobegink:=0。var j,i:integer。end。writeln。stu[j]:=a。end。end。)。write(39。readln(s[i])。eng:39。end。readln(s[i])。phy:39。while(s[i]100)dobeginwriteln(wrong)。)。2:begin write(39。end。)。write(39。readln(s[i])。math:39。readln(sex)end。sex:39。f39。m39。const wrong=39。k,d:integer。varstu:sarr。ta=array [1..m] of student。end。math,eng,phy:real。sex:char。name:string[3]。n=3?？偟膩?lái)說(shuō)兩題程序比較困難六． twins。2．第二題較第一題簡(jiǎn)單，和書(shū)上的例題類似，所以，比較簡(jiǎn)單，但從中也出現(xiàn)一些不問(wèn)題。五． 實(shí)習(xí)小結(jié)1．第一題的程序編寫(xiě)比較復(fù)雜，需要較多的定義，因而在后面的程序部分，就常出現(xiàn)標(biāo)識(shí)符重復(fù)，而導(dǎo)致的類型不匹配。還有就是type mismatch’的類型不匹配，只要根據(jù)前后內(nèi)容，重新定義，就可以了。三． 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: name age sex math phy eng ave3 wf 18 f yt 17 m sc 17 f number:3num name age sex math phy eng ave3 wf 18 f number:6num name age sex math phy eng ave6 sc 17 f
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1