Var driver,mode:integer;

t:real;

L:Line;

S:Square;

C:Circle;

Begin

driver:=detect;

InitGraph(driver,mode,'');

t:=0;

L.Init(160,250,75);

S.Init(320,250,75);

C.Init(480,250,75,10);

repeat

L.Move(t);

S.Move(-2*t);

C.Move(1.5*t);

delay(50);

t:=t+0.05;

until keypressed or (t>10000);

Closegraph;

end.

Литература

1. Фаронов В.В. Турбо Паскаль (в 3-х книгах). Книга 1. Основы Турбо Паскаля. - М.: «МВТУ - ФЕСТО ДИДАКТИК», 1992.-304 с., ил.

Содержание

Аннотация........................................................................................................................................2

Введение............................................................................................................................................3

Литература................................................................................................................................... 27

Списокпримеров.

Пример 1. Использование параметра Self. 4

Пример 2. Доступ к полям данных из основной программы. 4

Пример 3. Инициализация полей объекта специальным методом. 5

Пример 4. Использование типизированных констант (аналог записи) для инициализации полей объекта. 5

Пример 5. Наследование. Полиморфизм. Раннее связывание. 6

Пример 6. Позднее связывание. Виртуальные методы. 8

Пример 7. Динамический объект со статическим полем без деструктора. 10

Пример 8. Динамический объект с динамическим полем и деструктором. 10

Пример 9. Динамический объект с динамическим полем и контролем выделяемой памяти. 11

Пример 10. Статический объект с динамическим полем и контролем распределения памяти в куче. 11

Пример 11. Описание объекта «Список» и встроенного объекта «Элемент списка». 13

Пример 12. Программа, тестирующая работу объекта «Список». 14

Пример 13. Библиотека объектов для создания меню программы "Записная книжка". 17

Пример 14. Описание базы данных для программы «Записная книжка». 21

Пример 15. Программа «Записная книжка». 22

Пример 16. Программа создания движущихся изображений. 24