Как сделать елку в Паскале?

Question

Саша Хныкин · Accepted Answer

program elka; 
uses graph, crt;

var g,h: integer;

begin

g := detect;

initgraph(g,h,'EGAVGA.BGI');

setcolor(2);

line(200,210,220,230);

line(220,230,180,230);

line(180,230,200,210);

line(200,230,230,250);

line(230,250,170,250);

line(170,250,200,230);

line(200,250,250,270);

line(250,270,150,270);

line(150,270,200,250);

line(200,270,270,290);

line(270,290,130,290);

line(130,290,200,270);

line(200,290,290,310);

line(290,310,110,310);

line(110,310,200,290);

readkey; 
end.

Мария Святова · Answer

У тебя два варианта: 
1. Сложный 
Научись писать программы, изучи язык программирования Pascal, нарисуй елку 
2. Простой 
Заплати тому кто это может сделать (например мне) и у тебя все будет

Жанна Содомова · Answer

program elka2017;
uses graphabc;
var
x:integer;

begin
rectangle(400,600,500,450);
setbrushcolor(clbrown);
floodfill(300,150,clgreen);
fillrect(400,600,500,450);
line(300,450,600,450);
line(600,450,450,300);
line(300,450,450,300);
line(450,300,300,300);
line(300,300,450,150);
line(450,300,600,300);
line(600,300,450,150);
line(450,150,300,150);
line(450,150,600,150);
line(600,150,450,30);
line(450,30,300,150);
floodfill(1,1,clblack);
///////////
circle(400,400,20);
circle(450,400,20);
circle(500,400,20);
circle(450,350,20);
///////////
circle(390,260,20);
circle(450,260,20);
circle(510,260,20);
circle(450,210,20);
/////////////////////////////////
circle(450,120,20);/////////////
circle(450,60,20);//////////////
circle(390,120,20);////////////
circle(510,120,20);///////////
x:=1;
repeat
floodfill(400,400,clred);
sleep(10);
floodfill(450,400,clnavy);
sleep(10);
floodfill(500,400,cllime);
sleep(10);
floodfill(450,350,clmoneygreen);
sleep(10);
floodfill(400,400,clolive); 
sleep(10);
floodfill(450,400,clteal);
sleep(10);
floodfill(500,400,clsilver);
sleep(10);
floodfill(450,350,clgray);
sleep(10);
floodfill(400,400,clskyblue);
sleep(10);
floodfill(450,400,clmaroon);
sleep(10);
floodfill(500,400,clpurple);
sleep(10);
floodfill(450,350,clolive);
sleep(10);
///////////////
floodfill(390,260,clred);
sleep(10);
floodfill(450,260,clnavy);
sleep(10);
floodfill(510,260,cllime);
sleep(10);
floodfill(450,210,clmoneygreen);
sleep(10);
floodfill(390,260,clolive); 
sleep(10);
floodfill(450,260,clteal);
sleep(10);
floodfill(510,260,clsilver);
sleep(10);
floodfill(450,210,clgray);
sleep(10);
floodfill(390,260,clskyblue);
sleep(10);
floodfill(450,260,clmaroon);
sleep(10);
floodfill(510,260,clpurple);
sleep(10);
floodfill(450,210,clolive);
sleep(10);
//////////////////////////
floodfill(450,120,clred);
sleep(10);
floodfill(450,60,clnavy);
sleep(10);
floodfill(390,120,cllime);
sleep(10);
floodfill(510,120,clmoneygreen);
sleep(10);
floodfill(450,120,clolive); 
sleep(10);
floodfill(450,60,clteal);
sleep(10);
floodfill(390,120,clsilver);
sleep(10);
floodfill(510,120,clgray);
sleep(10);
floodfill(450,120,clskyblue);
sleep(10);
floodfill(450,60,clmaroon);
sleep(10);
floodfill(390,120,clpurple);
sleep(10);
floodfill(510,210,clolive);
sleep(10);
setpencolor(clyellow);
setpenwidth(10);
line(450,30,450,0);
line(435,15,465,15);
 x:=x+1;
 until x=10000000000;

end.