paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initial version

Browse Source 
git-svn-id: trunk@4452 -
This commit is contained in:
marco 2006-08-19 14:59:26 +00:00
parent 22f54d4651
commit 77a503e5cb
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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/invgsyex.dat -text
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/int.pas svneol=native#text/plain
packages/extra/numlib/inv.pas svneol=native#text/plain

25
packages/extra/numlib/examples/iomrewrsex.pas Normal file
View File

@ -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.