Контрольные вопросы:

1. Дайте определение физического файла.

2. Дайте определение логического файла.

3. Приведите примеры описаний текстовых файлов.

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

5. Определите алгоритм записи файла.

6. Обозначьте алгоритм чтения файла.

7. Охарактеризуйте алгоритм перезаписи файла.

8. Назовите основные отличия текстовых файлов от файлов строкового типа.

9. Чем отличаются и что общего между процедурами Read(f, s) и Readln(f, s)?

10. Чем отличаются и что общего между процедурами Write(f, s) и Writeln(f, s)?

Рекомендуемая литература: 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.8, 2.3, 2.4, 2.5.

Лабораторная работа №6 Тема: Движение графических объектов

Цель: изучить применение графических функций и циклических операторов для организации движения графических объектов в Pascal.

Вид работы: индивидуальный.

Время выполнения: 2 часа.

Теоретические сведения:

Перед использованием графических процедур и функций необходимо произвести инициализацию графики с помощью процедуры Initgraph(D, M, P).D– переменная, в которую необходимо записать код требуемого графического драйвера или нуль, если требуется автоматическое определение драйвера;M– переменная, в которую процедура помещает код графического режима;P– строка, содержащая путь к драйверу (если строка пустая, считается, что драйвер находится в текущем каталоге).

Завершает работу в графическом режиме и осуществляет переход в текстовый режим процедура Closegraph.

Как правило, для перемещения используются различные виды циклов, в которых изменяются необходимые координаты объекта. Например, для перемещения окружности по горизонтали можно привести следующий фрагмент программы (строки пронумерованы для пояснений):

{1} For i:=1 to 200 do

{2} Begin

{3} Setcolor(red);

{4} Circle (i, 200, 50);

{5} For j:=1 to 300 do s:=s+cos(j);

{6} Setcolor(black);

{7} Circle(i, 200,50);

{8} End;

Прокомментируем каждую строку:

{1} параметрический цикл для изменения координаты x от 1 пикселя до 200 пикселей с шагом 1 пиксель;

{2} начало тела цикла;

{3} устанавливаем цвет рисования окружности – красный;

{4} рисуем окружность красного цвета с центром в точке (i, 200) и радиусом 50 пикселей;

{5} данный цикл применяется в том случае, если не подключается модуль CRT и, следовательно, нет возможности использовать процедуру DELAY(N). Эта строка предназначена для загрузки процессора вычислениями (пока процессор выполняет действия, пользователь может видеть на экране графической объект);

{6} устанавливаем цвет рисования окружности – чёрный;

{7} рисуем окружность чёрного цвета с центром в точке (i, 200) и радиусом 50;

{8} завершение параметрического цикла.

В итоге мы получаем перемещение окружности по горизонтали посредством перерисовки объекта цветом фона.

Ход работы:

1. проверьте наличие файлов с расширением bgi в каталоге BGI;

2. укажите в меню Options в пункте Directories путь к файлам bgi;

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

4. решите задачи;

5. оформите листинги программ в тетрадь;

6. третье задания являются дополнительными.