回 帖 发 新 帖 刷新版面

主题:有关 数组 的问题!

输入4名学生的数学,物理,化学,PASCAL 5门课程的成绩,求每名学生的平均分,打印成绩表。(PASCAL编)


各位!帮忙!啊!

回复列表 (共7个回复)

沙发

我正在学,好好学,你可以的!!

板凳

[em9]这个呀,你先说说要不要注意输出的格式问题,其实问题并不复杂,好好想下相信你会行的。

3 楼

不要注意输出的格式问题

4 楼

能帮上忙吗??

5 楼

可以用记录类型,方便记录所有数据

6 楼

var
a:array[1..4,1..6] of integer;
i,j,avr:integer;
begin
writeln('input 4 students' scores:');
for i:=1 to 4 do
  for j:=1 to 5 do
   read(a[i,j]);
readln;
for i:=1 to 4 do
  begin
   avr:=0;
   for j:=1 to 5 do
     avr:=avr+a[i,j];
   avr:=avr div 5;
   a[i,6]:=avr;
  end;
for i:=1 to 4 do
  begin
  for j:=1 to 6 do
     write(a[i,j]:4);
  writeln;
  end;
end.

7 楼

哪里有5门科目啊??!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册