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:18:42

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:19:14

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:19:37

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:19:59

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:20:19

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:20:38

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:21:01

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:21:24

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:22:22

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:22:55

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:23:13

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:23:34

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:23:57

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:24:21

Après il faut regarder le prochain théorème

glinop
glinop
Niveau 12
25 janvier 2009 à 00:24:54

En partant du principe que x² < o2 < x² - y + 6

glinop
glinop
Niveau 12
25 janvier 2009 à 00:25:15

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:26:11

Mais si on considère x² < 6.478414314741114711176
Et x² < y² + 1 - k² o2 + 7 = x^3

glinop
glinop
Niveau 12
25 janvier 2009 à 00:26:34

Alors on peut prendre en compte que :

glinop
glinop
Niveau 12
25 janvier 2009 à 00:26:53

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:11

Et que !