Напишите программу для данного рисунка - Pascal
Формулировка задачи:
Напишите программу для данного рисунка:
Решение задачи: «Напишите программу для данного рисунка»
textual
Листинг программы
uses GraphAbc; begin SetWindowSize(800,600); //Кораблик line (129,194,249,72); line(247,71,246,232); line(104,235,359,235); line(103,235,167,304); line(167,304,292,303); line(292,303,361,234); line(127,192,246,196); line(248,153,305,154); line(305,154,250,72); FloodFill(206,149,clBlue); FloodFill(264,127,clBlue); FloodFill(233,271,clRed); //Книга line(399,286,498,288); line(498,288,542,232); line(542,232,511,373); line(511,372,469,423); line(469,423,499,288); line(399,286,367,427); line(367,427,467,425); //Звезда line(514,151,531,145); line(531,145,538,122); line(538,122,543,143); line(543,143,561,151); line(561,151,542,157); line(542,157,538,182); line(538,182,533,158); line(533,158,516,151); FloodFill(538,153,clYellow); // Свеча line(623,222,623,242); line(613,244,633,245); line(633,245,633,406); line(633,406,613,407); line(613,407,614,245); line(590,130,610,152); line(624,136,624,107); line(640,156,656,134); MoveTo(626,152); LineTo(625,155); LineTo(625,155); LineTo(619,162); LineTo(616,166); LineTo(612,171); LineTo(609,178); LineTo(607,185); LineTo(607,194); LineTo(608,204); LineTo(610,210); LineTo(613,217); LineTo(617,220); LineTo(621,223); LineTo(625,221); LineTo(632,216); LineTo(636,212); LineTo(637,189); LineTo(637,179); LineTo(634,172); LineTo(631,164); LineTo(631,159); LineTo(627,151); FloodFill(620,193,clYellow); //Месяц Arc(435,162,50,90,270); Arc(445,162,50,90,270); FloodFill(390,162,clYellow); SetFontName('Times New Roman'); SetFontSize(30); TextOut(295,29,'Вариант 10.'); end.
Объяснение кода листинга программы
- Устанавливается размер окна программы с помощью функции
SetWindowSize(800,600)
. - Рисуется кораблик с помощью команд
line
, задающих координаты для отрисовки. Заливаются цветом с помощьюFloodFill
для создания изображения. - Рисуется книга с помощью команд
line
, задающих координаты для отрисовки. - Рисуется звезда с помощью команд
line
, задающих координаты для отрисовки. Заливается цветом с помощьюFloodFill
для создания изображения. - Рисуется свеча с помощью команд
line
иMoveTo
/LineTo
, задающих координаты для отрисовки. Заливается цветом с помощьюFloodFill
для создания изображения. - Рисуется месяц с помощью команд
Arc
для рисования части окружности. Заливается цветом с помощьюFloodFill
для создания изображения. - Задается шрифт для текста и сам текст выводится на экран с помощью
TextOut
. Вся программа рисует изображения (кораблик, книга, звезда, свеча, месяц) на графическом окне с помощью набора команд для рисования и заполнения цветом.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д