Здесь нет полной теории по работе с графикой, ниже только пример программы, показывающий основные команды. Дальше вы можете посмотреть в любой книжке или поискать в интернете, какие бывают еще команды.
{$mode delphi} uses graph; var i,j:smallint; x,y:integer; begin initgraph(i,j,''); for x:=0 to 3 do for y:=0 to 3 do begin setcolor(x*4+y); if (x<>3)or(y<>3) then circle(x*30+200, y*30+200, 100); end; setcolor(15); line(90,90, 400,90); line(400,90, 400,400); line(400,400, 90,400); line(90,400, 90,90); readln; end.
algoprog.ru © Петр Калинин, GNU AGPL, github.com/petr-kalinin/algoprog | О лицензии на материалы сайта | Блог