В паскале нужно нарисовать дерево елочка дерево. Все должно быть в одном окне

Question

Информатика

Светозар

8 апреля, 11:48

В паскале нужно нарисовать дерево елочка дерево. Все должно быть в одном окне

+3

Ответы (1)

Знаете ответ на вопрос?

Жеша · Answer 1

Uses

GraphABC;

begin

SetPenColor (ClGreen) ;

Line (100,100,120,140) ;

Line (100,100,80,140) ;

Line (80,140,120,140) ;

Line (100,140,70,190) ;

Line (100,140,130,190) ;

Line (70,190,130,190) ;

Line (100,190,50,250) ;

Line (100,190,150,250) ;

Line (50,250,150,250) ;

FloodFill (100,160, clGreen) ;

FloodFill (100,130, clGreen) ;

FloodFill (100,200, clGreen) ;

Line (300,100,320,140) ;

Line (300,100,280,140) ;

Line (280,140,320,140) ;

Line (300,140,270,190) ;

Line (300,140,330,190) ;

Line (270,190,330,190) ;

Line (300,190,250,250) ;

Line (300,190,350,250) ;

Line (250,250,350,250) ;

FloodFill (300,160, clGreen) ;

FloodFill (300,130, clGreen) ;

FloodFill (300,200, clGreen) ;

Line (500,100,520,140) ;

Line (500,100,480,140) ;

Line (480,140,520,140) ;

Line (500,140,470,190) ;

Line (500,140,530,190) ;

Line (470,190,530,190) ;

Line (500,190,450,250) ;

Line (500,190,550,250) ;

Line (450,250,550,250) ;

FloodFill (500,160, clGreen) ;

FloodFill (500,130, clGreen) ;

FloodFill (500,200, clGreen) ;

end.