Data commit

Task/Write-float-arrays-to-a-text-file/Seed7/write-float-arrays-to-a-text-file.seed7

@@ -0,0 +1,16 @@
+$ 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;