fork download 
  1. program stats_3
  2. implicit none
  3. integer::i
  4. integer::n=0
  5. real::std_dev
  6. real::sum_x=0.
  7. real::sum_x2=0.
  8. real::x=0.
  9. real::x_bar=0.
  10. print *,'Enter the number of points:'
  11. read *,n
  12. if(n<2)then
  13. print *,'At least 2 values must be entered.'
  14. else
  15. do i=1,n
  16. print *,'Enter number:'
  17. read *,x
  18. print *,'the number is',x
  19. sum_x=sum_x+x
  20. sum_x2=sum_x2+x**2
  21. end do
  22. x_bar=sum_x/real(n)
  23. std_dev=sqrt((real(n)*sum_x2-sum_x**2)/(real(n)*real(n-1)))
  24. print *,'The mean is:',x_bar
  25. print *,'The standard deviation is:',std_dev
  26. print *,'The number of data points is:',n
  27. end if
  28. end program
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin 
5
10
12
0
-9
11
stdout 
 Enter the number of points:
 Enter number:
 the number is   10.0000000    
 Enter number:
 the number is   12.0000000    
 Enter number:
 the number is   0.00000000E+00
 Enter number:
 the number is  -9.00000000    
 Enter number:
 the number is   11.0000000    
 The mean is:   4.80000019    
 The standard deviation is:   9.09395409    
 The number of data points is:           5
https://ideone.com/etohkx
language:
Fortran (gfortran 8.3)
created:
17 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!