13 lines
373 B
Text
13 lines
373 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim x(0 To 3) As Double = {1, 2, 3, 1e11}
|
|
Dim y(0 To 3) As Double = {1, 1.4142135623730951, 1.7320508075688772, 316227.76601683791}
|
|
|
|
Open "output.txt" For Output As #1
|
|
For i As Integer = 0 To 2
|
|
Print #1, Using "#"; x(i);
|
|
Print #1, Spc(7); Using "#.####"; y(i)
|
|
Next
|
|
Print #1, Using "#^^^^"; x(3);
|
|
Print #1, Spc(2); Using "##.####^^^^"; y(3)
|
|
Close #1
|