Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
Type имя файлового типа = File of тип элементов файла; 
Var имя файловой переменной : имя файлового типа; 
2. Установить связь между файловой переменной и файлом данных 
 
Assign (имя файловой переменной, ‘ имя диска: путь к имени 
файла данных на диске ‘); 
3.
Открыть файл для чтения 
Reset(имя файловой переменной); 
4. Прочитать файл с помощью процедуры 
Read(имя файловой переменной, имя читаемой переменной); 

---

175 
По этой процедуре читается очередной элемент файла и его зна-
чение присваивается имени читаемой переменной. После этого ука-
затель перемещается на следующую позицию файла. Если в процес-
се исполнения указатель будет установлен на позицию, в которой 
уже нет элементов файла, то возникает операция «конец файла» и 
чтение файла завершается. 
5. Закрыть файл. 
Close(имя файловой переменной). 
 
Примеры выполнения заданий 
 
Пример 1. Создайте файл под названием masc.dat, в котором 
будет находиться массив целых чисел. Пусть файл masc.dat будет 
находиться на диске с в папке Other. 
При составлении программы воспользуйтесь алгоритмом для со-
здания типизированного файла. 
Program Primer_1; 
Type celchisla=File of Integer; 
Var
f:celchisla;
{Имя файлового типа celchisla, имя файловой переменной f. 
Пункт 1} 
I,n,m:Integer; {Простые переменные} 
Begin 
Assign(f,’c:\Other\masc.dat’); { Пункт 2} 
Rewrite(f); { Пункт 3} 
Write(‘ Введите количество элементов файла‘); 
Read(n); 
Write(f,n); { Пункт 4. Запишем в файл f количество элемен-
тов массива n. Этот элемент в файле будет записан на 0 место.} 
For i:=1 to n do 
Begin 
{Вводим поочередно числа массива} 
Write(‘Введите ‘,i,’ –ое число ‘); 
Read(m); 
{Записываем каждое число в файл f} 
Write(f,m); {Пункт 4} 

---

176 
End; 
Close(f); { Пункт 5} 
End. 
Запишите эту программу в каталог Other под именем Stud1.pas. По-
сле выполнения этой программы в каталоге Other будет два файла: 
один хранит текст программы с именем Stud1.pas, и второй, массив 
введенных чисел с именем masc.dat.