Write float arrays to a text file: Difference between revisions
Write float arrays to a text file (view source)
Revision as of 21:13, 21 February 2019
, 5 years ago→{{header|VBA}}
No edit summary |
|||
Line 1,650:
1e+011 3.1623e+005</pre>
=={{header|VBA}}==
<lang vb>Public Sub main()
x = [{1, 2, 3, 1e11}]
y = [{1, 1.4142135623730951, 1.7320508075688772, 316227.76601683791}]
Dim TextFile As Integer
TextFile = FreeFile
Open "filename" For Output As TextFile
For i = 1 To UBound(x)
Print #TextFile, Format(x(i), "0.000E-000"), Format(y(i), "0.00000E-000")
Next i
Close TextFile
End Sub</lang>{{out}}
<pre>1,000E000 1,00000E000
2,000E000 1,41421E000
3,000E000 1,73205E000
1,000E011 3,16228E005
</pre>
=={{header|Yabasic}}==
<lang Yabasic>x$ = "1 2 3 1e11"
| |||