program picture; uses graph; const pathtodriver = 'd: \bp\bgi';  {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm :  integer; begin detectgraph(gd, gm);  {определим драйвер и режим} initgraph(gd, gm, pathtodriver);  {проинициализируем графику} if graphresult < >  grok then halt(1);  {если ошибка, завершим работу} setviewport(0,0,639,349,clipon);  {установим область рисования} clearviewport;  {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5);  moveto(170, 230);  lineto(170, 260);  moveto(160, 240);  lineto(170, 250);  lineto(180, 240);  moveto(160, 270);  lineto(170, 260);  lineto(180, 270);  {домик} moveto(230, 270);  lineto(230, 320);  lineto(290, 320);  lineto(290, 270);  lineto(260, 220);  lineto(230, 270);  lineto(290, 270);  moveto(250, 320);  lineto(250, 290);  lineto(270, 290);  lineto(270, 320);  putpixel(265, 305, white);  {дерево} circle(345, 175, 45);  rectangle(340, 220, 350, 320);  readln;  {задердка для просмотра} closegraph;  {выход из графического режима}end.
Популярные вопросы