UC知道Pascal 资料整理 问题
来源：百度知道 编辑：UC知道 时间：2024/06/17 16:37:08
student : array [1..20 , 1..3] of string; (20个学生，student[x,1]是学生名字 , x,2 是班别 , x,3 是分数)
要求：
- 找出每班学生数目
- 找出共有多少班别
- 找出该班的学生平均分
感谢！
更正：
student : array [1..20 , 1..2] of string; (20个学生，student[x,1]是学生名字 , x,2 是班别)
学生分数储存在mark [1..20] (integer) 中...
要求：
- 找出每班学生数目
- 找出共有多少班别
- 找出该班的学生平均分
感谢！
更正：
student : array [1..20 , 1..2] of string; (20个学生，student[x,1]是学生名字 , x,2 是班别)
学生分数储存在mark [1..20] (integer) 中...
var student:array[1..20,1..2]of string;
mark:array[1..20]of integer;
mbxss:array[1..120]of integer;
banbie,i,j:integer;
pj:real;
begin
banbie:=0;
pj:=0;
for i:=1 to 20 do
for j:=1 to 2 do
begin
readln(student[i,j]);
readln(mark[i]);
mbxss[i]:=0;
end;
for i:=1 to 20 do
begin
mbxss[val(student[i,2])]:=mbxss[val(student[i,2])]+1;
pj:=pj+mark[i];
end;
pj:=pj/20;
for i:=1 to 20 do
if mbxss[i]>0 then banbie:=banbie+1;
for i:=1 to 20 do
if mbxss[i]>0 then
writeln(i,' ban you ',mbxss[i],' ge xue sheng');
writeln('gong you ',banbie,' ge ban bie');
writeln('gai ban xue sheng ping jun fen shi ',pj);
end.