uses Turtle;

begin
  SetWidth(1.4);
  SetColor(Colors.Blue);
  //ToPoint(3,0);
  Down;
  loop 4000 do
  begin
    //Circle(0.1);
    Forw(0.3);
    Turn(Random(-120,120));
    //Sleep(1);
  end;
end.

uses Turtle;

procedure Hilbert(level: integer; angle,step: real);
begin
  if level = 0 then
    exit;
  TurnRight(angle);
  Hilbert(level-1, -angle, step);
  
  Forw(step);
  TurnLeft(angle);
  Hilbert(level-1, angle, step);
  
  Forw(step);
  Hilbert(level-1, angle, step);
  
  TurnLeft(angle);
  Forw(step);
  Hilbert(level-1, -angle, step);
  TurnRight(angle);
end;

begin
  SetWidth(2);
  ToPoint(-9,-9);
  Down;
  Hilbert(6,90,0.3);
end.

const
  PasswordLength = 12; // Длина пароля
  Characters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&\*()_+[]{}|;:,.<>?'; // Разрешенные символы

function GeneratePassword(Length: Integer): string;
begin
  // Генерируем пароль одной строкой, используя ArrGen для создания массива
  Result := ArrGen(Length, i -> Characters.RandomElement()).JoinToString('');
end;

begin
  var Password := GeneratePassword(PasswordLength); // Генерация пароля
  PrintLn($"Сгенерированный пароль: {Password}"); // Вывод пароля с интерполированной строкой
end.

uses Turtle;

begin
  Window.Title := 'Кластеризация';
  var a := ReadLines('demo_2025_27_А.txt').Skip(1).JoinToString.ToReals(',').ToArray;
  var xx := a[::2];
  var yy := a[1::2];
  DrawPoints(xx,yy);
end.

function triangleArea(x1, y1, x2, y2, x3, y3: real): real;
begin
  Result := abs((x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2)) / 2.0);
end;

function IsPointInTriangle(px, py, x1, y1, x2, y2, x3, y3: real): boolean;
begin
  var areaOriginal := triangleArea(x1, y1, x2, y2, x3, y3);
  
  var area1 := triangleArea(px, py, x2, y2, x3, y3);
  var area2 := triangleArea(x1, y1, px, py, x3, y3);
  var area3 := triangleArea(x1, y1, x2, y2, px, py);
  
  // Если сумма площадей равна исходной площади, точка принадлежит треугольнику
  Result := abs(areaOriginal - (area1 + area2 + area3)) < 1e-9;
end;

begin
  var (x1, y1) := (0.0, 0.0);  
  var (x2, y2) := (5.0, 0.0);  
  var (x3, y3) := (0.0, 5.0);  
  var (px, py) := (2.0, 2.0);  

  if IsPointInTriangle(px, py, x1, y1, x2, y2, x3, y3) then
    Println('Точка принадлежит треугольнику')
  else
    Println('Точка не принадлежит треугольнику');
end.