Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
evaluation
!gfortran, gcc version 7.4.0 program hello implicit none integer::n real::s=0.0,m=1.0,i n=10; do i=1,n s=s+(sqrt(i))/(i**2+1); end do print'(A15)','summation value :' print*,s do i=1,n m=m*((i-1)**2)/(sqrt(i)); end do print'(A15)','product value :' print*,m end program hello
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
SIUM(3.7)
A
Factorial num
Fortran Homework 1
Pivot 3
CHARACTER REVOLVING
A_02 JACOBIAN NEWTON'S METHOD
test for linear congruential method
A_01 QN:1(I)
A_01 CHEBYSHEV_METHOD
Please log in to post a comment.