мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:modules [24/10/2009 11:27] – 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; | ||
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. | ||
</ | </ | ||
- | <code pascal|Оформление модуля> | + | <code pascal|Оформление модуля. Содержимое файла mygraph.pas> |
- | unit MyGraph; {заголовок модуля} | + | unit mygraph; {заголовок модуля} |
interface | interface | ||
Строка 74: | Строка 74: | ||
end; | end; | ||
- | begin {часть модуля, | + | begin {часть модуля, |
end. | end. | ||
</ | </ |