Var а, в : array[1..N, 1..N] of integer;

К, М, I, J : INTEGER;

BEGIN

WRITE('BBEДИTE РАЗМЕР МАТРИЦЫ М =');

READLN (M);

WRITELN('ИCXOДНАЯ МАТРИЦА');

K:=1;

FOR I := 1 TO M DO

FOR J := 1 TO M DO

BEGIN

A[l, J] := K;

К := K+1;

IF J<M THEN WRITE(A[I, J]: 4)

ELSE WRITELN(A[I, J]: 4)

END;

WRITELN('MATPИЦA ПОСЛЕ ПРЕОБРАЗОВАНИЯ');

FOR I := 1 TO M DO

FOR J := 1 TO M DO

BEGIN

B[l, J] := A[M+1-J, M+1-1];

IF J<M THEN WRITE(B[I, J]: 4)

ELSE WRITELN(B[I, J]: 4)

END;

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим размеры массива А и присваиваем значения его эле­ментам;

- присваиваем значения элементам матрицы В и выводим их на экран.

Переменные:

А, В - двумерные массивы;

М - количество строк и столбцов массива;

I, J - переменные цикла;

К - вспомогательная переменная.

Практические задания

1. Дан массив целых чисел М х М. Найти все самые нижние максимальные элементы по столбцам и вывести на экран их значения и местоположение.

2. Даны два массива символов М х К и М х Т. Объединить их столбцы так, чтобы в массиве-результате в первой строке эле­менты получились упорядоченными по возрастающей.

3. Дан массив чисел М х М. Определить, сколько в нем пар со­седних одинаковых элементов. Элементы считаются соседни­ми, если их индексы в столбцах и/или в строках различаются не более чем на единицу.

4. Дан массив чисел М х М. Вводится произвольный массив чи­сел К х К. Известно, что К существенно меньше, чем М. Оп­ределить, сколько раз второй массив встречается в первом.

Тема 8 Работа с файлами

Одним из типов данных в PASCAL является файловый тип, Представляющий собой последовательность однотипных компо­нентов, расположенных на внешнем носителе. Тип этих компо­нентов может быть любой, за исключением типа-файла.

В PASCAL файловые переменные используются для ввода-вывода информации.

Перед тем как осуществлять ввод-вывод, файловая переменная должна быть связана с конкретным внешним файлом с помощью процедуры ASSIGN. Этим файлом может быть файл на магнитном диске или ленте, а также устройство вычислительного комплекса (клавиатура, экран дисплея, принтер и т. д.). Затем файл должен быть открыт для чтения и/или записи. После этого можно осуще­ствлять организацию ввода-вывода.

В PASCAL 7.0 имеется 3 категории файлов, работа с которыми отличается друг от друга:

- текстовые (тип TEXT);

- типизированные (FILE OF <тип>);

- файлы без типа (FILE).

Обычно все файлы считаются файлами последовательного дос­тупа. Обратите внимание: для типизированных файлов и файлов без типа с помощью процедуры SEEK можно установить режим произвольного доступа. При этом нумерация компонентов файла начинается с нуля. После работы с файлом он должен быть закрыт процедурой CLOSE.

В табл. 8.1 приведены стандартные процедуры и функции для всех файлов.

Таблица 8.

Процедуры и функции для всех файлов	Назначение
ASSIGN (F, NAME)	Связь файловой переменной F с внешним файлом NAME. NAME - переменная или константа типа STRING, CHAR или совместимого типа. Имя типа должно быть написано в соответствии с правилами MS DOS, может включать путь и не должно превышать 79 символов. Если строка имени пустая, осуществляется связь со стандартным файлом ввода или выво­да (как правило, консолью)
CHDIR (PATH)	Изменение текущей директории. Устанавливает новый текущий каталог, путь к которому (включая, быть может, имя устрой­ства) находится в параметре PATH
CLOSE (F)	Закрытие открытого файла
ERASE (F)	Уничтожение внешнего файла
GETDIR(N, S)	Получение текущего каталога накопителя. В переменную S записывается текущий каталог накопители, номер которого указан параметром N. Параметр N имеет следующие значения: О - текущий накопитель, 1 - накопитель А:, 2 - накопитель В: и т. д.
MKDIR(PATH)	Создание каталога
RENAME(F, NEW)	Переименование внешнего файла
RESET (F[, SIZE])	Открытие существующего файла. Открывается существующий файл, с которым связана файловая переменная F, и указатель те­кущего компонента файла настраивается на на­чало файла. Необязательный параметр целого ти­па SIZE используется только с файлами без типа и задает размер пересылаемого элемента инфор­мации в байтах (по умолчанию 128)
REWRITE(F[, SIZE])	Открывается новый пустой файл, и ему при­сваивается имя, заданное процедурой ASSIGN. Если файл с таким именем уже существует, то он уничтожается
RMDIR(PATH)	Удаление пустого каталога
EOF(F)	Конец файла
IORESULT	Результат последней операции ввода-вывода. Возвращает число 0, если операция ввода-вывода завершилась успешно, и другое число -в противном случае. После применения этой функции параметр со­стояния последней операции ввода-вывода сбрасывается в нуль

Текстовые файлы представляют собой совокупность символов, разделенных на строки, причем в конце каждой строки стоит признак конца строки.

Особенностью работы с текстовыми файлами является то, что параметры, значения которых вводятся и выводятся с помощью процедур READ или WRITE, могут быть не только типа CHAR или STRING, но и других простых типов:

- целых, вещественных типов при вводе;

- целых, вещественных, логических типов при выводе.

Эти процедуры могут также работать и с ASCII-строками.

Имеется две стандартные файловые переменные для текстовых файлов, которые автоматически открываются при запуске про­граммы и автоматически закрываются после работы:

INPUT - по умолчанию связанная с клавиатурой;

OUTPUT - по умолчанию связанная с экраном дисплея.

Если при работе с файлами типа TEXT в процедуре или функ­ции не указана файловая переменная, считается, что используется файловая переменная INPUT или OUTPUT. Текстовый файл мо­жет быть открыт либо для чтения процедурой RESET, либо для записи процедурой REWRITE или APPEND.

Описание процедур и функций для работы с текстовыми фай­лами приведено в табл. 8.2.

Таблица 8.2

Процедуры и функции для текстовых файлов	Назначение
APPEND (F)	Открытие файла для добавления в конец информации
FLUSH (F)	Освобождение буфера выходного файла. Информация из буфера вывода записыва­ется в файл, с которым связана файловая переменная F
READ (F, <список>)	Чтение из файла
READLN(F, <список>)	Чтение строки из файла
SETTEXTBUF(F, BUF [, SIZE])	Назначение буфера ввода-вывода. Для файла, с которым связана файловая переменная F, назначается буфер ввода-вывода в виде переменной BUF любого типа
WRITE(F, <список>)	Запись в файл
WRITELN(F, <список>)	Запись строки в файл
EOLN(F)	Конец строки файла
SEEKEOF(F)	Конец файла
SEEKEOLN(F)	Конец строки файла, пропускает в конце строки символы пробела и табуляции

При работе с типизированными файлами используются дополни­тельные процедуры и функции, представленные в табл. 8.3.

Таблица 8.3

Процедуры и функции для типизированных файлов	Назначение
READ(F, <список>)	Чтение из файла компонентов указанного типа
SEEK(F, NUM)	Настройка на требуемый компонент файла с указанным номером
TRUNCATE(F)	Удаление части файла начиная с текущего компонента
WRITE(F, <список>)	Запись в файл компонентов указанного типа
FILEPOS(F)	Возвращает номер текущего компонента файла
FILESIZE(F)	Возвращает текущий размер файла

При работе с файлами без типа используются дополнительные процедуры и функции, представленные в табл. 8.4.

Таблица 8.4

Процедуры и функции для файлов без типа	Назначение
BLOCKREAD(F, BUF, N [, RESULT])	Чтение из файла компонентов
SEEK(F, NUM)	Настройка на требуемый компонент фай­ла с указанным номером
TRUNCATE(F)	Удаление части файла начиная с текуще­го компонента
BLOCKWRITE(F, BUF, N [, RESULT])	Запись в файл компонентов указанного типа
FILEPOS(F)	Возвращает номер текущего компонента файла
FILESIZE(F)	Возвращает текущий размер файла

Рассмотрим несколько задач. Пусть заданы два файла, содержимое которых приведено

на рис. 8.1.

Файл ONE	Файл TWO
1 3 5 6 7 8 2 3 3 3 3 4 6 4 4 4 2 2 2 2 2 2 5 1 1 1 1 1 1 6 5 6 6 6 6 6 7 2 1	qqwerr ttttt аа ss dddd s d f g . h j s d ffffff

Рис. 8.1. Файлы ONE и TWO

Задача 8.1 Считать файл ONE, удвоив каждый его элемент через пробел.

Для решения этой задачи опишем файлы ввода и вывода как текстовые. Файл ONE был создан ранее и наполнен данными, Привяжем его к файловой переменной F1 и откроем этот файл на чтение:

ASSIGN(F1, 'ONE');

RESET(F1);

Переменную F2 свяжем со стандартным устройством вывода - эк­раном дисплея с помощью пустой строки и откроем его на вывод:

ASSIGN(F2, '');

REWRITE(F2);

Вместо дисплея можно указать имя любого файла в формате DOS.

Затем организуем цикл по считыванию элементов файла F1 и записи их через пробел в файл F2 до тех пор, пока не будет най­ден конец файла F1 с помощью функции EOF(Fl).

После окончания работы закроем оба файла.

PROGRAM PRG8J;