Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  AA
Language: FORTRAN
Code:
     PROGRAM HALLO
IMPLICIT NONE
REAL::f(16)
INTEGER::i
DO i=1,16
f(i)=(sqrt((10**(1-i))**2+1)-1)/(10**(1-i))
WRITE(*,*) f(i)
END DO
END     
          
          
          
          
Comments: