Question

free pascal初学者的程序

各位电子高手，这里有一个free pascal初学者编的程序，麻烦帮忙改一下。题目要求是：有10名学生，输入他们的语文、数学、英语、姓名，算出他们的总分并按总分从小到大排列，如果分一样就按姓名开头字母ascii码排。谢谢！





Answer 1

type aa=record
ch:integer;
en:integer;
ma:integer;
al:integer;
na:string;
fi:shortint;
end;
var a,o:array[1..10]of aa;
b,c,d,e,f,g:longint;
begin
for b:=1 to 10 do
begin
read(a[b].ch,a[b].ma,a[b].en);
a[b].al:=a[b].ch+a[b].ma+a[b].en;
read(a[b].na);
c:=length(a[b].na);
a[b].fi:=ord(a[b].na[1]);
end;
for b:=1 to 9 do
for c:=1 to 10-b do
if a[c].al>a[c+1].al then begin o[1]:=a[c];a[c]:=a[c+1];a[c+1]:=o[1];end else
if (a[c].al=a[c+1].al)and(a[c].fi<a[c+1].fi) then
begin o[1]:=a[c];a[c]:=a[c+1];a[c+1]:=o[1];end;
for b:=1 to 10 do
writeln('Name:',a[b].na,' Chinese:',a[b].ch,' Maths:',a[b].ma,' English:',a[b].en,' Score:',a[b].al);
end.

追问

谢谢！