Section courante

A propos

Section administrative du site

Le programme suivant, écrit en Turbo Basic, permet le traçage à répétition d'un triangle de «Sierpinski» utilisé dans les fractales. Je me suis permit de mettre à jour un programme inspiré d'une procédure de «Reiner Scholles» écrite à l'origine en Pascal.

  1. SCREEN 1
  2. Hauteur=25
  3. ValeurFinale=30000
  4. DIM X(3),Y(3)
  5. X(0)=INT(320/2)
  6. Y(0)=Hauteur
  7. X(1)=X(0)-(INT(320)-1) / 3
  8. Y(1)=(INT(200)-1)-Hauteur-1
  9. X(2)=X(0)+(320-1) / 3
  10. Y(2)=(200-1)-Hauteur-1
  11. XP=X(0)
  12. YP=Y(0)
  13. RANDOMIZE TIMER
  14. FOR I=1 TO ValeurFinale
  15.    P=INT(RND*3)
  16.    XP=INT((XP+X(P)) / 2)
  17.    YP=INT((YP+Y(P)) / 2)
  18.    PSET(XP,YP)
  19. NEXT

Voici en terminant un exemple du résultat de se petit programme :




Dernière mise à jour : Mardi, le 28 juillet 2015