Пример 7. Var f: file of char; X: longint

Var f: file of char; X: longint;

begin

Assign (f, ‘a.pas’);

Reset (f);

X:= fileSize (f);

WriteLn (‘размер файла ’,x,’байт’);

Seek (f, x div 2); { указатель в середину файла}

WriteLn (‘Позиция в середине: ’, filePos(f));

Close (f);

end.

В этой программе типизированная файловая переменная ассоциируется с файлом a.pas из каталога BIN. Этот файл с текстом программы на Т.Р., который имеется в составе интегрированной среду программирования и содержится в указанном каталоге. Этот каталог является текущим. Т.е. при связывании файла с файловой переменной можно даже не указывать путь. После данный файл открывается, определяется его размер и указатель становится в середину файла. Затем файл закрывается.

Постановка задачи

Набрать предложенные программы и разобраться в их работе.

1. Составить полную цепочку команд для создания простого текстового файла.

2. Вычислить факториал чисел 1, 2, 3 … 10 и вывести от введённого значения (PRN или CON).

3. Используя строковую процедуру Val(s,t,code) для преобразования текстовой информации, составить программу получения звуковых сигналов.

4. Вычислить сумму элементов файла myfile.dat.

5. Составить программу проверки существования файла на диске.

Вопросы к защите лабораторной работы № 3

1. Что такое файл?

2. Для каких целей применяются файлы?

3. Характерные особенности файлов?

4. Какие устройства компьютера Т.Р. использует наряду с файлами? Каковы логические имена этих устройств?

5. Зачем используется специальная файловая переменная?

6. Какие процедуры служат для открытия файлов? Их общие черты и отличие?

7. Зачем применяется процедура Close?

8. Для каких целей используется специальная функция IOResult?

9. Назначение процедуры Append. Назначение и отличительные особенности процедур Read и Write от Readln и Writeln.

5 Лабораторная работа № 4. Процедуры и функции модуля System

Цель работы: Познакомиться с процедурами работы с каталогами. Научиться создавать, переименовывать и удалять каталоги, помещать файл в нужный каталог, переносить файл из одного каталога в другой.

5.1 Ход работы:

1) Изучить теоретический материал по теме лабораторной работы (лекции, учебник).

2) Запустить интегрированную среду программирования Т.Р. и набрать текст составленной программы.

3) Составить и откомпилировать программу, согласно постановке задачи.

4) Запустить программу на выполнение.

5) Отредактировать программу и сохранить ее на диске А под именем lab4.pas.

6) Распечатать результаты работы программы.

7) Составить отчет по работе.

8) Защитить работу.

5.2 Содержание отчёта

Отчет по лабораторной работе должен содержать:

1) тему работы;

2) цель работы;

3) ход работы;

4) постановку задачи;

5) распечатку программ;

6) результаты работы программ.