[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1052
{$N+}
Const
S=0.0001;
Var
  X,Y: Array[1..200] of Extended;
  N,M,I,J,K,R: LongInt;
Function OnLine(A,B,C: LongInt): Boolean;
Var K,D: Extended;
Begin
  If X[A]<>X[B] then begin
    K:=(Y[A]-Y[B])/(X[A]-X[B]);
    D:=Y[B]-K*X[B];
    OnLine:=(abs(Y[C]-(K*X[C]+D))<S);
  end else If X[A]=X[C] then Online:=True
                        else Online:=False;
End;
Begin
  M:=0;
  Read(N);
  For I:=1 to N do
    Readln(X[I],Y[I]);
  For I:=1 to N do
    For J:=1 to N do begin
      If I=J then Continue;
      R:=0;
      For K:=1 to N do
        If ((I<>K) and (J<>K)) and OnLine(I,J,K) then Inc(R);
      If M<R then M:=R;
    End;
  Writeln(M+2);
End.


Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 822