El llenguatge de programació Turbo Pascal us permet dibuixar gràficament diverses formes a la pantalla. Qualsevol objecte gràfic es pot construir utilitzant punts, línies, arcs. Pascal utilitza un mode de gràfics ràster amb una resolució de pantalla de 640 x 480. El dibuix consisteix a establir les coordenades dels punts inicial i final de l'objecte que es mostraran als procediments gràfics. El color de l'objecte, el gruix de les línies, així com el seu estil, també s'estableixen com a paràmetres dels procediments gràfics. Per dibuixar mitjançant programari, heu de connectar el mòdul gràfic Pascal.
Necessari
Entorn de programació Turbo Pascal
Instruccions
Pas 1
Desmunteu l'objecte de dibuix especificat en els seus elements constitutius. Seleccioneu línies, arcs, cercles, rectangles i punts individuals. Aquestes són les formes que es poden dibuixar mitjançant procediments Turbo Pascal.
Pas 2
Al principi del codi del programa, connecteu el mòdul gràfic. Per fer-ho, escriviu una línia com aquesta: utilitza el gràfic. A continuació, creeu variables enteres per inicialitzar el mode gràfic: var gdet, gm: integer.
Pas 3
Al cos del programa, després de la paraula clau begin, inicialitzeu les variables, assignant a una d'elles un valor zero i la segona el valor de detectar. A continuació, indiqueu l'inici del mode de dibuix gràfic, introduïu una línia de la forma: initgraph (gdet, gm, ''). Esborreu el dispositiu de visualització: cleardevice.
Pas 4
Establiu el color de fons del dibuix i el color de la línia dels objectes a dibuixar. Utilitzeu els procediments SetBkColor (blanc) i SetColor (8) per a això. El color que s’ha d’establir s’indica entre claudàtors. En total, Pascal utilitza 16 colors i cadascun d’ells s’especifica amb un número o amb una paraula d’una taula de colors especial.
Pas 5
Imagineu-vos una retícula de pantalla amb l’eix x d’esquerra a dreta i l’eix y de dalt a baix. A l'origen d'aquest sistema de coordenades, és a dir, a l'extrem superior esquerre de la pantalla, hi ha la coordenada (0, 0). Calculeu les coordenades de la posició desitjada del primer objecte gràfic. Especifiqueu totes les coordenades per dibuixar figures d’aquest sistema concret.
Pas 6
Dibuixeu una línia utilitzant la línia de procediment (x, y, x1, y1), on les coordenades x, y són el punt inicial de la línia i x1, y1 és el seu final. Canvieu el gruix o el tipus de la línia si cal. Per fer-ho, utilitzeu el procediment SetLineStyle (0, 0, NormWidth). El primer paràmetre del procediment pot canviar la línia convertint-la en un guió o en una línia de punts: canvieu aquest número a 1 o 2. El tercer paràmetre estableix el gruix de les línies. Per defecte, el paràmetre NormWidth sempre està definit: línies fines, per a línies gruixudes, definiu ThickWidth El tipus de línia canviat es dibuixarà després de trucar a aquest procediment.
Pas 7
Col·loqueu un punt a la pantalla mitjançant el procediment PutPixel (x, y, color), aquí xey també són les coordenades del punt i el color és el seu color. Abans de dibuixar una forma tancada, podeu configurar-ne el farciment. Per fer-ho, truqueu al procediment SetFillStyle (EmptyFill, 0), on el primer paràmetre especifica el farciment sòlid de la forma i el segon especifica el color de farciment.
Pas 8
Es dibuixa una forma rectangular mitjançant el procediment Rectangle (x, y, x2, y2): les coordenades configuren les cantonades superior esquerra i inferior dreta de la forma. Per dibuixar un cercle, escriviu la línia Cercle (x, y, R), on x, y, R són les coordenades del centre i el radi del cercle, també en píxels. Una el·lipse és més difícil de dibuixar, s’utilitzen molts més paràmetres: El·lipse (x, y, BegA, EndA, RX, RY). Aquí x, y és el mateix centre de l’el·lipse, i BegA i EndA indiquen l’angle en què començar i acabar l’arc el·líptic. Les variables RX, RY estableixen el radi de l’el·lipse al llarg dels eixos x i y, respectivament.
Pas 9
Si teniu una forma determinada, que és més fàcil dibuixar en segments separats, utilitzeu els procediments MoveTo i LineTo per a això. Primer, moveu el cursor actual al punt que vulgueu: MoveTo (x, y). A continuació, dibuixeu una línia des del punt següent Línia a (x1, y1) i torneu a dibuixar una línia recta A (x2, y2) i així successivament fins a obtenir la forma original.
Pas 10
Al final del dibuix del codi del programa, tanqueu el mode gràfic amb la línia: closegraph. Acabeu el cos del programa, com és habitual, amb la paraula final. Ara es pot compilar i executar el codi per executar-lo.
