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