Le langage de programmation Turbo Pascal vous permet de dessiner graphiquement diverses formes sur l'écran. Tout objet graphique peut être construit à l'aide de points, de lignes, d'arcs. Pascal utilise un mode graphique raster avec une résolution d'écran de 640 x 480. Le dessin consiste à fixer les coordonnées des points de départ et d'arrivée de l'objet à afficher aux procédures graphiques. La couleur de l'objet, l'épaisseur des lignes, ainsi que leur style, sont également définis comme paramètres des procédures graphiques. Pour dessiner à l'aide d'un logiciel, vous devez connecter le module graphique Pascal.
Nécessaire
Environnement de programmation Turbo Pascal
Instructions
Étape 1
Désassemblez l'objet de dessin spécifié en ses éléments constitutifs. Sélectionnez des lignes, des arcs, des cercles, des rectangles et des points individuels. Ce sont les formes qui peuvent être dessinées à l'aide des procédures Turbo Pascal.
Étape 2
Au tout début du code du programme, connectez le module graphique. Pour ce faire, écrivez une ligne comme celle-ci: use graph. Ensuite, créez des variables entières pour initialiser le mode graphique: var gdet, gm: entier.
Étape 3
Dans le corps du programme, après le mot-clé begin, initialisez les variables, en affectant à l'une d'entre elles une valeur nulle et à la seconde la valeur de detect. Ensuite, indiquez le début du mode de dessin graphique, entrez une ligne de la forme: initgraph (gdet, gm, ''). Effacer le périphérique d'affichage: cleardevice.
Étape 4
Définissez la couleur d'arrière-plan pour le dessin et la couleur de ligne des objets à dessiner. Utilisez pour cela les procédures SetBkColor (blanc) et SetColor (8). La couleur à régler est indiquée entre parenthèses. Au total, Pascal utilise 16 couleurs, et chacune d'elles est spécifiée soit par un nombre, soit par un mot d'une table de couleurs spéciale.
Étape 5
Imaginez un réticule d'écran avec l'axe des x de gauche à droite et l'axe des y de haut en bas. A l'origine de ce système de coordonnées, c'est-à-dire dans le coin supérieur gauche de l'écran, se trouve la coordonnée (0, 0). Calculez les coordonnées de la position souhaitée du premier objet graphique. Spécifiez toutes les coordonnées pour dessiner des figures dans ce système particulier.
Étape 6
Tracez une ligne en utilisant la ligne de procédure (x, y, x1, y1), où les coordonnées x, y sont le point de départ de la ligne et x1, y1 est sa fin. Modifiez l'épaisseur ou le type de ligne si nécessaire. Pour ce faire, utilisez la procédure SetLineStyle (0, 0, NormWidth). Le premier paramètre de la procédure peut changer la ligne en en faisant un tiret ou une ligne pointillée - changez ce nombre en 1 ou 2. Le troisième paramètre définit l'épaisseur des lignes. Par défaut, le paramètre NormWidth est toujours défini - lignes fines, pour les lignes épaisses, définissez ThickWidth. Le type de ligne modifié sera dessiné après l'appel de cette procédure.
Étape 7
Placez un point sur l'écran en utilisant la procédure PutPixel (x, y, couleur), ici x et y sont aussi les coordonnées du point, et la couleur est sa couleur. Avant de dessiner une forme fermée, vous pouvez définir son remplissage. Pour ce faire, appelez la procédure SetFillStyle (EmptyFill, 0), où le premier paramètre spécifie le remplissage uni de la forme et le second spécifie la couleur de remplissage.
Étape 8
Une forme rectangulaire est dessinée à l'aide de la procédure Rectangle (x, y, x2, y2) - les coordonnées définissent les coins supérieur gauche et inférieur droit de la forme. Pour dessiner un cercle, écrivez la ligne Cercle (x, y, R), où x, y, R sont les coordonnées du centre et le rayon du cercle, également en pixels. Une ellipse est plus difficile à dessiner, beaucoup plus de paramètres sont utilisés pour cela: Ellipse (x, y, BegA, EndA, RX, RY). Ici, x, y est le même centre de l'ellipse, et BegA et EndA indiquent l'angle auquel commencer et terminer l'arc elliptique. Les variables RX, RY définissent le rayon de l'ellipse le long des axes x et y, respectivement.
Étape 9
Si vous avez une forme donnée, qui est plus facile à dessiner dans des segments séparés, utilisez les procédures MoveTo et LineTo pour cela. Tout d'abord, déplacez le curseur actuel vers le point souhaité: MoveTo (x, y). Ensuite, tracez une ligne jusqu'au point suivant LineTo (x1, y1) et tracez à nouveau une ligne droite LineTo (x2, y2) et ainsi de suite jusqu'à ce que vous obteniez la forme d'origine.
Étape 10
A la fin du dessin dans le code du programme, fermez le mode graphique avec la ligne: closegraph. Terminez le corps du programme, comme d'habitude, avec le mot end. Maintenant, le code peut être compilé et exécuté pour exécution.
