.用记录做pascal语言快

来源：百度知道 编辑：UC知道 时间：2024/07/06 16:31:57
pascal语言，用记录做，快！！！！！！！！！！输入5个学生的成绩和学号,输出5个人的平均分和每人的成绩与平均分的差.用记录做,绩和学号,输出5个人的平均分和每人的成绩与平均分的差.用记录做

program sd;
type st=record
num:integer;
score:integer;
end;
var s:array[1..5]of st;
i:integer;
p:real;
begin
p:=0;
for i:=1 to 5 do
begin
with a[i] do
readln(num,score);
p:=p+a[i].score;
end;
p:=p/5;
writeln('ping jun feng:',p);
for i:=1 to 5 do
writeln(a[i].score-p);
end.

PROGRAM marks(intpu,output);
TYPE
newkind=(Mat,Phy,Eng,Che,Pas,Sum,Ave);
arra=Array [1..5,Mat..Ave] of Real;
VAR
Nums:arra;
i:integer;
j:newkind;
BEGIN
For i:=1 to 5 do
BEGIN
writeln('Number:',i);
For j:= Mat to Pas do
BEGIN
read(Nums[i,j]);
Nums[i,Sum]:=Nums[i,Sum]+Nums[i,j];
END;
Nums[i,Ave]:=Nums[i,Sum]/5;
END;
writeln('Number':8,'Mat':8,'Phy':8,'