Напишите программу для данного рисунка - Pascal

Формулировка задачи:

Напишите программу для данного рисунка:

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

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ