- •Лабораторная работа № 7 текстовые файлы
- •Постановка задачи:
- •Типовой вариант
- •Порядок выполнения работы
- •2. Найти разность r между максимальным и минимальным элементами массива Содержание работы
- •Варианты заданий Задача 1
- •Лабораторная работа № 7 текстовые файлы
- •Постановка задачи:
- •Исходные величины представить в виде внешнего текстового файла, ввести их из файла и вывести в другой текстовый файл и на экран в формате.
- •Ввести исходный массив из текстового файла. Вывести его в естественном виде. Выполнить задание. Результаты вывести в другой текстовый файл. Вариант № 1
- •(Контрольные вопросы – правильные варианты ответов)
- •1) Ввод по имени массива
- •2) Ввод с использованием циклического элемента
- •3) Ввод с использованием цикла do-enddo
- •4) Ввод с использованием цикла do с меткой на последнем операторе тела цикла
- •5) Ввод с использованием цикла do с меткой на операторе continue
- •1) Ввод по имени массива
- •2) Ввод с использованием циклических элементов
- •3) Ввод с использованием комбинации циклического элемента для внутреннего цикла и цикла do-enddo для внешнего цикла
- •4) Ввод с использованием циклов do-enddo
- •5) Ввод с использованием цикла do с меткой на последнем операторе тел циклов
- •6) Ввод с использованием циклов do с меткой на операторах continue
- •7) Ввод с использованием циклов do с меткой на одном операторе continue, который является последним для обоих циклов
- •8) Ввод с использованием одного цикла do с меткой на последнем операторе (read) и цикла с оператором continue в конце
- •1) Вывод по имени массива
- •2) Вывод с использованием циклических элементов
- •3) Вывод с использованием комбинации циклического элемента для внутреннего цикла и цикла do-enddo для внешнего цикла
- •4) Вывод с использованием циклов do-enddo
- •5) Вывод с использованием цикла do с меткой на последнем операторе тел циклов
- •6) Вывод с использованием циклов do с меткой на операторах continue
- •7) Вывод с использованием циклов do с меткой на одном операторе continue, который является последним для обоих циклов
- •8) Вывод с использованием одного цикла do с меткой на последнем операторе (write) и цикла с оператором continue в конце
- •1) Вывод по имени массива
- •2) Вывод с использованием циклического элемента
- •3) Вывод с использованием цикла do-enddo
- •4) Вывод с использованием цикла do с меткой на последнем операторе тела цикла
- •5) Вывод с использованием цикла do с меткой на операторе continue
3) Ввод с использованием комбинации циклического элемента для внутреннего цикла и цикла 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)
!----------------------------------------------
4) Ввод с использованием циклов 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)
!----------------------------------------------
5) Ввод с использованием цикла do с меткой на последнем операторе тел циклов
!----------------------------------------------
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)
!----------------------------------------------
6) Ввод с использованием циклов 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)
!----------------------------------------------
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)
!----------------------------------------------