Question

Как в PascalABC сделать паркет из ёлочек-подскажите,пожалуйста!!!

Answer 1

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end

Answer 2

Для того чтобы нарисовать паркет из ёлочек в PascalABC, можно использовать вложенные циклы для управления паттерном и отображения нужных символов. Вот пример кода для рисования паркета из ёлочек:

pascalCopy code
Program ParquetPattern;
Uses GraphABC;

Const
  CellSize = 50; // Размер ячейки паркета (ширина и высота)
  Rows = 6;      // Количество строк паркета
  Cols = 6;      // Количество столбцов паркета

Var
  i, j, x, y: Integer;

Begin
  SetWindowSize(CellSize * Cols, CellSize * Rows); // Устанавливаем размер окна
  
  For i := 1 to Rows do
  Begin
    For j := 1 to Cols do
    Begin
      x := (j - 1) * CellSize;
      y := (i - 1) * CellSize;
      
      // Рисуем ёлочку
      SetBrushColor(RandomRGB());
      FloodFill(x + CellSize div 2, y + CellSize div 2, clBlack);
      Line(x + CellSize div 2, y + CellSize div 2, x + CellSize div 4, y + CellSize);
      Line(x + CellSize div 2, y + CellSize div 2, x + 3 * CellSize div 4, y + CellSize);
      Line(x + CellSize div 2, y + CellSize div 3, x + CellSize div 4, y + 2 * CellSize div 3);
      Line(x + CellSize div 2, y + CellSize div 3, x + 3 * CellSize div 4, y + 2 * CellSize div 3);
      
      // Рисуем контур ячейки паркета
      SetPenColor(clBlack);
      Rectangle(x, y, x + CellSize, y + CellSize);
    End;
  End;
End.

В этом коде используется графическая библиотека GraphABC для отображения рисунка. Вы можете запустить этот код в среде PascalABC и увидеть паркет из ёлочек на графической поверхности. Обратите внимание, что каждая ячейка паркета представляет собой ёлочку и границу ячейки.