Информатика

InitGraph. При этом переменным Gd и Gm необходимо указать значение Detect, описанной в модуле Graph для втоматического распознавания типа адаптера. Третий параметр процедуры InitGraph - путь до файла с загрузочным модулем драйвера bgi. Если путь отсутствует, то поиск этого файла будет осуществляться в текущей директории. Для выхода из графического режима используется стандартная процедура CloseGraph. Эта процедура восстанавливает режим, существовавший до инициализации графики.

• Для создания графических изображений модуль Graph предоставляет широкий набор процедур и функций. Рассмотрим точки и линии.
• 1. PutPixel(X,Y:integer;Color:word) - ставит на экране точку с координатами (X,Y) цвета Color.
• 2. Line(X1,Y1,X2,Y2:integer) - выводит на экран линию, соединяющую точки с координатами (X1,Y1) и (X2,Y2).
• 3. Rectangle(X1,Y1,X2,Y2:integer) - выводит на экран изображение прямоугольника с координатами диагонали (X1,Y1) и (X2,Y2).
• 4. Circle(X,Y:integer;Radius) - выводит на экран изображение окружности с координатами центра (X,Y) и радиусом (Radius).

• 3. Нестандартные модули
• Заголовок модуля состоит из зарезервированного слова unit и имени модуля. Имя модуля должно быть единственным. Модуль должен быть помещен в файл, имя которого совпадает с именем модуля, а его расширение - .pas.
• Пример заголовка: UNIT mod;
• Имя модуля не может состоять более чем из восьми символов.

• Интерфейсная часть начинается словом interface. Через интерфейс осуществляется взаимодействие основной программы с модулем (модуля с модулем).
• В интерфейсе указываются константы, типы, переменные, процедуры и функции, которые могут быть использованы основной программой (модулем) при вызове этого модуля.
• В разделе объявления процедур и функций указываются лишь заголовки подпрограмм. Сами подпрограммы приводятся в исполнительной части.

• Пример 3.
• Составить модуль для пересчета весовых долей парафиновых
• Углеводородов СnH2n+2 по формуле
• m.d.i =( v.d.i/Mi)/Сумма(v.d.i/Mi) и средний молекулярный вес углеводородов МS.
• i=1,..,6
• Mi=12*i+2*i+2

• unit Mol; имя модуля
•