Ввод элементов одномерного массива A(N) из текстового файла

!----------------------------------------------

Ввод по имени массива

!----------------------------------------------

integer::f=1

open(unit=f,file='Lab7.txt')

read(f,*) A

close(f)

integer f/1/;

open(unit=f,file='Lab7.txt');

read(f,*) A;

close(f);

open(unit=1,file='Lab7.txt')

read(1,*) A

close(1)

open(2,file='Lab7.txt');

read(2,*) A;

close(2);

!----------------------------------------------

Ввод с использованием циклического элемента

!----------------------------------------------

integer::f=1

open(unit=f,file='Lab7.txt')

read(f,*) (A(I),I=1,N)

close(f)

integer f/1/;

open(unit=f,file='Lab7.txt');

read(f,*) (A(I),I=1,N);

close(f);

open(unit=1,file='Lab7.txt')

read(1,*) (A(I),I=1,N)

close(1)

open(2,file='Lab7.txt');

read(2,*) (A(I),I=1,N);

close(2);

!----------------------------------------------

Ввод с использованием цикла DO-ENDDO

!----------------------------------------------

INTEGER::f=1

OPEN(unit=f,file='Lab7.txt')

DO I=1,N,1

READ(f,*) A(I)

ENDDO

CLOSE(f)

INTEGER f/1/;

OPEN(unit=f,file='Lab7.txt');

DO I=1,N,1;

READ(f,*) A(I);

ENDDO;

CLOSE(f);

OPEN(unit=1,file='Lab7.txt')

DO I=1,N,1

READ(1,*) A(I)

ENDDO

CLOSE(1)

OPEN(3,file='Lab7.txt');

DO I=1,N,1;

READ(3,*) A(I);

ENDDO;

CLOSE(3);

!----------------------------------------------

Ввод с использованием цикла DO с меткой на последнем операторе тела цикла

!----------------------------------------------

integer::f=1;

open(unit=f,file='Lab7.txt');

do 6 i=1,N

6 read(f,*) A(i);

close(f)

integer f/1/

open(unit=f,file='Lab7.txt')

do 6 i=1,N

6 read(f,*) A(i)

close(f)

open(unit=1,file='Lab7.txt');

do 6 i=1,N;

6 read(1,*) A(i);

close(1);

open(2,file='Lab7.txt')

do 6 i=1,N

6 read(2,*) A(i)

close(2)

!----------------------------------------------

Ввод с использованием цикла DO с меткой на операторе CONTINUE

!----------------------------------------------

INTEGER::f=1

OPEN(unit=f,file='Lab7.txt')

DO 4 I=1,N

READ(f,*) A(I)

4 CONTINUE

CLOSE(f)

INTEGER f/1/;

OPEN(unit=f,file='Lab7.txt');

DO 4 I=1,N

READ(f,*) A(I);

4 CONTINUE;

CLOSE(f);

OPEN(unit=1,file='Lab7.txt')

DO 4 I=1,N

READ(1,*) A(I)

4 CONTINUE

CLOSE(1)

OPEN(4,file='Lab7.txt');

DO 4 I=1,N;

READ(4,*) A(I);

4 CONTINUE;

CLOSE(4);

Чтение двумерного массива b(n,m) из текстового файла

!----------------------------------------------

Ввод по имени массива

!----------------------------------------------

integer::f=1

open(unit=f,file='lab7.txt')

read(f,*) b

close(f)

integer f/1/

open(unit=f,file='lab7.txt')

read(f,*) b

close(f)

open(unit=7,file='lab7.txt')

read(7,*) b

close(7)

open(5,file='lab7.txt')

read(5,*) b

close(5)

!----------------------------------------------

Ввод с использованием циклических элементов

!----------------------------------------------

integer::f=1

open(unit=f,file='lab7.txt')

read(f,*) ((b(i,j),j=1,m,1),i=1,n,1)

close(f)

integer f/1/

open(unit=f,file='lab7.txt')

read(f,*) ((b(i,j),j=1,m),i=1,n)

close(f)

open(unit=7,file='lab7.txt')

read(7,*) ((b(i,j),j=1,m,1),i=1,n,1)

close(7)

open(4,file='lab7.txt')

read(4,*) ((b(i,j),j=1,m),i=1,n)

close(4)

!----------------------------------------------

Ввод с использованием комбинации циклического элемента для внутреннего цикла и цикла DO-ENDDO для внешнего цикла

!----------------------------------------------

integer::f=1

open(unit=f,file='lab7.txt')

do i=1,n

read(f,*) (b(i,j),j=1,m)

enddo

close(f)

integer f/1/

open(unit=f,file='lab7.txt')

do i=1,n

read(f,*) (b(i,j),j=1,m)

enddo

close(f)

open(unit=3,file='lab7.txt')

do i=1,n

read(3,*) (b(i,j),j=1,m)

enddo

close(3)

open(7,file='lab7.txt')

do i=1,n

read(7,*) (b(i,j),j=1,m)

enddo

close(7)

!----------------------------------------------

Ввод с использованием циклов DO-ENDDO

!----------------------------------------------

integer::f=1

open(unit=f,file='lab7.txt')

do i=1,n

do j=1,m

read(f,*) b(i,j);

enddo;

enddo;

close(f)

integer f/1/

open(unit=f,file='lab7.txt')

do i=1,n

do j=1,m

read(f,*) b(i,j);

enddo;

enddo;

close(f)

open(unit=3,file='lab7.txt')

do i=1,n

do j=1,m

read(3,*) b(i,j);

enddo;

enddo;

close(3)

open(3,file='lab7.txt')

do i=1,n

do j=1,m

read(3,*) b(i,j);

enddo;

enddo;

close(3)

!----------------------------------------------