Task

Write two equal-sized numerical arrays 'x' and 'y' to
a two-column text file named 'filename'.

The first column of the file contains values from an 'x'-array with a
given 'xprecision', the second -- values from 'y'-array with 'yprecision'.

For example, considering:

   x = {1, 2, 3, 1e11};
   y = {1, 1.4142135623730951, 1.7320508075688772, 316227.76601683791}; 
                                                          /* sqrt(x) */
   xprecision = 3;
   yprecision = 5;

The file should look like:

   1    1
   2    1.4142
   3    1.7321
   1e+011   3.1623e+005

This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.




$ include "seed7_05.s7i";
  include "float.s7i";
  include "math.s7i";
 
const proc: main is func
  local
    const array float: numbers is [] (1.0, 2.0, 3.0, 1.0e11);
    var float: aFloat is 0.0;
    var file: aFile is STD_NULL;
  begin
    aFile := open("filename", "w");
    for aFloat range numbers do
      writeln(aFile, aFloat sci 3 exp 2 <& " " <& sqrt(aFloat) sci 5 exp 2);
    end for;
    close(aFile);
  end func;