vdb, если ООП плохой то почему все новые языки ОО? даже С был не ОО, а в С++ добавили ОО.новые языки ява, С#, ОО! почему тогда делают их ОО если так хуже?

ComatoZZZ, а в турбопаскале?

cHeRsAnYa1, нет :(, в делфи там же создается окно и на нем рисуешь, а паскать - это ж консоль, незнаю как.

cHeRsAnYa1, рисование точки - PutPixel(x,y: Integer; color : Word); x,y координаты color цвет . линия Line(x1,y1,x2,y2: Integer); x1,y1 начало x2,y2 конец . прямоугольник Rectangle(x1,y1,x2,y2); x1,y1 лев верх x2,y2 пр ниж углы

Circle(x,y: Integer;r: Word); окружность х,у коорд центра , r - радиус . SetColor(Color: Word); устанавливает цвет . А как картинку загрузить в буфер из файла сам хотел бы узнать

DeBuGgEr, пишу например line(100,100,200,200); пишет unknown identifier. И так со всеми.

cHeRsAnYa1, библиотеки какие то подключить наверно нужно

ComatoZZZ, только какую?

Какие вообще есть стандартные библыа в ТП?

cHeRsAnYa1, uses Graph , и ещё перед рисованием надо инициировать граф режим процедурой InitGraph(var driver,mode: Integer; path: String); Driver - тип граф драйвера mode - режим работы граф драйвера path - имя файла драйвера . CloseGraph закрывает граф режим

можно включить автоопределение драйвера driver := Detect; затем инициируем граф режим InitGraph(driver,mode, " " ); и можно рисовать

Кстати, кто не знал, паскаль (и другие дос программы) можно свернуть в окно алт+ентер, и обратно в фуллскрин также.