13 lines
240 B
Text
13 lines
240 B
Text
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
|