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

Program Treillis;

Uses Crt,MSGraph;

Var
 Err,x,y,t,I:Integer;

BEGIN
 Err:=_SetVideoMode(_VRes2Color);
 _SetColor(WHITE);
 x:=30;y:=4;t:=240;
 For I:=0 to t div 5 do Begin
  _MoveTo(x,y+i*5);
  _LineTo(x+i*5,y+t);
 End;
 Repeat Until KeyPressed;
END.

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



Dernière mise à jour : Dimanche, le 4 mai 2014