program areadeunaesfera
REAL::r,area
INTEGER i
DO i= 1 , 100
area= 3.14159*i**2
WRITE(*,*) " el area de la esfera es", area
END DO
end program
 

Pagina Principal del sitio                               Regresar al menu de Codigo fuente en FORTRAN