Question

Нарисуйте ёлочку в программе Pascal

Answer 1

uses Graphabc;

begin

SetwindowWidth(600);

setwindowheight(400);

SetPenWidth(2);

setpencolor(clblack);

circle(500,100,50);

floodfill(500,100,clyellow);

line(250,100,300,50);

line(300,50,350,100);

line(350,100,250,100);

floodfill(300,70,clgreen);

line(225,200,300,100);

line(300,100,375,200);

line(375,200,225,200);

floodfill(300,150,clgreen);

line(200,300,300,200);

line(300,200,400,300);

line(400,300,200,300);

floodfill(300,250,clgreen);

rectangle(285,300,315,325);

floodfill(300,310,clbrown);

line(0,300,100,350);

line(100,350,200,325);

line(200,325,400,325);

line(400,325,600,375);

line(600,375,2000,375);

floodfill(50,350,clgreen);

end.

Answer 2

К сожалению, в моих возможностях нет функции непосредственной визуализации или рисования. Однако я могу предоставить вам пример кода на Pascal для вывода простой ёлочки из символов в консоли. Ниже приведен пример кода:

pascalCopy code
program DrawChristmasTree;

const
  TreeHeight = 5; // Высота ёлочки

var
  i, j: integer;

procedure DrawSpaces(num: integer);
begin
  for j := 1 to num do
    write(' ');
end;

procedure DrawStars(num: integer);
begin
  for j := 1 to num do
    write('*');
end;

begin
  for i := 1 to TreeHeight do
  begin
    DrawSpaces(TreeHeight - i);
    DrawStars(2 * i - 1);
    writeln;
  end;
  
  // Рисуем ствол ёлочки
  DrawSpaces(TreeHeight - 1);
  writeln('#');
end.

При запуске этой программы в Pascal, она выведет ёлочку следующего вида:

markdownCopy code
    *
   ***
  *****
 *******
*********
    #

Обратите внимание, что в данном примере высота ёлочки задается константой TreeHeight. Вы можете изменить значение этой константы, чтобы получить ёлочку большей или меньшей высоты.