мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:modules [20/11/2009 12:53] – dnaumov | pascal:modules [24/04/2010 12:29] (текущий) – dnaumov | ||
---|---|---|---|
Строка 4: | Строка 4: | ||
Модуль (Unit) - это отдельный файл. Как правило, | Модуль (Unit) - это отдельный файл. Как правило, | ||
- | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур GraphIni и GraphEnd соответственно. Эти процедуры записаны в модуле | + | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур |
- | <code pascal|Оформление программы> | + | <code pascal|Оформление программы. Содержимое файла moving.pas> |
program moving; | program moving; | ||
Строка 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. | ||
</ | </ | ||
- | <code pascal|Оформление модуля> | + | <code pascal|Оформление модуля. Содержимое файла mygraph.pas> |
unit mygraph; {заголовок модуля} | unit mygraph; {заголовок модуля} | ||
interface | interface | ||
Строка 74: | Строка 74: | ||
end; | end; | ||
- | begin {часть модуля, | + | begin {часть модуля, |
end. | end. | ||
</ | </ |