
| Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
![]() |
||
Pascal Graph
|
||
| Философия, технологии, алгоритмы! |
![]() |
|
|
Опции темы |
|
|
#2 |
|
virtual person
Сообщений: 73
Регистрация: 19.09.2003
|
Если ты имеешь в виду Borland Pascal 7.0 и ниже, то вот тебе пример из хелпа:
{Sample code for the Initgrf procedure.} uses Graph; var grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver := Detect; InitGraph(grDriver, grMode,''); ErrCode := GraphResult; if ErrCode = grOk then begin { Do graphics } Line(0, 0, GetMaxX, GetMaxY); Readln; CloseGraph; end else Writeln('Graphics error:', GraphErrorMsg(ErrCode)); end. остальное - RTFM. |
|
|