Free pascal:求均值(非计数型循环)
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/17 06:32:41
Free pascal:求均值(非计数型循环)
问题描述
输入一串正整数,以输入-1表示输入结束,计算这些数的均值,保留一位小数。
输入格式
输入数据只有一行,为各整数,最后一个数为-1。
输出格式
输出一行,包含一个数,保留1位小数。
样例输入
80 76 64 91 51 -1
样例输出
72.4
数据范围
输入的整数范围在1~100000000之间。
问题描述
输入一串正整数,以输入-1表示输入结束,计算这些数的均值,保留一位小数。
输入格式
输入数据只有一行,为各整数,最后一个数为-1。
输出格式
输出一行,包含一个数,保留1位小数。
样例输入
80 76 64 91 51 -1
样例输出
72.4
数据范围
输入的整数范围在1~100000000之间。
![Free pascal:求均值(非计数型循环)](/uploads/image/z/17150076-36-6.jpg?t=Free+pascal%EF%BC%9A%E6%B1%82%E5%9D%87%E5%80%BC%EF%BC%88%E9%9D%9E%E8%AE%A1%E6%95%B0%E5%9E%8B%E5%BE%AA%E7%8E%AF%EF%BC%89)
program test;
var
i,j:int64;
ans:extended;
begin
while true do //直接读入
begin
read(i);
if i=-1 then break; //读到-1就退出
inc(j); //用j记录个数
ans:=ans+i;
end;
ans:=ans/j; //计算平均值
write(ans:0:1);
end.
var
i,j:int64;
ans:extended;
begin
while true do //直接读入
begin
read(i);
if i=-1 then break; //读到-1就退出
inc(j); //用j记录个数
ans:=ans+i;
end;
ans:=ans/j; //计算平均值
write(ans:0:1);
end.