Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Megabyte

Пользователь


Сообщения: 114
Благодарности: 2

Профиль | Отправить PM | Цитировать


Во-первых, у тебя должен быть файл egavga.bgi в том же каталоге, что и твоя программа (это что-то типа графического драйвера)
Код: Выделить весь код
uses Graph;
....
Var
   i, j: integer;
Begin
  i:=0; // Графический режим, 0 - автоопределение
  InitGraph(i, j, '') // Вместо '' может быть путь к egavga.bgi
  ......  // Рисование ...
  CloseGraph; // Переход в текстовый режим

-------
Слова следует взвешивать, а не считать.
(Восточная пословица)


Отправлено: 07:30, 05-03-2003 | #3