Другие языки программирования и технологии

Подскажите пожалуйста как сделать елку в Паскале?

Есть код, но он делает елке только одну сторону, а мне надо чтобы была с двух сторон.

var c: char;

n,i,b,a:integer;

begin

c:='*';

b:=0;

for i:=10 downto 1 do

begin

b:=b+1;

for a:=b downto 1 do

write(c);writeln;begin

b:=b+1;

for a:=1 to b do

write(c);writeln;

end;

end;

readln;

end.
ЛВ
Лилёк Василёк
198
Sascha 21
Sascha 21
72 573
Лучший ответ
program grelka;
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clred);
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, clblue);
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.
Александр Павлидис
Александр Павлидис
95 933
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.
Миша Кукушкин
Миша Кукушкин
428
program p23;

uses graphabc;
begin
window.Title := 'Ель';
window.IsFixedSize := true;
setpencolor(clgreen);
line(175, 250, 250, 150);
line(250, 150, 325, 250);
line(325, 250, 175, 250);
line(250, 250, 150, 300);
line(250, 250, 350, 300);
line(350, 300, 150, 300);
line(250, 300, 150, 350);
line(250, 300, 350, 350);
line(150, 350, 350, 350);
setpencolor(clbrown);
setbrushcolor(clbrown);
rectangle(225, 350, 275, 400);
end.
Mr. Nobody
Mr. Nobody
356

Похожие вопросы