SUM

 !Program name: SUM

!Summation from 1 to 100

integer::i,sum

sum=0

Do i=1,100

  sum=sum+i

End do

Print *,'Sum(1-100)= ',sum

Stop

End

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA