мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:modules [22/10/2009 15:03] – dnaumov | pascal:modules [24/04/2010 12:29] (текущий) – dnaumov | ||
---|---|---|---|
Строка 2: | Строка 2: | ||
FIXME | FIXME | ||
- | <code pascal|Оформление модуля - своей библиотеки> | + | Модуль (Unit) - это отдельный файл. Как правило, |
+ | |||
+ | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур // | ||
+ | |||
+ | <code pascal|Оформление | ||
+ | program moving; | ||
+ | |||
+ | uses | ||
+ | oglgraph, crt, mygraph; | ||
+ | |||
+ | var x,y,vx,r : integer; | ||
+ | |||
+ | |||
+ | begin | ||
+ | GraphIni; {открываем графическое окно - процедура из модуля | ||
+ | x:=getmaxx div 2; {начальные координаты объекта | ||
+ | y:=getmaxy div 2; | ||
+ | vx:=1; {скорость движения} | ||
+ | r:=50; {радиус | ||
+ | repeat | ||
+ | clearviewport; | ||
+ | SetFillStyle(4, | ||
+ | FillEllipse(x, | ||
+ | graphSwapBuffers; | ||
+ | delay(10); | ||
+ | x:=x+vx; | ||
+ | if (x+r> | ||
+ | until graphkeypressed; | ||
+ | |||
+ | GraphEnd; {закрываем графическое окно - процедура | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | <code pascal|Оформление модуля. Содержимое файла mygraph.pas> | ||
unit mygraph; {заголовок модуля} | unit mygraph; {заголовок модуля} | ||
interface | interface | ||
Строка 12: | Строка 46: | ||
{заголовки доступных из программы процедур} | {заголовки доступных из программы процедур} | ||
- | Procedure | + | Procedure |
Procedure GraphEnd; | Procedure GraphEnd; | ||
implementation {содержимое модуля - сами процедуры и функции} | implementation {содержимое модуля - сами процедуры и функции} | ||
- | Procedure | + | Procedure |
begin | begin | ||
| | ||
Строка 40: | Строка 74: | ||
end; | end; | ||
- | begin {часть модуля, | + | begin {часть модуля, |
end. | end. | ||
</ | </ |