Accueil de Gladir.com Notes légal de Gladir.com Flux RSS des nouvelles du site Gladir.com - Free Pascal - Géométrie - Dessiner un «Treillis» Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

La géométrie s'est également s'amuser à faire des dessins à l'apparence mathématique. Un des classiques dans ce genre, c'est bien sûre dessiner un «Treillis». Voici le code Free Pascal :

  1. Program Treillis;
  2.  
  3. Uses Graph;
  4.  
  5. Var
  6.  Err,x,y,t,I:Integer;
  7.  PiloteGraph:Integer;
  8.  ModeGraph:Integer;
  9.  
  10. BEGIN
  11.  PiloteGraph:=Detect;
  12.  ModeGraph:=Detect;
  13.  InitGraph(PiloteGraph,ModeGraph,'');
  14.  SetColor(WHITE);
  15.  x:=30;y:=4;t:=240;
  16.  For I:=0 to t div 5 do Begin
  17.   MoveTo(x,y+i*5);
  18.   LineTo(x+i*5,y+t);
  19.  End;
  20.  ReadLn;
  21. END.

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



Dernière mise à jour: Jeudi, le 29 décembre 2011