Смелова В.Н. 11 класс

Работа с пером SetPenColor(Color); установить цвет пера SetPenWidth(n); установить ширину пера Заливка замкнутых областей кистью SetBrushColor(color); цвет замкнутой области (круг, прямоугольник) FloodFill(x,y,color); (x,y) -любая точка из замкнутой обл.

Стандартные цвета color clBlack – черный, clPurple – фиолетовый, clWhite – белый, clRed – красный, clGreen – зеленый, clBrown – коричневый, clBlue – синий, clSkyBlue – голубой, clYellow – желтый, clCream – кремовый, clFuchsia – сиреневый, clGray – серый,

Пример 1. Uses GraphAbc; Begin SetWindowSize (500,300); SetPenWidth(15); //Установка толщины пера SetPenColor (clRed) ; //Установка красного цвета пера Line(150,400,300,100); //Рисование отрезка красным цветом SetPenColor (clGreen); //Установка зеленого цвета пера Line(300,100,450,400); //Рисование отрезка зеленым цветом SetPenColor (clBlue); //Установка синего цвета пера Line(450,400,150,400); //Рисование отрезка синим цветом End.

Пример 2. Uses GraphAbc; Begin SetWindowSize (500,500); SetPenWidth(15); SetPenColor (clRed) ; Line (150,400,300,100); SetPenColor (clGreen); Line (300,100,450,400); SetPenColor (clBlue); Line (450,400,150,400); //Фрагмент Примера 1 FloodFill (400,350,clYellow); End.

Пример 3. Uses GraphAbc; Begin SetWindowSize (350,350); SetPenWidth (6); SetPenColor (clRed); SetBrushColor (clGreen); Rectangle (50,50,290,290); SetBrushColor (clPurple); Circle (170,170,120); SetBrushColor (clFuchsia); Rectangle(90,90,250,250); End.

Пример 4. Uses GraphAbc; Begin SetWindowSize (400,400); SetPenWidth (6); SetPenColor (clRed); Line (40,200,200,40); Line (200,40,360,200); Line (360,200,200,360); Line (200,360,40,200); FloodFill (200,200,clFuchsia); SetBrushColor (clGreen); Circle (200,200,110); End.

Выполните задание: