free Pascal的问题 输入6个同学的语、数、英三科成绩,计算出总分和平均分,以表格的形式输出。
2011-04-10
展开全部
输入6个同学的语、数、英三科成绩,计算出总分和平均分,以表格的形式输出。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
program data;
var
da:array[1..6,1..5]of real;
i,j,a,b:integer;
begin
for i:=1 to 6 do
readln(da[i,1],da[i,2],da[i,3]);
for i:=1 to 6 do
begin
da[i,4]:=da[i,1]+da[i,2]+da[i,3];
da[i,5]:=da[i,4]/3;
end;
writeln('chinese','math','english','zong,'ping');
for i:=1 to 6 do
writeln(da[i,1]:2:2,da[i,2]:2:2,da[i,3]:2:2,da[i,4]:2:2,da[i,5]:2:2);
readln;
end.
我没测试过,应该没问题,自己试试吧!
希望能帮到你!
var
da:array[1..6,1..5]of real;
i,j,a,b:integer;
begin
for i:=1 to 6 do
readln(da[i,1],da[i,2],da[i,3]);
for i:=1 to 6 do
begin
da[i,4]:=da[i,1]+da[i,2]+da[i,3];
da[i,5]:=da[i,4]/3;
end;
writeln('chinese','math','english','zong,'ping');
for i:=1 to 6 do
writeln(da[i,1]:2:2,da[i,2]:2:2,da[i,3]:2:2,da[i,4]:2:2,da[i,5]:2:2);
readln;
end.
我没测试过,应该没问题,自己试试吧!
希望能帮到你!
参考资料: 无
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题...
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询