Помогите пожалуйста с Курсовым проектом

[Человек_Борща]

Согласен. Но только с той поправкой, что с "художественными текстами" и их переводом на другой язык ты совсем не сталкивался. Ибо робоперевод художественного текста просто никуда не годится, как ни старайся его понимать.

Та же фигня с простой письменной речью.

[Аватар]

Вот тебе два способа определения количества пересекающихся отрезков, если нужно выдать координаты этих отрезков добивай сам

function Crossing(x1,y1,x2,y2,x3,y3,x4,y4: Single): Boolean;
begin
  Result:=(((x4-x3)*(y1-y3)-(y4-y3)*(x1-x3))*((x4-x3)*(y2-y3)-(y4-y3)*(x2-x3))<0) and
          (((x2-x1)*(y3-y1)-(y2-y1)*(x3-x1))*((x2-x1)*(y4-y1)-(y2-y1)*(x4-x1))<0);
end;

procedure TForm1.Button1Click(Sender: TObject);
type TMyPoint2 = record X,Y: Single; end;
     TMyPoint4 = record X1,Y1,X2,Y2: Single; end;
var i,j,i1,j1,k,n,m: Integer;
    xPoints2: array of TMyPoint2;
    xPoints4: array of TMyPoint4;
begin
  k:=30;  {количество точек}
  SetLength(xPoints2,k);
  Randomize;
  {рандомные координаты точек на квадрате 300x300}
  for i:=0 to k-1 do begin
    xPoints2[i].X:=300*Random;
    xPoints2[i].Y:=300*Random;
  end;
  {оптимальный способ подсчета количества пересекающихся отрезков}
  n:=0;
  for i:=0 to k-2 do
    for j:=i+1 to k-1 do
      for i1:=i+1 to k-2 do
        if i1<>j then for j1:=i1+1 to k-1 do
          if (j1<>j) and
             Crossing(xPoints2[i].X,xPoints2[i].Y,xPoints2[j].X,xPoints2[j].Y,
                      xPoints2[i1].X,xPoints2[i1].Y,xPoints2[j1].X,xPoints2[j1].Y) then Inc(n);
  Label1.Caption:=IntToStr(n);
  {не оптимальный способ подсчета количества пересекающихся отрезков}
  {в т.ч. и для контроля 1-го способа}
  m:=k*(k-1) div 2;
  SetLength(xPoints4,m);
  n:=0;
  for i:=0 to k-2 do
    for j:=i+1 to k-1 do begin
      xPoints4[n].X1:=xPoints2[i].X;
      xPoints4[n].Y1:=xPoints2[i].Y;
      xPoints4[n].X2:=xPoints2[j].X;
      xPoints4[n].Y2:=xPoints2[j].Y;
      Inc(n);
    end;
  n:=0;
  for i:=0 to m-2 do
    for j:=i+1 to m-1 do
      if Crossing(xPoints4[i].X1,xPoints4[i].Y1,xPoints4[i].X2,xPoints4[i].Y2,
                  xPoints4[j].X1,xPoints4[j].Y1,xPoints4[j].X2,xPoints4[j].Y2) then Inc(n);
  Label2.Caption:=IntToStr(n);
end;

[Человек_Борща]

Камментарии к коду написать - домашнее задание

[Аватар]

Судя по отсутствию самостоятельных попыток комментарии к коду такая же неразрешимая задача. Так что по домашнему заданию двоечка будет