UC知道pascal问题!知道的请进!
来源：百度知道 编辑：UC知道 时间：2024/05/30 21:00:02
编写程序，从键盘输入6名学生的5门成绩，分别统计出每个学生的平均成绩。
输入部分：一组数据，6名学生的5门成绩，一个学生的5门成绩输入完成后输入另个一个学生的成绩。
输出部分：一组输出，每组输出为6行，分别是6位学生的平均成绩，输出宽度为5，其中含1位小数。
输入样例：
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5 5
6 6 6 6 6
输出样例：
1.0
2.0
3.0
4.0
5.0
6.0
怎么用文本文件做??知道的帮忙答一下,马马谢谢了!
输入部分：一组数据，6名学生的5门成绩，一个学生的5门成绩输入完成后输入另个一个学生的成绩。
输出部分：一组输出，每组输出为6行，分别是6位学生的平均成绩，输出宽度为5，其中含1位小数。
输入样例：
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5 5
6 6 6 6 6
输出样例：
1.0
2.0
3.0
4.0
5.0
6.0
怎么用文本文件做??知道的帮忙答一下,马马谢谢了!
program Marks;
var
begin
assign(input,'score.in');
reset(input);
for i:=1 to 6 do
begin
for j:=1 to 5 do
read(a[i,j]);
readln;
end;
close(input);
assign(output,'score.out');
rewrite(output);
for i:=1 to 6 do
begin
s:=0;
for j:=1 to 5 do
inc(s,a[i,j]);
writeln(s/5:0:3);
end;
close(output);
end.
var i,j:integer;r:array[1..6]of real;temp,sum:longint;
begin
assign(input,'score.in');reset(input);
for i:=1 to 6 do
begin
sum:=0;
for j:=1 to 5 do begin
read(input,temp);sum:=sum+temp;
end;
r[i]:=sum/5;
end;
close(input);assign(output,'score.out');
rewrite(output);for i:=1 to 6 do
writeln(r[i]:0:5);
close(output);
end.