1. Рисуем окружность радиусом 50 и центром в точке 100х100.
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
circle(100,100,50); {рисуем окружность радиуса 50 центром в точке (100;100)}
end.
Результат показан на рисунке.
2. Изменим радиус окружности с 50 на 60.
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
circle(100,100,60); {рисуем окружность радиуса 60 центром в точке (100;100)}
end.
3. Переместим окружность в середину экрана, предварительно рассчитав (приблизительно) координаты центра.
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
circle(300,200,60); {рисуем окружность радиуса 60 центром в точке (300;200)}
end.
Координаты центра примерно (300;200).
4. Добавим в текст команду, разрешающую рисовать другим цветом, отличным от белого. Для рисования цветом установим цвет пера с помощью символической константы.
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
SetPenColor(clRed); {устанавливаем цвет пера - красный}
circle(300,200,60); {рисуем окружность радиуса 60 центром в точке (300;200)}
end.
5. Закрасим окружность синим цветом.
Это можно сделать двумя способами: с помощью заливки и установив цвет кисти.
В первом случае устанавливается цвет пера, рисуется окружность, затем проводится заливка (функция FloodFill(х,у, color)). х и у – это координаты точки внутри закрашиваемой фигуры.
Во втором случае устанавливается цвет пера и цвет кисти, затем рисуется фигура, уже закрашенная.
Первый способ:
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
SetPenColor(clRed); {устанавливаем цвет пера - красный}
circle(300,200,60); {рисуем окружность радиуса 60 центром в точке (300;200)}
FloodFill(300,200, clBlue); {Первый способ – заливка области с центра}
end.
Второй способ:
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
SetPenColor(clRed); {устанавливаем цвет пера - красный}
SetBrushColor(clBlue); {Второй способ – установка цвета кисти}
circle(300,200,60); {рисуем окружность радиуса 60 центром в точке (300;200)}
end.
program graphic;
uses graphABC; {подключаем модуль GraphABC для работы}
begin
SetPenColor(clBlack); {устанавливаем цвет пера - черный}
{нижний шар}
circle(300,300,80); {рисуем окружность радиуса 80 центром в точке (300;300)}
FloodFill(300,300, clNavy); {заливка области темно-синим цветом}
{средний шар}
circle(300,160,60); {рисуем окружность радиуса 60 центром в точке (300;160)}
FloodFill(300,160, clLime); {заливка области ярко-зеленым цветом}
{верхний шар}
circle(300,60,40); {рисуем окружность радиуса 40 центром в точке (300;60)}
FloodFill(300,60, clFuchsia); {заливка области сиреневым цветом}
end.
program graphic;
uses graphABC; { подключаем модуль GraphABC для работы }
begin {начало основного блока операторов программы}
SetPenColor(clGreen); {установка цвета пера – зеленый цвет}
Line(100,400,200,300); {рисуем отрезок из точки (100;400) до точки (200;300)}
Line(200,300,150,300);
Line(150,300,210,250);
Line(210,250,180,250);
Line(180,250,220,200);
Line(220,200,260,250);
Line(260,250,230,250);
Line(230,250,300,300);
Line(300,300,250,300);
Line(250,300,350,400);
Line(350,400,100,400);
FloodFill(115,390,clGreen); {заливка области зеленым цветом с точки (115;390)}
End.
program graphic;
uses graphABC; { подключаем модуль GraphABC для работы }
begin {начало основного блока операторов программы}
SetPenColor(clGreen); {установка цвета пера - зеленый цвет}
Line(100,400,200,300); {рисуем отрезок из точки (100;400) до точки
(200;300)}
Line(200,300,150,300);
Line(150,300,210,250);
Line(210,250,180,250);
Line(180,250,220,200);
Line(220,200,260,250);
Line(260,250,230,250);
Line(230,250,300,300);
Line(300,300,250,300);
Line(250,300,350,400);
Line(350,400,100,400);
FloodFill(115,390,clGreen); {заливка области зеленым цветом с точки (115;390)}
SetBrushColor(clBrown);{устанавливаем коричневый цвет кисти}
Rectangle(212,400,232,500); {закрашенный прямоугольник внизу зеленой части елки}
End.
program graphic;
uses graphABC; { подключаем модуль GraphABC для работы }
begin {начало основного блока операторов программы}
SetPenColor(clGreen); {установка цвета пера - зеленый цвет}
Line(100,400,200,300); {рисуем отрезок из точки (100;400) до точки
(200;300)}
Line(200,300,150,300);
Line(150,300,210,250);
Line(210,250,180,250);
Line(180,250,220,200);
Line(220,200,260,250);
Line(260,250,230,250);
Line(230,250,300,300);
Line(300,300,250,300);
Line(250,300,350,400);
Line(350,400,100,400);
FloodFill(115,390,clGreen); {заливка области зеленым цветом с точки (115;390)}
SetBrushColor(clBrown);{устанавливаем коричневый цвет кисти}
Rectangle(212,400,232,500); {закрашенный прямоугольник внизу зеленой части елки}
SetPenColor(clNavy); {установка цвета пера - темно-синий цвет}
SetBrushColor(clBlue);{устанавливаем синий цвет кисти}
Rectangle(280,450,330,500); {синий домик}
SetBrushColor(clSkyBlue);{устанавливаем голубой цвет кисти}
Rectangle(295,460,315,480); {голубое окно}
Line(273,460,305,410); {скат крыши}
Line(305,410,337,460); {скат крыши}
FloodFill(305,415,clBlue); {заливка крыши}
Rectangle(299,430,311,442); {голубое окно на чердаке}
End.