Напишите программу для данного рисунка - 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.

Объяснение кода листинга программы

  1. Устанавливается размер окна программы с помощью функции SetWindowSize(800,600).
  2. Рисуется кораблик с помощью команд line, задающих координаты для отрисовки. Заливаются цветом с помощью FloodFill для создания изображения.
  3. Рисуется книга с помощью команд line, задающих координаты для отрисовки.
  4. Рисуется звезда с помощью команд line, задающих координаты для отрисовки. Заливается цветом с помощью FloodFill для создания изображения.
  5. Рисуется свеча с помощью команд line и MoveTo/LineTo, задающих координаты для отрисовки. Заливается цветом с помощью FloodFill для создания изображения.
  6. Рисуется месяц с помощью команд Arc для рисования части окружности. Заливается цветом с помощью FloodFill для создания изображения.
  7. Задается шрифт для текста и сам текст выводится на экран с помощью TextOut. Вся программа рисует изображения (кораблик, книга, звезда, свеча, месяц) на графическом окне с помощью набора команд для рисования и заполнения цветом.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы