Write float arrays to a text file: Difference between revisions

=={{header|Yabasic}}==

<lang Yabasic>x$ = "1 2 3 1e11"

pr1 = 3 : pr2 = 5

dim x$(1)

n = token(x$, x$())

f = open("filename.txt", "w")

for i = 1 to n

print #f str$(val(x$(i)), "%1." + str$(pr1) + "g") + "\t" + str$(sqrt(val(x$(i))), "%1." + str$(pr2) + "g")

next i

close #f</lang>