CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Dormeuse
  • PC
Forum
  • Accueil
  • Actus
  • Tests
  • Vidéos
  • Images
  • Soluces
  • Forum
Liste des sujets

Calcul de Pi

glinop
glinop
Niveau 12
25 janvier 2009 à 00:27:30

OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQROPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1

glinop
glinop
Niveau 12
25 janvier 2009 à 00:27:49

OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQROPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1

glinop
glinop
Niveau 12
25 janvier 2009 à 00:28:27

Mais à partir du moment où x² devient y² < o5 < z + k = x² - a2 < o2

glinop
glinop
Niveau 12
25 janvier 2009 à 00:28:47

Alors :

glinop
glinop
Niveau 12
25 janvier 2009 à 00:29:05

OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQROPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1

glinop
glinop
Niveau 12
25 janvier 2009 à 00:29:28

Ce qui nous mène à la conclusion que :

glinop
glinop
Niveau 12
25 janvier 2009 à 00:30:08

OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQROPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
Vive le pastis.
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
Boris le roxxor, nico tu trouvera jamais ça.
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1OPENW #1,0,0,640,480,-1
rayon = 1
cote = SQR(2 * (rayon ^ 2))
nc% = 4
EvalPi = (cote * nc%) / (2 * rayon)
DO
K = cote / 2
L = rayon - SQR(rayon ^ 2 - (cote / 2) ^ 2)
cote = SQR(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1(K ^ 2 + L ^ 2)
nc% = nc% * 2
EvalPi = (cote * nc%) / (2 * rayon)
CLS
RGBCOLOR RGB(0,0,0)
? AT(0,0)
? "Nombre de cotês : ";nc%
PRINT "PI ~= ";EvalPi
'afficage d'un polygone á N cotês
RGBCLOR RGB(0,0,0)
CIRCLE 200,200,100
FOR i% = 1 TO 2
x1 = 200 + SIN(i% * 2 * PI / nc%) * 100
x2 = 200 + SIN(SUCC(i%) * 2 * PI / nc%) * 100
y1 = 200 + COS(i% * 2 * PI / nc%) * 100
y2 = 200 + COS(SUCC(i%) * 2 * PI / nc%) * 100
RGBCOLOR RGB(255,0,0)
LINE x1,y1,x2,y2
RGBCOLOR RGB(0,255,0)
LINE 200,200,x1,y1

glinop
glinop
Niveau 12
25 janvier 2009 à 00:31:07

Voilà comment calculer Pi.

glinop
glinop
Niveau 12
25 janvier 2009 à 00:31:27

Les détails sont très importants.

glinop
glinop
Niveau 12
25 janvier 2009 à 00:31:51

Chaque ligne doit être analyser.

glinop
glinop
Niveau 12
25 janvier 2009 à 00:32:14

Chaque ligne doit passer dans le filet.

glinop
glinop
Niveau 12
25 janvier 2009 à 00:32:31

La réponse vous aurez.

agei
agei
Niveau 3
30 janvier 2010 à 20:00:59

cela es tres interessant tres chère dite moi donc

La vidéo du moment