Mostar por pantalla la cantidad de columnas de una matriz
Publicado por Nick (1 intervención) el 17/05/2021 06:13:48
Buenos días a todos, estoy realizando un código que determine el numero de filas y columnas de una matriz, cunado lo ejecuto efectivamente si me determina el numero de filas pero el número de columnas me sale 0 tal como inicialice el contador, quisiera saber si no es mucha molestia en que estoy errando.
Adjunto el archivo datos.txt
aunque es una matriz sencilla:
11 22
33 44
55 66
77 88
Agradezco mucho de antemano.
Adjunto el archivo datos.txt
aunque es una matriz sencilla:
11 22
33 44
55 66
77 88
Agradezco mucho de antemano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program fich
real :: b(4,2)
integer :: i,j
OPEN(UNIT=1,FILE='datos.txt',STATUS='OLD')
k=0
do i=1,4
read(1,*,end=15) b(i,:)
k=k+1
enddo
15 WRITE(*,*) 'La matriz tiene', k, 'filas'
a=0
do j=1,2
read(1,*,end=20) b(i,j)
a=a+1
enddo
20 WRITE(*,*) 'La matriz tienee', a, 'columnas'
close(1)
end program fich
- datos.zip(225,0 B)
Valora esta pregunta


0