about summary refs log tree commit diff
path: root/12/TP-2008
diff options
context:
space:
mode:
Diffstat (limited to '12/TP-2008')
-rwxr-xr-x12/TP-2008/R1/.BL4.pas.swpbin12288 -> 0 bytes
-rwxr-xr-x12/TP-2008/R1/BL1.PAS26
-rwxr-xr-x12/TP-2008/R1/BL2.PAS57
-rwxr-xr-x12/TP-2008/R1/BL3.PAS45
-rwxr-xr-x12/TP-2008/R1/BL4.pas26
-rwxr-xr-x12/TP-2008/R1/CLB.IN4
-rwxr-xr-x12/TP-2008/R1/CLB.OU0
-rwxr-xr-x12/TP-2008/R1/R1.DOCbin79872 -> 0 bytes
-rw-r--r--12/TP-2008/R2/.DG.pas.swpbin12288 -> 0 bytes
-rwxr-xr-x12/TP-2008/R2/DGbin133348 -> 0 bytes
-rwxr-xr-x12/TP-2008/R2/DG.INP6
-rwxr-xr-x12/TP-2008/R2/DG.OUT1
-rwxr-xr-x12/TP-2008/R2/DG.obin9392 -> 0 bytes
-rwxr-xr-x12/TP-2008/R2/DG.pas83
-rw-r--r--12/TP-2008/R2/HC.pas23
-rwxr-xr-x12/TP-2008/R2/R2.docbin64512 -> 0 bytes
-rwxr-xr-x12/TP-2008/R2/TBC.PAS69
17 files changed, 0 insertions, 340 deletions
diff --git a/12/TP-2008/R1/.BL4.pas.swp b/12/TP-2008/R1/.BL4.pas.swp
deleted file mode 100755
index 013c8d2..0000000
--- a/12/TP-2008/R1/.BL4.pas.swp
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R1/BL1.PAS b/12/TP-2008/R1/BL1.PAS
deleted file mode 100755
index 6931b1b..0000000
--- a/12/TP-2008/R1/BL1.PAS
+++ /dev/null
@@ -1,26 +0,0 @@
-uses math;
-
-var
-  f : text;
-  m, n, i : byte;
-  a, b : double;
-j
-begin
-  assign(f, 'LT.IN');
-  reset(f);
-  read(f, n, m);
-  close(f);
-  a := 1;
-  for i := 1 to n do
-    a := a * 2;
-  b := 1;
-  for i := 1 to m do
-    b := b * 3;
-  a := a + b;
-  for i := 1 to trunc(log10(a)) do
-    a := a / 10;
-  assign(f, 'LT.OU');
-  rewrite(f);
-  writeln(f, trunc(a));
-  close(f)
-end.
diff --git a/12/TP-2008/R1/BL2.PAS b/12/TP-2008/R1/BL2.PAS
deleted file mode 100755
index e228240..0000000
--- a/12/TP-2008/R1/BL2.PAS
+++ /dev/null
@@ -1,57 +0,0 @@
-type
-  rect = record
-    a : longint;
-    b : longint
-  end;
-  arec = array of rect;
-
-var
-  f : text;
-  c, d, e : rect;
-
-function join(g, h : rect) : arec;
-  var n : byte = 0;
-  procedure j01n(p, q : longint);
-    begin
-      inc(n);
-      setlength(join, n);
-      join[n - 1].a := p;
-      join[n - 1].b := q
-    end;
-  begin
-    if g.a = h.a then j01n(g.a, g.b + h.b);
-    if g.a = h.b then j01n(g.a, g.b + h.a);
-    if g.b = h.a then j01n(g.b, g.a + h.b);
-    if g.b = h.b then j01n(g.b, g.a + h.a);
-  end;
-
-procedure out(m : longint);
-  begin
-    assign(f, 'GH.OU');
-    rewrite(f);
-    writeln(f, m);
-    close(f);
-    halt
-  end;
-
-procedure libl2(x, y, z : rect);
-  var i, j : rect;
-  begin
-    for i in join(x, y) do
-      for j in join(z, i) do
-        if (j.a = j.b) and (j.a <> 0) then
-          out(j.a)
-  end;
-
-begin
-  assign(f, 'GH.IN');
-  reset(f);
-  readln(f, c.a, c.b);
-  readln(f, d.a, d.b);
-  readln(f, e.a, e.b);
-  close(f);
-  libl2(c, d, e);
-  libl2(d, e, c);
-  libl2(e, c, d);
-  out(0)
-end.
diff --git a/12/TP-2008/R1/BL3.PAS b/12/TP-2008/R1/BL3.PAS
deleted file mode 100755
index a49b4d6..0000000
--- a/12/TP-2008/R1/BL3.PAS
+++ /dev/null
@@ -1,45 +0,0 @@
-type ar = array[0..3] of longint;
-
-var
-  f : text;
-  m, n, i, j : shortint;
-  a : array[1..101, -1..102] of longint;
-  tmp, max : longint;
-
-function next(x, y : shortint) : ar;
-  begin
-    next[0] := a[x + 1, y - 2];
-    next[1] := a[x + 1, y + 2];
-    next[2] := a[x + 2, y - 1];
-    next[3] := a[x + 2, y + 1]
-  end;
-
-begin
-  for i := 1 to 101 do
-    for j := -1 to 102 do
-      a[i, j] := 0;
-  assign(f, 'QM.IN');
-  reset(f);
-  readln(f, m, n);
-  for i := 1 to m do
-    for j := 1 to n do
-      read(f, a[i, j]);
-  close(f);
-  for i := m - 1 downto 1 do
-    for j := 1 to n do
-      begin
-        max := 0;
-        for tmp in next(i, j) do
-          if tmp > max then
-            max := tmp;
-        a[i, j] := a[i, j] + max;
-      end;
-  assign(f, 'QM.OU');
-  rewrite(f);
-  max := 0;
-  for i := 1 to n do
-    if a[1, i] > max then
-      max := a[1, i];
-  writeln(f, max);
-  close(f);
-end.
diff --git a/12/TP-2008/R1/BL4.pas b/12/TP-2008/R1/BL4.pas
deleted file mode 100755
index 94dd3ba..0000000
--- a/12/TP-2008/R1/BL4.pas
+++ /dev/null
@@ -1,26 +0,0 @@
-var
-  f : text;
-  n : word;
-  a, b : array of longword;
-  tmp0, tmp1 : longword;
-
-procedure ins(var l : array of longword; x : longword);
-  begin
-    setlength(l, length(l) + 1);
-    l[length(l) - 1] := x
-  end;
-
-begin
-  setlength(a, 0);
-  setlength(b, 0);
-  assign(f, 'CLB.IN');
-  reset(f);
-  readln(f, n);
-  for i := 1 to n do
-    begin
-      readln(f, tmp0, tmp1);
-      ins(a, tmp0);
-      ins(b, tmp1)
-    end;
-  close(f);
-  
diff --git a/12/TP-2008/R1/CLB.IN b/12/TP-2008/R1/CLB.IN
deleted file mode 100755
index 662c775..0000000
--- a/12/TP-2008/R1/CLB.IN
+++ /dev/null
@@ -1,4 +0,0 @@
-3
-7 9
-3 8
-10 20
diff --git a/12/TP-2008/R1/CLB.OU b/12/TP-2008/R1/CLB.OU
deleted file mode 100755
index e69de29..0000000
--- a/12/TP-2008/R1/CLB.OU
+++ /dev/null
diff --git a/12/TP-2008/R1/R1.DOC b/12/TP-2008/R1/R1.DOC
deleted file mode 100755
index 5e29da2..0000000
--- a/12/TP-2008/R1/R1.DOC
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R2/.DG.pas.swp b/12/TP-2008/R2/.DG.pas.swp
deleted file mode 100644
index 7227844..0000000
--- a/12/TP-2008/R2/.DG.pas.swp
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R2/DG b/12/TP-2008/R2/DG
deleted file mode 100755
index ad902a1..0000000
--- a/12/TP-2008/R2/DG
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R2/DG.INP b/12/TP-2008/R2/DG.INP
deleted file mode 100755
index fb3ca57..0000000
--- a/12/TP-2008/R2/DG.INP
+++ /dev/null
@@ -1,6 +0,0 @@
-4
-0 1
-1 0
-0 -1
--1 0
--2 0 0 0
diff --git a/12/TP-2008/R2/DG.OUT b/12/TP-2008/R2/DG.OUT
deleted file mode 100755
index c227083..0000000
--- a/12/TP-2008/R2/DG.OUT
+++ /dev/null
@@ -1 +0,0 @@
-0
\ No newline at end of file
diff --git a/12/TP-2008/R2/DG.o b/12/TP-2008/R2/DG.o
deleted file mode 100755
index cf2e3e1..0000000
--- a/12/TP-2008/R2/DG.o
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R2/DG.pas b/12/TP-2008/R2/DG.pas
deleted file mode 100755
index 2313685..0000000
--- a/12/TP-2008/R2/DG.pas
+++ /dev/null
@@ -1,83 +0,0 @@
-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.
diff --git a/12/TP-2008/R2/HC.pas b/12/TP-2008/R2/HC.pas
deleted file mode 100644
index 8e6b182..0000000
--- a/12/TP-2008/R2/HC.pas
+++ /dev/null
@@ -1,23 +0,0 @@
-var
-  f : text;
-  m, n, i, j : byte;
-  a : array[1..200, 0..200] of smallint;
-
-function out
-
-begin
-  assign(f, 'HC.INP');
-  reset(f);
-  readln(f, m, n);
-  for i := 1 to m do
-    begin
-      a[i, 0] := 0;
-      for j := 1 to n do
-        read(f, a[i, j])
-    end;
-  close(f);
-  assign(f, 'HC.OUT');
-  rewrite(f);
-  writeln(f, out(a));
-  close(f)
-end;
diff --git a/12/TP-2008/R2/R2.doc b/12/TP-2008/R2/R2.doc
deleted file mode 100755
index c804058..0000000
--- a/12/TP-2008/R2/R2.doc
+++ /dev/null
Binary files differdiff --git a/12/TP-2008/R2/TBC.PAS b/12/TP-2008/R2/TBC.PAS
deleted file mode 100755
index 1a26a91..0000000
--- a/12/TP-2008/R2/TBC.PAS
+++ /dev/null
@@ -1,69 +0,0 @@
-var

-  f : text;

-  i, l, m, n : integer;

-  a : array[1..1000] of longint;

-

-procedure qsort(l, h : integer);

-  var

-    i, j : integer;

-    x, tmp : longint;

-  begin

-    i := l;

-    j := h;

-    x := a[(i + j) div 2];

-    repeat

-      while a[i] < x do inc(i);

-      while x < a[j] do dec(j);

-      if i <= j then

-        begin

-          tmp := a[i];

-          a[i] := a[j];

-          a[j] := tmp;

-          inc(i);

-          dec(j)

-        end

-    until i > j;

-    if l < j then qsort(l, j);

-    if i < h then qsort(i, h)

-  end;

-

-function biin(n0 : integer) : boolean;

-  var l, h, m : integer;

-  begin

-    l := 1;

-    h := n;

-    repeat

-      m := (l + h) div 2;

-      if a[m] = n0 then exit(true);

-      if a[m] < n0 then l := m + 1

-      else h := m - 1

-    until l > h;

-    biin := false

-  end;

-

-function libtbc(n0 : integer) : boolean;

-  var i, j : integer;

-  begin

-    for i := 1 to n0 - 1 do

-      for j := n0 + 1 to n do

-        if biin(a[n0] * 3 - a[i] - a[j]) then

-          exit(true);

-    libtbc := false

-  end;

-

-begin

-  assign(f, 'TBC.INP');

-  reset(f);

-  readln(f, n);

-  for i := 1 to n do readln(f, a[i]);

-  close(f);

-  qsort(1, n);

-  m := 0;

-  for l := 2 to n - 1 do

-    if libtbc(l) then

-      inc(m);

-  assign(f, 'TBC.OUT');

-  rewrite(f);

-  writeln(f, m);

-  close(f)

-end.
generated by cgit-pink 1.4.1 (git 2.36.1) at 2024-06-30 22:05:17 +0000