Fortran
DO i = 0,1
WRITE (*,*) (my_data(4 * i + j), j = 0, 3) TE MUESTRA LOS PRIMEROS VALORES DEL 1-4 EN LA PRIMERA FILA Y LUEGO TE ARROJADEL 5-8 EN LA SEGUNDA FILA
END DO
WRITE (*,*) ((my_data(4 * i + j), j = 0, 3), i = O , l) TE MUESTRA TODOS LOS VALORES DEL 1-8 EN UNA SOLA FILA
3. Asuma que values es un arreglo de 101elementos que contiene una lista de mediciones de un experimento científico, que ha sido declara por la instrucción
REAL, DIMENSION(-50:50) :: values Escriba un programa FORTRAN 90/95 que cuente lacantidad de valores positivos, negativos y cero en el arreglo y que muestre un mensaje que indique la cantidad de cada tipo de valor que se encontró.
PROGRAM CIENTIFICO
IMPLICIT NONE
REAL,DIMENSION(-50:50)::D
INTEGER::I,J,N,C1=0,C2=0,C3=0
WRITE(*,*)"CUANTOS VALORES"
READ(*,*)N
DO I=1,N
WRITE(*,*)"VALOR(",I,")="
READ(*,*)D(I)
END DO
DO I=1,N
IF(D(I)>0)THEN
C1=C1+1
ELSEIF(D(I)==0)THENC2=C2+1
ELSE
C3=C3+1
END IF
END DO
WRITE(*,*)"POSITIVOS",C1,"CEROS",C2,"NEGATIVOS",C3
PAUSE""
END PROGRAM CIENTIFICO
4. Un vector tridimensional puede ser representado en coordenadasrectangulares como
v = vxî + vyĵ + vzķ
donde vx es la componente del vector v en la dirección x, vy es la componente del vector v
en la dirección y, y vz es la componente del vector v en la dirección z.Un vector puede ser
almacenado en un arreglo de tres elementos, cada uno de los cuales será una representara
una dimensión en el sistema coordenado. La misma idea aplica a un vector n-dimensional.Un vector n-dimensional puede ser almacenado en un arreglo de n dimensiones.
Una operación matemática común entre dos vectores es el producto punto. El producto
punto de dos vectores v1 = vx1î +vy1ĵ + vz1ķ y v1 = vx2î + vy2ĵ + vz2ķ es una cantidad escalar
definida por la ecuación
v1 v2 = vx1 vx2 + vy1 vy2 + vz1 vz2
Escriba un programa FORTRAN 90/95 que lea dos vectores v1 y v2 en dos...
Regístrate para leer el documento completo.