读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 20:23:00
![读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚](/uploads/image/z/5168872-64-2.jpg?t=%E8%AF%BB%E5%85%A5%E8%8B%A5%E5%B9%B2%E4%B8%AA%E6%95%B0%2C%E8%AE%A1%E7%AE%97%E6%89%80%E6%9C%89%E6%AD%A3%E6%95%B0%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC%E5%92%8C%E8%B4%9F%E6%95%B0%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC.%E5%BD%93%E8%BE%93%E5%85%A50%E6%97%B6%2C%E8%BE%93%E5%85%A5%E7%BB%93%E6%9D%9F.%E7%94%A8free+pascal%E7%BC%96%2C%E7%94%A8while+do+%E8%BF%99%E4%B8%AA%E5%BE%AA%E7%8E%AF%E4%BD%93%E7%BB%93%E6%9E%84%E7%BC%96%E5%86%99.%E6%A1%86%E6%9E%B6%E5%9B%BE%E4%B9%9F%E7%94%BB%E5%87%BA%E6%9D%A5%E4%BA%86%2C%E4%BD%86%E6%98%AF%E5%85%B7%E4%BD%93%E7%9A%84%E8%BE%93%E5%85%A5%E6%A0%BC%E5%BC%8F%2C%E7%BB%86%E8%8A%82%E4%B8%8A%E8%BF%98%E6%98%AF%E4%B8%8D%E6%B8%85%E6%A5%9A)
xKo@ǿޚqSKEBU<wlZKֲ]cWm RҴ *y8/`cMSqB'7uPGJM~TtD}!(<$#Uu/"J0N"d^6[)vz7f=
l^@ i˒{ǕYYCĭKnlj?hSi]]ZRoV(Fr|DFe<78~iC~5h2m(+woP3;3yo.OȰL~dwͼ2ȤJz^H4Zt{4d#X:٥=T"z62 p%AKNH+(qKMlmdΣnl>KJ8/^q\I}8mm z8#&V%Ҫ s,|KYnay*hw|,b$o6Jh/) XJ.oPy(oauY~
读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚
读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.
用free pascal编,用while do 这个循环体结构编写.
框架图也画出来了,但是具体的输入格式,细节上还是不清楚
读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚
给你写个程序吧,pascal已经忘得差不多了.
PROGRAM sinfile1(input,output);
VAR
x,s1,s2:real;
n1,n2:Integer;
BEGIN
s1:=0;
s2:=0;
n1:=0;
n2:=0;
read(x);
while x0 do
begin
if x>0
then begin s1:=s1+x; n1:=n1+1; end
else begin s2:=s2+x; n2:=n2+1; end;
read(x);
end;
if n1>0 then write('aver1=',s1/n1);
if n2>0 then write('aver2=',s2/n2);
end.