Add NTU/{pali2,editpic}.c and update README.md

1 files changed, 31 insertions, 0 deletions

diff --git a/09/TP-HN-2014/cau2.pas b/09/TP-HN-2014/cau2.pas
new file mode 100644
index 0000000..aed61ed
--- /dev/null
+++ b/09/TP-HN-2014/cau2.pas
@@ -0,0 +1,31 @@
+var
+  f: text;
+  n, i, j: smallint;
+  d: longint;
+  v: array of smallint;
+  t: array of real;
+
+begin
+  assign(f, 'CAU2.INP');
+  reset(f);
+  readln(f, n, d);
+  setlength(v, n);
+  for i := 0 to n - 1 do
+    read(f, v[i]);
+  close(f);
+
+  setlength(t, n);
+  for i := 0 to n - 1 do
+    t[i] := i + d / v[i];
+
+  d := 0;
+  for i := 1 to n - 1 do
+    for j := 0 to i - 1 do
+      if t[i] < t[j] then
+        inc(d);
+
+  assign(f, 'CAU2.OUT');
+  rewrite(f);
+  writeln(f, d);
+  close(f)
+end.