fork download
copy 
  1. program stats_1
  2. implicit none
  3. integer::n=0
  4. real::std_dev=0.
  5. real::sum_x=0.
  6. real::sum_x2=0.
  7. real::x=0.
  8. real::x_bar=0.
  9. do
  10. print *,'Enter number:'
  11. read *,x
  12. print *,'The number is',x
  13. if(x<0)exit
  14. n=n+1
  15. sum_x=sum_x+x
  16. sum_x2=sum_x2+x**2
  17. end do
  18. x_bar=sum_x/real(n)
  19. std_dev=sqrt((real(n)*sum_x**2)/(real(n)*real(n-1)))
  20. print *,'The mean is:',x_bar
  21. print *,'The standard deviation is:',std_dev
  22. print *,'The number of data points is:',n
  23. end program
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
3
4
5
-1
stdout
copy 
 Enter number:
 The number is   3.00000000    
 Enter number:
 The number is   4.00000000    
 Enter number:
 The number is   5.00000000    
 Enter number:
 The number is  -1.00000000    
 The mean is:   4.00000000    
 The standard deviation is:   8.48528099    
 The number of data points is:           3
https://ideone.com/RAdTsZ
language:
Fortran (gfortran 8.3)
created:
16 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!