мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версияПоследняя версияСледующая версия справа и слева | ||
pascal:modules [24/10/2009 11:27] – dnaumov | pascal:modules [02/12/2009 14:49] – dnaumov | ||
---|---|---|---|
Строка 4: | Строка 4: | ||
Модуль (Unit) - это отдельный файл. Как правило, | Модуль (Unit) - это отдельный файл. Как правило, | ||
- | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур GraphIni и GraphEnd соответственно. Эти процедуры записаны в модуле | + | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур |
<code pascal|Оформление программы> | <code pascal|Оформление программы> | ||
Строка 10: | Строка 10: | ||
uses | uses | ||
- | oglgraph, crt, MyGraph; | + | oglgraph, crt, mygraph; |
var x,y,vx,r : integer; | var x,y,vx,r : integer; | ||
Строка 16: | Строка 16: | ||
begin | begin | ||
- | GraphIni; {открываем графическое окно - процедура из модуля | + | GraphIni; {открываем графическое окно - процедура из модуля |
x:=getmaxx div 2; {начальные координаты объекта - середина экрана} | x:=getmaxx div 2; {начальные координаты объекта - середина экрана} | ||
y:=getmaxy div 2; | y:=getmaxy div 2; | ||
Строка 31: | Строка 31: | ||
until graphkeypressed; | until graphkeypressed; | ||
- | GraphEnd; {закрываем графическое окно - процедура из модуля | + | GraphEnd; {закрываем графическое окно - процедура из модуля |
end. | end. | ||
Строка 37: | Строка 37: | ||
<code pascal|Оформление модуля> | <code pascal|Оформление модуля> | ||
- | unit MyGraph; {заголовок модуля} | + | unit mygraph; {заголовок модуля} |
interface | interface | ||
Строка 74: | Строка 74: | ||
end; | end; | ||
- | begin {часть модуля, | + | begin {часть модуля, |
end. | end. | ||
</ | </ |