Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать

Question

Информатика

Мелеша

7 октября, 18:21

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать

+1

Ответы (1)

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

Мироша · Answer 1

Вот программа с елкой:

Uses GraphABC;

Begin

SetWindowSize (600,400) ;

line (250,100, 300,50) ;

lineto (350,100) ;

lineto (250,100) ;

floodfill (300,70, clgreen) ;

line (220,200, 300,100) ;

lineto (380,200) ;

lineto (220,200) ;

floodfill (300,150, clgreen) ;

line (200,300, 300,200) ;

lineto (400,300) ;

lineto (200,300) ;

floodfill (300,250, clgreen) ;

rectangle (290, 300,310, 320) ;

floodfill (300,305, clbrown) ;

line (0, 300, 100, 350) ;

lineto (200, 320) ;

lineto (400, 320) ;

lineto (600, 370) ;

lineto (600,400) ;

lineto (0,400) ;

lineto (0,300) ;

end.