這是什麼程式阿..
※ 引述《grasteven (定心)》之銘言：
: 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: 218.167.220.100