上機(jī)實驗報告01-文庫吧資料
2024-09-20 23:20本頁面
【正文】 .. shadow。end。exit!39。end。head1(stu)end。del(stu)。head(ct)end。head1(stu)end。read(k)end。 mistake,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?？偟膩碚f兩題程序比較困難六． 程序清單 twins。 2．第二題較第一題簡單，和書上的例題類似，所以，比較簡單，但從中也出現(xiàn)一些不問題。五． 實習(xí)小結(jié) 1．第一題的程序編寫比較復(fù)雜，需要較多的定義，因而在后面的程序部分，就常出現(xiàn)標(biāo)識符重復(fù)，而 導(dǎo)致的類型不匹配。還有就是 typ
公司管理相關(guān)推薦
鄂ICP備17016276號-1