мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
pascal:modules [22/10/2009 15:29] – dnaumovpascal:modules [24/04/2010 12:29] (текущий) – dnaumov
Строка 4: Строка 4:
 Модуль (Unit) - это отдельный файл. Как правило, он находится в том же каталоге, что и основная программа. Модули нужны для облегчения своего нелегкого труда программиста. Если Вы планируете использовать одну и туже процедуру в своих программах, то пора задуматься о написании модуля! Модуль (Unit) - это отдельный файл. Как правило, он находится в том же каталоге, что и основная программа. Модули нужны для облегчения своего нелегкого труда программиста. Если Вы планируете использовать одну и туже процедуру в своих программах, то пора задуматься о написании модуля!
  
-Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур GraphIni и GraphEnd соответственно. Эти процедуры записаны в модуле MyGraph. На экране Вы увидите окружность, которая двигается. +Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур //GraphIni// и //GraphEnd// соответственно. Эти процедуры записаны в модуле //mygraph//. На экране Вы увидите окружность, которая двигается. 
  
-<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
-  GrapIni; {открываем графическое окно - процедура из модуля MyGraph}+  GraphIni; {открываем графическое окно - процедура из модуля mygraph}
   x:=getmaxx div 2; {начальные координаты объекта - середина экрана}   x:=getmaxx div 2; {начальные координаты объекта - середина экрана}
   y:=getmaxy div 2;   y:=getmaxy div 2;
Строка 31: Строка 31:
    until graphkeypressed;    until graphkeypressed;
  
-  GraphEnd; {закрываем графическое окно - процедура из модуля MyGraph}+  GraphEnd; {закрываем графическое окно - процедура из модуля mygraph}
 end. end.
  
 </code> </code>
  
-<code pascal|Оформление модуля> +<code pascal|Оформление модуля. Содержимое файла mygraph.pas>> 
-unit MyGraph; {заголовок модуля}+unit mygraph; {заголовок модуля}
 interface       interface      
  
Строка 74: Строка 74:
 end; end;
  
-begin {часть модуля, которая исполняется при вызове его из программы}+begin {часть модуля, которая исполняется при вызове его из программы в разделе uses}
  
 end. end.
 </code> </code>