about summary refs log tree commit diff
path: root/12/TP-HN-2008/R2/DG.pas
blob: 23136851f38121422ceb74d214a1d17889c9e007 (plain) (blame)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
type bigboo = [-1..1];

var
  f : text;
  n, i, j : byte;
  inp : array[0..100] of PointType;
  P, Q : PointType;
  P_out, Q_out : boolean;
  s : int64 = 0;

function stri2(A, B, C : PointType) : int64;
  begin
    stri2 := (C.y - A.y) * (A.x - B.x) - (C.x - A.x) * (A.y - B.y)
  end;

function outpoly(M : PointType) : int64;
  begin
    outpoly := s;
    for i := 0 to n - 1 do
      begin
        outpoly := outpoly - abs(stri2(M, inp[i], inp[i + 1]))
      end
  end;

function sign(x : smallint) : bigboo;
  begin
    case true of
      x > 0 : exit(1);
      x = 0 : exit(0);
      x < 0 : exit(-1)
    end
  end;

function intersect(A, B : PointType) : bigboo;
  var b00, b01 : bigboo;
  begin
    b00 := sign(stri2(P, Q, A));
    b01 := sign(stri2(P, Q, A));
    if b00 = b01 then
      if b00 = 0 then exit(0)
      else exit(-1);
    b00 := sign(stri2(A, B, P));
    b01 := sign(stri2(A, B, Q));
    if b00 = b01 then
      if b00 = 0 then exit(0)
      else exit(-1);
    exit(1)
  end;

function lensqr(A, B : PointType) : int64;
  begin
    exit()
  end;

procedure out(M, N : PointType);
  begin
    assign(f, 'DG.OUT');
    rewrite(f);
    write(f, trunc(sqrt(sqr(A.x - B.x) + sqr(A.y - B.y)) * 100));
    close(f);
    halt
  end;

begin
  assign(f, 'DG.INP');
  reset(f);
  readln(f, n);
  for i := 0 to n - 1 do
    readln(f, inp[i].x, inp[i].y);
  inp[n] := inp[0];
  readln(f, P.x, P.y, Q.x, Q.y);
  close(f);
  for i := 1 to n - 2 do
    s := s + abs(stri2(inp[0], inp[i], inp[i + 1]));
  if outpoly(P) = 0 then
    P_out := false;
  if outpoly(Q) = 0 then
    Q_out := false;
  if P_out and Q_out then
    for i := 0 to n - 1 do

  out(P, Q)
end.