afficher pi

salut tout le monde ! je vais peut-etre passer pour un boulet mais je ne sais pas comment afficher pi sous sa forme approché et pas 3.14. comme sur une calculette.
merci d'avance

Comprends pas ce que tu veux dire :

Sa valeur ?  =====>>> 4 * Atn(1)

Son symbole graphique ?

voici le nombre Pi avec ses 99 premières décimales

3,141 592 653 589 793 238 462 643 383 279 502 884 197 169 399 375 105 820 974 944 592 307 816 406 286 208 998 628 034 825 342 117 067

Plus sérieusement avec 3.1416 cela est correct pour les problèmes géométriques de base

GRENIER Alain[8D]

    Dim i%, s$, pi#, t$()
   
    s = "que j aime à faire connaître un nombre utile aux sages"
   
    t = Split(s, " ")
    For i = 0 To UBound(t)
        pi = pi + Len(t(i)) / 10 ^ i
        Next
    MsgBox pi


Daniel

sympa

    Dim a&, b&, c&, d&, e&, f&(), g&
    Dim l%, x$, pi$
    Dim compteur As Long
    Dim hdepart  As Long
    Dim temps    As Long
   
    ReDim f(8401)
    a = 10000: c = 8400
    hdepart = timer
    While (b <> c)
       f(b) = a \ 5: b = b + 1
       Wend
    While (c > 0)
        g = 2 * c: d = 0: b = c
        While (b > 0)
            d = d + f(b) * a: g = g - 1: f(b) = d Mod g
            d = d \ g: g = g - 1: b = b - 1
            If (b <> 0) Then d = d * b
            Wend
        c = c - 14: x$ = Str$(e + d \ a): l = Len(x$)
        pi = pi & Left$("0000", 5 - l) & Right$(x$, l - 1)
        e = d Mod a
        compteur = compteur + 1
        Wend
   
    compteur = 4 * compteur
    temps = timer - hdepart
    MsgBox compteur & " chiffres de PI  en " & temps & " secondes de calcul"
    MsgBox pi


Daniel

Salut,

Ben.. avec les 2400 chiffres de PI, affichés il n'y a que l'embarat du choix..
Très sympa les 2 bouts de code Gobillot.

A+
Exploreur

On met Pi dans une constante double et l'affaire est joué. De toute façon sa valeure ne risque pas de changer tot de suite :p

@+

[Code]E.B.[/Code]

Bonjour

PI n'est pas déjà définit dans le runtime ?

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

beh non...
(tu vas pouvoir enlever VB et VBA de ta signature )