Lugha ya programu ya Turbo Pascal hukuruhusu kuchora kielelezo maumbo anuwai kwenye skrini. Kitu chochote cha picha kinaweza kujengwa kwa kutumia alama, mistari, arcs. Pascal hutumia hali ya picha ya raster na azimio la skrini ya 640 x 480. Kuchora kuna kuweka kuratibu za sehemu za mwanzo na mwisho za kitu kuonyeshwa kwa taratibu za picha. Rangi ya kitu, unene wa mistari, pamoja na mtindo wao, pia imewekwa kama vigezo vya taratibu za picha. Ili kuteka kwa kutumia programu, unahitaji kuunganisha moduli ya picha za Pascal.
Muhimu
Mazingira ya programu ya Turbo Pascal
Maagizo
Hatua ya 1
Tenganisha kitu maalum cha kuchora katika vitu vyake vya kawaida. Chagua mistari ya kibinafsi, arcs, miduara, mstatili, na alama. Hizi ndio sura ambazo zinaweza kuchorwa kwa kutumia taratibu za Turbo Pascal.
Hatua ya 2
Mwanzoni mwa msimbo wa programu, unganisha moduli ya picha. Ili kufanya hivyo, andika laini kama hii: hutumia grafu. Ifuatayo, tengeneza vigeuzi kamili ili kuanzisha hali ya picha: var gdet, gm: integer.
Hatua ya 3
Katika mwili wa programu, baada ya neno kuu kuanza, anzisha vigeugeu, ukimpa mmoja wao thamani ya sifuri, na pili thamani ya kugundua. Ifuatayo, onyesha kuanza kwa hali ya picha ya kuchora, ingiza safu ya fomu: initgraph (gdet, gm, ). Futa kifaa cha kuonyesha: huduma safi.
Hatua ya 4
Weka rangi ya usuli kwa kuchora na rangi ya mstari wa vitu vitakavyochorwa. Tumia taratibu SetBkColor (nyeupe) na SetColor (8) kwa hili. Rangi itakayowekwa imeonyeshwa kwenye mabano. Kwa jumla, Pascal hutumia rangi 16, na kila moja yao imeainishwa ama kwa nambari au kwa neno kutoka kwenye jedwali maalum la rangi.
Hatua ya 5
Fikiria graticule ya skrini na mhimili wa x kutoka kushoto kwenda kulia na mhimili wa y kutoka juu hadi chini. Kwa asili ya mfumo huu wa kuratibu, ambayo ni, kwenye kona ya juu kushoto ya skrini, kuna uratibu (0, 0). Hesabu kuratibu za nafasi inayotakiwa ya kitu cha kwanza cha picha. Taja kuratibu zote za kuchora takwimu katika mfumo huu.
Hatua ya 6
Chora mstari kwa kutumia laini ya utaratibu (x, y, x1, y1), ambapo kuratibu x, y ndio mwanzo wa mstari, na x1, y1 ndio mwisho wake. Badilisha unene wa laini au chapa ikiwa ni lazima. Ili kufanya hivyo, tumia utaratibu wa SetLineStyle (0, 0, NormWidth). Kigezo cha kwanza cha utaratibu kinaweza kubadilisha laini kwa kuifanya kuwa dashi, au laini iliyotiwa alama - badilisha nambari hii kuwa 1 au 2. Kigezo cha tatu kinaweka unene wa mistari. Kwa chaguo-msingi, parameter ya NormWidth imewekwa kila wakati - laini nyembamba, kwa mistari minene iliyowekwa ThickWidth. Aina ya laini iliyobadilishwa itachorwa baada ya kuita utaratibu huu.
Hatua ya 7
Weka hatua kwenye skrini ukitumia utaratibu wa PutPixel (x, y, rangi), hapa x na y pia ni kuratibu za uhakika, na rangi ni rangi yake. Kabla ya kuchora sura iliyofungwa, unaweza kuweka kujaza kwake. Ili kufanya hivyo, piga utaratibu wa SetFillStyle (EmptyFill, 0), ambapo parameta ya kwanza inataja ujazo kamili wa sura, na ya pili inataja rangi ya kujaza.
Hatua ya 8
Sura ya mstatili imechorwa kwa kutumia utaratibu wa Mstatili (x, y, x2, y2) - kuratibu zinaweka kona za juu kushoto na chini kulia kwa sura. Ili kuchora duara, andika mstari Mzunguko (x, y, R), ambapo x, y, R ni uratibu wa kituo na eneo la duara, pia kwenye saizi. Ellipse ni ngumu zaidi kuchora, vigezo vingi zaidi hutumiwa kwa hii: Ellipse (x, y, BegA, EndA, RX, RY). Hapa x, y ni kituo sawa cha mviringo, na BegA na EndA zinaonyesha pembe ambayo itaanza na kumaliza safu ya duara. Vigezo RX, RY huweka eneo la mviringo kando ya shoka za x na y, mtawaliwa.
Hatua ya 9
Ikiwa una sura uliyopewa, ambayo ni rahisi kuteka katika sehemu tofauti, tumia taratibu za MoveTo na LineTo kwa hii. Kwanza, songa mshale wa sasa kwa hatua unayotaka: MoveTo (x, y). Kisha chora mstari kutoka hapo hadi kwenye hatua inayofuata LineTo (x1, y1) na tena chora laini moja kwa moja LineTo (x2, y2) na kadhalika mpaka upate umbo la asili.
Hatua ya 10
Mwisho wa kuchora nambari ya programu, funga hali ya picha na laini: karibu. Maliza mwili wa programu, kama kawaida, na neno mwisho. Sasa nambari inaweza kukusanywa na kuendeshwa kwa utekelezaji.
