Browse Source

* initial version

git-svn-id: trunk@4452 -
marco 19 years ago
parent
commit
77a503e5cb
2 changed files with 26 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 25 0
      packages/extra/numlib/examples/iomrewrsex.pas

+ 1 - 0
.gitattributes

@@ -2972,6 +2972,7 @@ packages/extra/numlib/examples/invgpdex.dat -text
 packages/extra/numlib/examples/invgpdex.pas svneol=native#text/plain
 packages/extra/numlib/examples/invgpdex.pas svneol=native#text/plain
 packages/extra/numlib/examples/invgsyex.dat -text
 packages/extra/numlib/examples/invgsyex.dat -text
 packages/extra/numlib/examples/invgsyex.pas svneol=native#text/plain
 packages/extra/numlib/examples/invgsyex.pas svneol=native#text/plain
+packages/extra/numlib/examples/iomrewrsex.pas svneol=native#text/plain
 packages/extra/numlib/fpmake.pp svneol=native#text/plain
 packages/extra/numlib/fpmake.pp svneol=native#text/plain
 packages/extra/numlib/int.pas svneol=native#text/plain
 packages/extra/numlib/int.pas svneol=native#text/plain
 packages/extra/numlib/inv.pas svneol=native#text/plain
 packages/extra/numlib/inv.pas svneol=native#text/plain

+ 25 - 0
packages/extra/numlib/examples/iomrewrsex.pas

@@ -0,0 +1,25 @@
+program iomrewrsex;
+
+{$mode objfpc}{$H+}
+
+uses
+  typ, iom, inv;
+
+var
+  A : array[1..10,1..10] of arbfloat;
+  i : longint;
+  j : longint;
+  s : ArbString;
+  n, m: longint;
+begin
+  iomrems('{1 2}{3 4}{5 6}', A[1,1], m, n, 10);
+
+  for i:= 1 to m do
+    for j:= 1 to n do
+      writeln('A[',i,',',j,'] = ',A[i,j]);
+
+  { Print matrix A }
+  iomwrms(s, A[1,1], m, n, 2, 10);
+  writeln('A = ', s);
+end.
+