← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/numlib/examples/iomwrvex.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/numlib/examples/iomwrvex.pas
 
1
program iomwrvex;
 
2
 
 
3
uses
 
4
  typ, iom;
 
5
 
 
6
const
 
7
  n = 5;
 
8
  
 
9
var
 
10
  i: integer;
 
11
  v: array[1..n] of ArbFloat;
 
12
  
 
13
begin
 
14
  Assign(output, ParamStr(1));
 
15
  rewrite(output);
 
16
  writeln('program results iomwrv');
 
17
  writeln;
 
18
  {genereren van de vector v}
 
19
  randomize;
 
20
  for i := 1 to n do
 
21
    v[i] := 2 * random - 1;
 
22
  iomwrv(output, v[1], n, 15);
 
23
  {afdrukken van de vector}
 
24
  writeln;
 
25
  iomwrv(output, v[1], n, 12);
 
26
  Close(output);
 
27
end.