Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Aligner deux Pi

2 réponses
Avatar
garnote
Bonsoir le monde,

Trois petites boucles et Pi apparaît !
Est-ce possible de faire en sorte que
mes deux Pi soient parfaitement alignés
dans ma boîte ?
3,14159265358979
3,14159265358979

Sub Pi_Tamura_Kanada()
Dim A#, X#, B#, C#, Y#
Dim i%
A = 1: X = 1: B = 1 / Sqr(2): C = 1 / 4
For i = 1 To 3
Y = A
A = (A + B) / 2
B = Sqr(B * Y)
C = C - X * (A - Y) ^ 2
X = 2 * X
Next i
MsgBox "Pi Tamura : " & (A + B) ^ 2 / (4 * C) _
& vbNewLine & "Pi Excel : " & [pi()], , "Pi"
End Sub

Serge

2 réponses

Avatar
Pierre CFI [mvp]
bonjour
insere Vbtab
MsgBox "tt" & vbTab & "hhhhh" & vbCrLf & "t" & vbTab & "kkkk"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news: LR8Vb.21904$
Bonsoir le monde,

Trois petites boucles et Pi apparaît !
Est-ce possible de faire en sorte que
mes deux Pi soient parfaitement alignés
dans ma boîte ?
3,14159265358979
3,14159265358979

Sub Pi_Tamura_Kanada()
Dim A#, X#, B#, C#, Y#
Dim i%
A = 1: X = 1: B = 1 / Sqr(2): C = 1 / 4
For i = 1 To 3
Y = A
A = (A + B) / 2
B = Sqr(B * Y)
C = C - X * (A - Y) ^ 2
X = 2 * X
Next i
MsgBox "Pi Tamura : " & (A + B) ^ 2 / (4 * C) _
& vbNewLine & "Pi Excel : " & [pi()], , "Pi"
End Sub

Serge




Avatar
garnote
Merci pour le tuyau.
J'ai aussi ça :
MsgBox "Pi Tamura :" & vbNewLine & (A + B) ^ 2 / (4 * C) _
& vbNewLine & "Pi Excel :" & vbNewLine & [pi()], , "Pi"

Serge

"Pierre CFI [mvp]" a écrit dans le message de
news: #
bonjour
insere Vbtab
MsgBox "tt" & vbTab & "hhhhh" & vbCrLf & "t" & vbTab & "kkkk"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news:
LR8Vb.21904$

Bonsoir le monde,

Trois petites boucles et Pi apparaît !
Est-ce possible de faire en sorte que
mes deux Pi soient parfaitement alignés
dans ma boîte ?
3,14159265358979
3,14159265358979

Sub Pi_Tamura_Kanada()
Dim A#, X#, B#, C#, Y#
Dim i%
A = 1: X = 1: B = 1 / Sqr(2): C = 1 / 4
For i = 1 To 3
Y = A
A = (A + B) / 2
B = Sqr(B * Y)
C = C - X * (A - Y) ^ 2
X = 2 * X
Next i
MsgBox "Pi Tamura : " & (A + B) ^ 2 / (4 * C) _
& vbNewLine & "Pi Excel : " & [pi()], , "Pi"
End Sub

Serge