2015-07-02
512
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.txt')
do 5 i=1,n,1
do 5 j=1,m,1
5 read(f,*) b(i,j)
close(f)
integer f/1/
open(unit=f,file='lab7.txt')
do 5 i=1,n,1
do 5 j=1,m,1
5 read(f,*) b(i,j)
close(f)
open(unit=3,file='lab7.txt')
do 5 i=1,n,1
do 5 j=1,m,1
5 read(3,*) b(i,j)
close(3)
open(10,file='lab7.txt')
do 5 i=1,n,1
do 5 j=1,m,1
5 read(10,*) b(i,j)
close(10)
!----------------------------------------------
Ввод с использованием циклов DO с меткой на операторах CONTINUE
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.txt')
do 3 i=1,n,1
do 9 j=1,m,1
read(f,*) b(i,j)
9 continue
3 continue
close(f)
integer f/1/
open(unit=f,file='lab7.txt')
do 3 i=1,n,1
do 9 j=1,m,1
read(f,*) b(i,j)
9 continue
3 continue
close(f)
open(unit=1,file='lab7.txt')
do 3 i=1,n,1
do 9 j=1,m,1
read(1,*) b(i,j)
9 continue
3 continue
close(1)
open(7,file='lab7.txt')
do 3 i=1,n,1
do 9 j=1,m,1
read(7,*) b(i,j)
9 continue
3 continue
close(7)
!----------------------------------------------
Ввод с использованием циклов DO с меткой на одном операторе CONTINUE, который является последним для обоих циклов
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.txt')
do 4 i=1,n
do 4 j=1,m
read(f,*) b(i,j)
4 continue;
close(f)
integer f/1/
open(unit=f,file='lab7.txt')
do 4 i=1,n
do 4 j=1,m
read(f,*) b(i,j)
4 continue;
close(f)
open(unit=1,file='lab7.txt')
do 4 i=1,n
do 4 j=1,m
read(1,*) b(i,j)
|
|
|
4 continue;
close(1)
open(3,file='lab7.txt')
do 4 i=1,n
do 4 j=1,m
read(3,*) b(i,j)
4 continue;
close(3)
!----------------------------------------------
Ввод с использованием одного цикла DO с меткой на последнем операторе (read) и цикла с оператором CONTINUE в конце
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.txt')
do 100 i=1,n
do 8 j=1,m,1
8 read(f,*) b(i,j);
100 continue
close(f)
integer f/1/
open(unit=f,file='lab7.txt')
do 100 i=1,n
do 8 j=1,m,1
8 read(f,*) b(i,j);
100 continue
close(f)
open(unit=3,file='lab7.txt')
do 100 i=1,n
do 8 j=1,m,1
8 read(3,*) b(i,j);
100 continue
close(3)
open(8,file='lab7.txt')
do 100 i=1,n
do 8 j=1,m,1
8 read(8,*) b(i,j);
100 continue
close(8)
Вывод двумерного массива b(n,m) в текстовый файл
!----------------------------------------------
Вывод по имени массива
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.out')
write(f,*) b
close(f)
integer f/1/
open(unit=f,file='lab7.out')
write(f,*) b
close(f)
open(unit=7,file='lab7.out')
write(7,*) b
close(7)
open(5,file='lab7.out')
write(5,*) b
close(5)
!----------------------------------------------
Вывод с использованием циклических элементов
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.out')
write(f,*) ((b(i,j),j=1,m,1),i=1,n,1)
close(f)
integer f/1/
open(unit=f,file='lab7.out')
write(f,*) ((b(i,j),j=1,m,1),i=1,n,1)
close(f)
open(unit=7,file='lab7.out')
write(7,*) ((b(i,j),j=1,m,1),i=1,n,1)
close(7)
open(4,file='lab7.out')
write(4,*) ((b(i,j),j=1,m,1),i=1,n,1)
close(4)
!----------------------------------------------
Вывод с использованием комбинации циклического элемента для внутреннего цикла и цикла DO-ENDDO для внешнего цикла
!----------------------------------------------
integer::f=1
open(unit=f,file='lab7.out')
do i=1,n
write(f,*) (b(i,j),j=1,m)
enddo
close(f)
integer f/1/
open(unit=f,file='lab7.out')
do i=1,n
write(f,*) (b(i,j),j=1,m)
enddo
close(f)
open(unit=3,file='lab7.out')
do i=1,n
write(3,*) (b(i,j),j=1,m)
enddo
close(3)
open(7,file='lab7.out')
do i=1,n
write(7,*) (b(i,j),j=1,m)
enddo
close(7)
!----------------------------------------------
Вывод с использованием циклов DO-ENDDO
!----------------------------------------------
integer::f=1
|
|
|
open(unit=f,file='lab7.out')
do i=1,n
do j=1,m
write(f,*) b(i,j);
enddo;
enddo;
close(f)
integer f/1/
open(unit=f,file='lab7.out')
do i=1,n
do j=1,m
write(f,*) b(i,j);
enddo;
enddo;
close(f)
open(unit=3,file='lab7.out')
do i=1,n
do j=1,m
write(3,*) b(i,j);
enddo;
enddo;
close(3)
open(3,file='lab7.out')
do i=1,n
do j=1,m
write(3,*) b(i,j);
enddo;
enddo;
close(3)
!----------------------------------------------
