結(jié)構(gòu)力學(xué)上機(jī)實(shí)驗(yàn)報(bào)告-資料下載頁
2025-10-11 10:29本頁面
【正文】 g,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。 39。,age:8,39。 39。,sex:5,39。 39。)。for i:=1 to n do write(s[i]:7,39。 39。)。write(ave:10,39。 39。)。writeln。end。write(39。 39。)。for i:=1 to 72 do write(39。39。)。writeln。end。procedure find(var stu:sarr)。var n,i:integer。u:boolean。beginu:=true。while u dobeginwrite(39。Into number:39。)。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(39。true? Y/N39。)。readln(b)。if b=39。y39。 then begin write(39。139。)。with stu[d] dobeginnum:=0。name:=39。039。age:=0。sex:=39。f39。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(39。 39。:30,39。 the math the phy the eng 39。)。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(39。math:39。)。end。if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy=60 thenq1:=q1+1elseq2:=q2+1。writeln(39。phy:39。)。end。if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng=60 thenq1:=q1+1elseq2:=q2+1。writeln(39。eng:39。)。end。end。end。end。writeln(39。 39。:5,39。pass num is :39。,q1)。writeln(39。 39。:5,39。no pass num is :39。,q2)。end。procedure head1(var stu:sarr)。var j,i:integer。beginwriteln(39。table39。:60)。writeln。write(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。for j:=1 to m do beginwith stu[j] dobeginwrite(39。39。,num:7,39。 39。,name:8,39。 39。,age:8,39。 39。,sex:5,39。 39。)。for i:=1 to n do write(s[i]:7:1,39。 39。)。write(ave:10:1,39。 39。)。writeln。end。write(39。 39。)。for i:=1 to 72 do write(39。39。)。writeln。end。end。beginreadin(stu)。ave(stu)。k:=0。while k5 dobeginwriteln(39。 39。)。read(k)。readln。while(k1)and(k2)and(k3)and(k4)and(k5)dobeginwriteln(39。 mistake,please again39。)。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(39。exit!39。)。end。end。end.. shadow。var a,b,c,d,e:integer。right:boolean。procedure s1。beginwriteln(39。right!39。)。right:=trueend。procedure s2。beginwriteln(39。wrong!39。)。right:=falseend。procedure s3(x,y:integer)。var h:integer。beginwrite(x,39。+39。,y,39。=39。)。readln(h)。if h=x+y then s1else s2 end。procedure s4(x,y:integer)。var h,w:integer。beginif x
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1