Готовые рисунки
Прямоугольник и окружность различных цветов
Uses graphabc;
Begin
setwindowsize(640,480);
setpencolor(clBlue); {устанавливает голубой цвет пера для рисования контура прямоугольника}
setpenwidth(6); {устанавливает ширину пера}
rectangle(50,50,250,150);{рисует прямоугольник, заданный координатами противоположных вершин}
setpencolor(clred); {устанавливает красный цвет пера для рисования контура окружности}
circle(350,100,60); {рисует окружность с центром в точке с координатами (350,100) и радиусом 60}
End.
Прямоугольник и окружность различных цветов. Закрасить и подписать фигуры.
Uses graphabc;
Begin
setwindowsize(800,600);
clearwindow(clYellow); {устанавливает желтый цвет фона}
setpencolor(clteal);{устанавливает сине-зеленый цвет пера}
setpenwidth(5); {устанавливает ширину линии}
setbrushcolor(clolive); {устанавливает оливковый цвет кисти}
rectangle(100,100,300,200); {рисует закрашенный прямоугольник}
setbrushcolor(clblue); {устанавливает синий цвет кисти}
circle(400,150,50); {рисует закрашенный синим цветом круг}
setfontstyle(fsbold); {устанавливает стиль шрифта}
setfontsize(15); {устанавливает размер шрифта}
setbrushcolor(clwhite); {устанавливает белый цвет кисти}
setfontcolor(clolive); {устанавливает оливковый цвет шрифта}
textout(100,220,'Прямоугольник');
setfontcolor(clblue); {устанавливает синий цвет шрифта}
textout(380,220,'Круг');
End.
Треугольник линиями различных цветов.
Uses graphabc;
Begin
setwindowsize(640,480);
setpenwidth(5); {устанавливает ширину текущего пера. в скобках указывается количество пикселей, образующих ширину линии}
setpencolor(clred); {устанавливает красный цвет пера}
line(100,200,170,70); {рисует отрезок от точки с координатами (120,150) до точки с координатами с координатами (150,80)}
setpencolor(clGreen); {устанавливает зеленый цвет пера}
line(170,70,250,200);{рисует отрезок от точки(150,80)до точки(150,80)}
setpencolor(clBlue); {устанавливает синий цвет пера}
line(250,200,100,200);{рисует отрезок от точки(80,150)до точки(120,150)}
End.
Нарисовать и раскрасить снеговика.
Uses graphabc;
Begin
setwindowsize (640,480);
setwindowtitle('Снеговик');
setpencolor(clnavy);
setpenwidth(2);
setbrushcolor(clSilver);
circle(185,75,25); {шары}
circle(185,140,40);
circle(185,235,55);
ellipse(155,60,215,70); {ведро}
line(155,62,170,25);
line(170,25,200,25);
line(200,25,215,62);
floodfill(160,58,clnavy);
floodfill(185,53,clnavy);
setpencolor(clblack);
setpenwidth(4);
line(160,140,130,160); {руки}
line(220,140,257,140);
setbrushstyle(bsHorizontal);
setbrushcolor(clbrown);
setpencolor(clbrown);
setpenwidth(3);
rectangle(250,120,257,290); {веник}
setpenwidth(2);
line(250,120,230,82);
line(251,120,240,79);
line(253,120,250,78);
line(255,120,260,80);
line(257,120,270,82);
circle(172,76,3); {глаза}
circle(198,76,3);
setpencolor (clred);
rectangle(177,90,193,91); {рот}
setpencolor (clbrown);
line(180,80,190,80); {нос}
line(190,80,200,89);
line(200,89,180,80);
floodfill(190,83,clbrown);
setfontcolor(clred);
setfontstyle(fsbold);
setfontsize(10);
setbrushcolor(clwhite);
textout (10,10,'Happy New Year!');
End.
Треугольник и залитый произвольным цветом.
Uses graphabc;
Begin
setwindowsize(640,480);
clearwindow(clWhite); {очищает графическое окно белым цветом}
setpenwidth(3); {устанавливает ширину текущего пера}
setpenstyle(pssolid);{устанавливает стиль линии - сплошная линия}
setpencolor(clgreen); {устанавливает зеленый цвет пера}
line(100,200,170,70); {рисует линии зеленым цветом}
line(170,70,250,200);
line(250,200,100,200);
floodfill(150,120,clrandom); {Закрашивает треугольник цветом random}
End.