Data update

Task/Periodic-table/Pascal-P/periodic-table.pas

@@ -0,0 +1,53 @@
+program periodtabl(output);
+
+var
+  a, b: array [0 .. 7] of integer;
+
+  procedure showrowandcolumn(anum: integer);
+  var
+    i, m, r, c: integer;
+  begin
+    i := 7;
+    while a[i] > anum do
+      i := i - 1;
+    m := anum + b[i];
+    r := m div 18 + 1;
+    c := m mod 18 + 1;
+    write(anum: 3, ' ->', r: 2, c: 3);
+    writeln;
+  end;
+
+  procedure initab;
+  begin
+    a[0] := 1;
+    a[1] := 2;
+    a[2] := 5;
+    a[3] := 13;
+    a[4] := 57;
+    a[5] := 72;
+    a[6] := 89;
+    a[7] := 104;
+    b[0] := -1;
+    b[1] := 15;
+    b[2] := 25;
+    b[3] := 35;
+    b[4] := 72;
+    b[5] := 21;
+    b[6] := 58;
+    b[7] := 7;
+  end;
+
+begin
+  initab;
+  (* Test for example elements (atomic numbers) *)
+  showrowandcolumn(  1);
+  showrowandcolumn(  2);
+  showrowandcolumn( 29);
+  showrowandcolumn( 42);
+  showrowandcolumn( 57);
+  showrowandcolumn( 58);
+  showrowandcolumn( 72);
+  showrowandcolumn( 89);
+  showrowandcolumn( 90);
+  showrowandcolumn(103);
+end.