- •Программирование на языке паскаль Учебное пособие
- •1. Общая характеристика языков программирования
- •1.1. Языки программирования
- •1.2. Трансляторы
- •1.3. История создания языков
- •1.4. Базовые структуры языков программирования
- •Контрольные вопросы
- •2. Описание языка паскаль
- •2.1. Основные объекты языка
- •2.2. Структура Паскаль-программы
- •2.3. Типизация данных
- •2.4. Объявление данных
- •Контрольные вопросы
- •3. Простые операторы. Ввод/вывод данных
- •3.1. Оператор присваивания и выражения
- •3.2. Операторы вызова процедур. Ввод/вывод данных
- •3.2.1. Процедуры ввода read и readln
- •Общая форма записи оператора
- •3.2.2. Процедуры вывода write и writeln
- •Контрольные вопросы
- •Каково назначение процедуры writeln без параметров? Задания для самостоятельной работы
- •Варианты заданий
- •Дополнительные задания
- •4. Структурные операторы. Организация ветвлений и циклов
- •4.1. Составной и пустой операторы
- •4.2. Организация ветвлений. Операторы выбора
- •4.2.1. Оператор ветвления if
- •4.2.2. Оператор варианта case
- •Общая форма записи
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •Дополнительные задания
- •4.3. Организация циклов. Операторы повторения
- •4.3.1. Оператор while
- •4.3.2. Оператор repeat
- •4.3.3. Оператор for
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •5. Организация подпрограмм. Процедуры и функции
- •5.1. Процедуры и их типизация
- •5.1.1. Встроенные процедуры
- •5.1.2. Процедуры пользователя
- •5.1.3. Процедуры без параметров
- •5.1.4. Фактические и формальные параметры
- •5.1.5. Локальные и глобальные переменные
- •5.1.6. Процедуры с параметрами-значениями
- •5.1.7. Процедуры с параметрами-переменными
- •5.1.8. Комбинированные процедуры
- •5.2. Функции пользователя. Рекурсивные функции
- •5.2.1. Определение функции
- •О бщая форма записи заголовка функции
- •5.2.2. Функции пользователя
- •5.2.3. Рекурсивные функции
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •Дополнительные задания
- •6. Массивы. Данные типа array
- •Одномерные массивы
- •Общая форма записи
- •Общая форма записи
- •6.2. Многомерные массивы
- •6.3. Способы работы с массивами
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •Дополнительные задания
- •Обработка литерных величин. Данные типа char и string
- •7.1. Тип данных char
- •Работа программы
- •7.2. Массивы литер
- •7.3. Тип данных string
- •7.4. Строковые функции и процедуры
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •Дополнительные задания
- •8. Множества. Данные типа set
- •О бщий вид регулярного типа
- •8.1. Определение типа set
- •8.2. Операции над множествами
- •8.2.1. Принадлежность множеству
- •8.2.2. Сравнение множеств
- •8.2.3. Действия над множествами
- •8.3. Вывод множеств
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •9. Комбинированный тип. Данные типа record
- •9.1. Оператор типа record
- •9.2. Оператор with
- •9.3. Записи с вариантами
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •10. Файловый тип
- •10.1. Определение и описание типизированного файла
- •Общая форма записи
- •10.2. Типы файлов. Процедура работы с файлами
- •10.3. Основные приемы работы с файлами
- •10.4. Текстовые файлы
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Типизированные файлы
- •Текстовые файлы
- •Программирование графики
- •Основные понятия компьютерной графики
- •Формирование изображения на экране
- •Инициализация графического режима
- •Простейшие графические операторы (процедуры)
- •Основные приемы работы с графикой
- •Работа с цветом
- •Заполнение (закрашивание) произвольной замкнутой фигуры
- •Построение простейших геометрических фигур
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Варианты заданий
- •Библиографический список
Общая форма записи
TYPE <имя файлового типа> = FILE OF <тип компонент>;
VAR <имя файла> : <имя файлового типа>;
или
VAR <имя файла> : FILE OF <тип компонент>;
П р и м е р :
type AZMORZE = (TOCHKA, TIRE); MESSAGE = file of AZMORZE; var TELEGRAM : MESSAGE;
var PISMO : file of char; F : file of integer.
Здесь тип компонент может быть любым, кроме файлового типа.
Итак, в последнем примере определена F – переменная файлового типа. Это означает, что в файл могут быть записаны только целые числа. Обратите внимание, что здесь никак не упоминается точное число элементов, которые можно записать в файл. Это можно делать постоянно, хотя в реальности объем памяти, отведенный под запись файла, когда-то кончится (есть предел!).
10.2. Типы файлов. Процедура работы с файлами
По своей связи с работающей программой файлы бывают внутренними и внешними.
Внешние файлы – это файлы, имена которых включены в список заголовка программы и которые существуют вне программы, т.е. находятся на внешних носителях (дисках). Такие файлы заполнены заранее, записаны на дискету и могут быть использованы различными программами. Как уже было сказано выше, их имена должны быть объявлены в заголовке программы:
program OBRABOTKA (...,MESSAGE, PISMO,...);
Внутренние файлы – это файлы, имена которых не внесены в заголовок программы. Они существуют только во время исполнения программы. Работа с ними идет одинаково, только внутренний файл пропадает после окончания работы программы.
Мы знаем, что каждый тип Паскаля имеет свой набор операций, определенный типом компонент этого объекта. Для внутренних файлов, рассматриваемых как единое целое, никаких операций нет – ни сравнения файлов, ни операции присваивания. Можно работать только с отдельными компонентами, и эта работа зависит от типа компонент файла. Для доступа к отдельным компонентам файла в Паскале введены стандартные процедуры RESET, REWRITE, READ, WRITE, CLOSE и функции EOLN и EOF.
Обращение к ним идет с помощью процедур-операторов. Все эти процедуры тем или иным образом связаны с установкой режима работы с заданными файлами (чтением или записью). При этом происходит следующее:
чтение – присваивание переменной значения компоненты файла;
запись – запись значения переменной в конец файла.
Для удобства описания этих действий введено понятие «окно файла», или просто «окно». Окно определяет позицию доступа, т.е. компоненту файла, которая доступна для чтения (в режиме чтения), для записи (в режиме записи). Последняя позиция файла помечается специальным образом, что определяет конец файла.
Для работы с файлами в режиме чтения и записи используются операторы REWRITE, WRITE, RESET, READ и EOF. Рассмотрим их синтаксис и назначение.
REWRITE (F) – установка окна в начальное положение режима записи.
F |
|
|
|
|
|
|
^ |
|
|||
|
окно |
|
WRITE (F, X) – записывает в файл F (где сейчас стоит окно) очередную компоненту, равную значению выражения X, после чего окно сдвигается вправо на следующую позицию файла.
F |
F1 |
F2 |
F3 |
|
|
|
F1 |
F2 |
F3 |
X |
|
|
|
|
|
^ |
|
|
|
|
|
|
^ |
|
|
|
|
окно |
|
|
|
|
|
|
окно |
|
|
|
|
|
|
|
|
|
|
|
|
RESET (F) – перевод в режим чтения и установка окна на первую позицию файла.
F |
|
|
|
|
|
|
^ |
|
|
|
|
|
окно |
|
|
|
|
|
|
|
|
|
|
READ (F, V) – переменной V присваивается значение текущей позиции файла F, и окно перемещается на следующую позицию.
-
F
F1
F2
F3
F4
…
F1
F2
F3
F4
…
^
^
окно
V = F4
окно
Процедуры RESET и READ осуществляют чтение из файла!
Процедуры REWRITE и WRITE осуществляют запись в файл!
Примечание. Файл открывается либо только для записи, либо для чтения. Одновременно это делать нельзя!
При работе с файлами необходимо знать конец файла. Это делает логическая функция EOF:
EOF (F) = FАLSE, если конец файла не достигнут;
EOF (F) = TRUE – признак конца файла.
Функция EOF неразрывно связана с окном файла, которое всегда «смотрит» на одну из компонент файла. Эта функция всегда имеет определенное значение в зависимости от местонахождения окна файла. При заполнении файла последняя ее компонента всегда снабжается признаком конца. Пустой файл имеет единственную компоненту, содержащую признак конца файла.
П р и м е р . Расшифровка текста.
Пусть все буквы от A до Z имеют коды от 65 до 90. Имеется файл SHIFRTEXT, состоящий из чисел от 65 до 90. Напечатать расшифрованный текст.
program RASSHIFROVKA (shfrtxt);
type KOD = 65..90;
LITERA = 'A'..'Z';
SHIFR = file of KOD;
var x: KOD;
y: LITERA;
SH: SHIFR;
begin
assign (sh,' shfrtxt ');
reset (SH);
while not eof (SH) do
begin
read (SH, x);
y := chr (x);
write(y);
end;
close(sh);
end.
End.
program KODIROVKA;
type KOD = 65..90;
SHIFR = file of KOD;
var x: KOD;
SH: SHIFR;
begin
assign (SH 'shfrtxt');
rewrite (SH);
read (x);
while x<> 00 do
begin
write (SH, x);
read (x);
end;
write (y);
end;
close (SH);
end.
Пояснение. В рассмотренном примере программа RASSHIFROVKA производит расшифровку строки числовых кодов файла SHFRTXT, сформированного с помощью программы KODIROVKA. В программе KODIROVKA предусмотрен непрерывный ввод кодов – двузначных чисел от 65 до 90, разделяемых пробелом. Признаком конца ввода является код 00.
В обеих программах фигурируют операторы ASSIGN и CLOSE, о назначении которых речь пойдет в п. 10.5.