Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Rand
REAL X(10000) N=5000 DO I=1,N X(I)=RAND() END DO S=0 DO I=1,N S=S+X(I) S1=S1+X(I)*X(I) END DO S1=S1/N S=S/N D=SQRT(S1-S*S) WRITE(*,*)'MEAN IS',S,D END
run
|
edit
|
history
|
help
0
Yegon Japheth tries out Fortran,
A_04 TRAPEZOIDAL RULE (3(II))
problem_2
Sum of inverse square series
Exercicio 1
4(ii)
Fortran!
A_03 1(I)
DO END DO
Example 45 175 page