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