Section courante

A propos

Section administrative du site

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