Читайте также:
|
|
Местоимение some (немного, некоторое количество) употребляется перед неисчисляемыми существительными в утвердительных предложениях, например: I have got some water. У меня есть вода. В вопросительных и отрицательных предложениях вместо some употребляется местоимение any. Have you got any water? I haven’t got any water. или I have no water.
+ body (лицо) | + thing (предмет) | + where (место) | |
some | somebody кто-либо | something что-либо | somewhere где-либо |
any | anybody | anything | anywhere |
no | nobody никто | nothing ничто | nowhere нигде |
every | everybody каждый | everything каждый | everywhere везде |
Графика в паскале.
Графические функции паскаля описаны в модуле GRAPH. Модуль подключается к программе с помощью ключевого слова USES.
Пример:
Основные процедуры и функции модуля GRAPH.
Процедура InitGraph инициирует перевод видеоадаптера в видеорежим. Общий вид:
InitGraph(Driver,Mode,Path);Driver - параметр, определяющий графический драйвер; 0 - автоопределение,9 - VGA.
Mode - параметр, задающий один из графических режимов. Для VGA 0 - 640X200 16 цветов, 1- 640Х350 16 цветов, 2 - 640Х480 16 цветов. Если стоит автоопределение, то параметр Mode надо задавать, выбор будет сделан в пользу максимально возможного из режимов.
Path - имя файла и путь графического драйвера. Указывать надо только путь. Обычно в Паскале используется egavga.bgi. Он расположен в каталоге(например): D:\tp7\BGI\
Пример:
Замечание редактора: указанный пример не будет работать, так как первые два аргумента у процедуры InitGraph - параметры-переменные. То есть, числа 9 и 2 надо поместить в переменные типа Integer, и имена этих переменных ставить в качестве первых двух аргументов:
Процедура DetectGraph - тестирует аппаратуру и определяет, какой графический драйвер и режим (максимально допустимые) подходят для данного видеоадаптера.
Общий вид:
Driver - параметр, определяющий подходящий тип графического драйвера.
Mode - параметр, задающий один из графических режимов, поддерживаемых данным драйвером.
Пример
Если видеоадаптер не был найден, то переменная Driver вернет значение -2.
Функция GraphResult - возвращает код ошибки графической операции, выполнявшейся последней.
Общий вид:
Пример
USES GRAPH VAR H,k,l: INTEGER; BEGIN DetectGrahp(k,l); InitGraph(k,l,'d:\tp7\bgi\'); H:=GraphResult; If h=0 then write('OK') else Write('Error'); END.Значения возвращаемые GraphResult:
 0 - без ошибок
-1 - не инициализирован граф. режим
-2 - не удалось определить тип адаптера
-3 - не обнаружен файл с драйвером
-4 - Обнаруженный файл не содержит соответствующего драйвера
-5 - недостаточно памяти для загрузки драйвера
-6 - недостаточно памяти для просмотра областей
-7 - недостаточно памяти для заполнения областей
-8 - не обнаружен файл со шрифтом
-9 - недостаточно памяти для загрузки шрифта
-10 - недопустимый режим для выбранного драйвера
-11 - общая ошибка
-12 - ошибка ввода-вывода
-13 - неверный формат шрифта
-14 - неверный номер шрифта
Функция GraphErrorMsg - возвращает текст, по-английски, сообщения об ошибке.
Пример.
Процедура RestoreCrtMode - осуществляет переход в видеорежим (текстовый), который использовался до перехода в графический режим. Не освобождает память и не сбрасывает параметры графического режима.
Пример.
Процедура SetGraphMode - устанавливает для используемого драйвера новый графический режим и очищает экран. Переходит в один из доступных режимов для данного драйвера (в отличие от InitGraph). Общий вид:
SetGraphMode(Mode);Mode - целое число от 0 до 5, определяющее режим. С помощью SetGraphMode можно переходить в другой графический режим, отличный от используемого. Совместно с процедурой RestoreCrtMode может использоваться, чтобы временно и быстро переходить из графического в текстовый режим и обратно.
SetGraphMode устанавливает для всех графич. параметров (палитра, цвет, и т. п.) значения по умолчанию, заданные для данного режима.
Функция GetGraphMode - возвращает числовой код используемого в данный момент графического режима. Для VGA это 0,1 или 2.
Пример
Функция GetModeName - возвращает строку с именем используемого графического режима.
Пример.
Функция GetDriverName - возвращает имя (без расширения) используемого в данный момент драйвера.
Пример.
или
...Write('Драйвер', GetDriverName);...Функция GetMaxMode - возвращает код предельного графического режима загруженного драйвера, в котором может работать графический адаптер.
Пример.
Процедура GetModeRange - возвращает диапазон допустимых графических режимов для указанного драйвера.
Общий вид:
Driver - код графического драйвера, MinMode - код <минимального> режима, MaxMode - код предельно допустимого режима для данного драйвера.
Пример.
Процедура CloseGraph - Восстанавливает видеорежим (текстовый), использовавшийся до перехода в графический режим, освобождает память от графических буферов и драйвера.
Пример.
Дата добавления: 2014-12-19; просмотров: 32 | Поможем написать вашу работу | Нарушение авторских прав |