program a
implicit none
integer::n=0
real::s,sum_x=0.,sum_x2=0.,x,x_bar
do
write(*,*)'請輸入一數字Xi:'
read(*,*)x
write(*,*)'您輸入的數字為',x
if(x<0)exit
n=n+1
sum_x=sum_x+x
sum_x2=sum_x2+x**2
end do
x_bar=sum_x/n
s=sqrt((n*sum_x2-sum_x**2)/(n*(n-1)))
write(*,*)'平均值為:',x_bar
write(*,*)'s=',s
end program봧
--
都是鮑魚啦....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.136.202.102