Нарисовать кита - Pascal ABC (13182)
Формулировка задачи:
Здраствуйте. Сегодня должен сдать все работы, не хватает одной практической т.к не умею рисовать во всех проявлениях. Даже на командах в паскале. Сама суть задания нарисовать кита. Который самый последний на фото.
Решение задачи: «Нарисовать кита»
textual
Листинг программы
USES GraphABC;
BEGIN
SetWindowTitle('КИТ');
SetPenWidth(3);
SetWindowSize (500,500);
Arc (250,250,100,10,180);
Line (150,250,420,250);
Line (420,250,400,230);
Line (400,230,400,200);
Line (400,200,375,232);
Line (375,232,348,232);
FloodFill (250,230,clBlue);
Circle (230,190,10);
SetBrushColor (clBlack);
FillCircle (233,193,4);
SetBrushColor (clRed);
Arc (220,223,30,368,300);
SetBrushColor (clLightBlue);
END.
Объяснение кода листинга программы
- Импортируется библиотека GraphABC.
- Устанавливается заголовок окна
КИТ. - Устанавливается ширина пера в 3 единицы.
- Устанавливается размер окна в 500x500 единиц.
- Рисуется окружность с параметрами (250,250), радиус 100, высота 10, угол 180 градусов.
- Рисуется линия с параметрами (150,250), (420,250), (400,230), (400,200), (375,232), (348,232).
- Заполняется область цветом clBlue с помощью метода FloodFill.
- Рисуется окружность с параметрами (230,190), радиус 10 единиц.
- Устанавливается цвет кисти на черный.
- Заполняется окружность цветом clRed с помощью метода FillCircle.
- Рисуется окружность с параметрами (220,223), радиус 30 единиц, высота 368, угол 300 градусов.
- Устанавливается цвет кисти на clLightBlue.