SoloCodigo

PROGRAM Multiplicar
!
! Programa que calcula multiplicaciones de un numero n desde 1 hasta k
!ç
IMPLICIT NONE
INTEGER :: k, j, n, y

WRITE(*,*) 'Programa que calcula multiplicaciones de un numero n desde 1 hasta k'
WRITE(*,*) ''
WRITE(*,*) 'Numero a multiplicar (n)'
READ (*,*) n
WRITE(*,*) ''
WRITE(*,*) 'Limite maximo (k)'
READ (*,*) k

WRITE(*,*) 'Iteracion, Resultado'
do j=1,k
  y=n*j
  write (*,*)'', j, y
end do


STOP
end program Multiplicar

Espero que te sirva
Dudas o comentarios: nhslag@gmail.com

Espero que te sirva, En Fortran 90/95

PROGRAM Examen
!
! Programa para calcular una tabla de valores de la funcion
! f(x) =2/sqrt(2*pi) *e^(-2((x-1)^2)) 
! en el intervalo [-1,3]
!
! El programa calculara 2 vectores x(0:40) e y(0:40)
! que se escribiran en un fichero datos.txt
!
IMPLICIT NONE
INTEGER :: j, limmax=40
REAL,PARAMETER :: pi = 3.14159
REAL, ALLOCATABLE :: x(, y(

OPEN(7,FILE='datos.txt')
write (7,*) 'Programa que calcula tabla de valores de la funcion'
write (7,*) 'f(x) =2/sqrt(2*pi)*e^(-2((x-1^2))'
allocate(x(0:limmax),y(0:limmax)) ! Asignacion de memoria para los vectores
write (7,*)'Posicion y Resultado'
do j=1,limmax
  x(j)=j
  y(j)=2/SQRT(2*pi)*EXP(-2*((x(j)-1)**2))
  write (7,*)'', x(j), y(j)
end do
CLOSE(7)
write (*,*)'Termino la ejecucion'
write (*,*)'Busca el fichero "datos.txt" donde compilaste este archivo'

STOP
end program Examen

nhslas@gmail.com