Turbo Pascal programavimo kalba leidžia grafiškai piešti įvairias figūras ekrane. Bet kurį grafinį objektą galima sukonstruoti naudojant taškus, linijas, lankus. „Pascal“naudoja rastrinės grafikos režimą, kurio ekrano skiriamoji geba yra 640 x 480. Piešimas susideda iš rodomo objekto pradžios ir pabaigos taškų koordinačių nustatymo grafinėms procedūroms. Objekto spalva, linijų storis ir jų stilius taip pat nustatomi kaip grafinių procedūrų parametrai. Norėdami piešti naudodami programinę įrangą, turite prijungti „Pascal“grafikos modulį.
Būtinas
„Turbo Pascal“programavimo aplinka
Nurodymai
1 žingsnis
Išardykite nurodytą piešimo objektą į jį sudarančius elementus. Pasirinkite atskiras linijas, lankus, apskritimus, stačiakampius ir taškus. Tai formos, kurias galima nupiešti naudojant „Turbo Pascal“procedūras.
2 žingsnis
Pačioje programos kodo pradžioje prijunkite grafikos modulį. Norėdami tai padaryti, parašykite tokią eilutę: naudoja grafiką. Tada sukurkite sveikųjų skaičių kintamuosius, kad inicializuotumėte grafikos režimą: var gdet, gm: integer.
3 žingsnis
Programos tekste po raktinio žodžio pradžia inicijuokite kintamuosius, priskirdami vieną iš jų nulinę vertę, o antrasis - aptikimo vertę. Tada nurodykite grafinio piešimo režimo pradžią, įveskite formos eilutę: initgraph (gdet, gm, ''). Išvalykite ekrano įrenginį: išvalykite įrenginį.
4 žingsnis
Nustatykite piešimo fono spalvą ir piešiamų objektų linijos spalvą. Tam atlikite procedūras „SetBkColor“(balta) ir „SetColor“(8). Nustatoma spalva nurodoma skliausteliuose. Iš viso „Pascal“naudoja 16 spalvų, ir kiekviena iš jų nurodoma skaičiumi arba žodžiu iš specialios spalvų lentelės.
5 žingsnis
Įsivaizduokite ekrano tinklelį, kurio x ašis yra iš kairės į dešinę, o y ašis - iš viršaus į apačią. Šios koordinačių sistemos ištakose, tai yra viršutiniame kairiajame ekrano kampe, yra koordinatė (0, 0). Apskaičiuokite norimo pirmojo grafinio objekto padėties koordinates. Nurodykite visas figūrų piešimo koordinates šioje konkrečioje sistemoje.
6 žingsnis
Nubraukite tiesę naudodami procedūrų tiesę (x, y, x1, y1), kur koordinatės x, y yra pradinis tiesės taškas, o x1, y1 yra jos pabaiga. Jei reikia, pakeiskite linijos storį ar tipą. Norėdami tai padaryti, naudokite procedūrą „SetLineStyle“(0, 0, „NormWidth“). Pirmasis procedūros parametras gali pakeisti liniją, padarydamas ją brūkšniu, arba punktyrine linija - pakeiskite šį skaičių į 1 arba 2. Trečiasis parametras nustato eilučių storį. Pagal numatytuosius nustatymus visada nustatomas parametras NormWidth - plonos linijos, storoms - ThickWidth. Pakeistas linijos tipas bus nupieštas iškvietus šią procedūrą.
7 žingsnis
Taikykite ekraną naudodami „PutPixel“(x, y, spalva) procedūrą, čia x ir y taip pat yra taško koordinatės, o spalva - jo spalva. Prieš piešdami uždarą figūrą, galite nustatyti jos užpildymą. Norėdami tai padaryti, iškvieskite „SetFillStyle“(„EmptyFill“, 0) procedūrą, kur pirmasis parametras nurodo vientisą formos užpildymą, o antrasis - užpildo spalvą.
8 žingsnis
Stačiakampė forma brėžiama naudojant stačiakampio (x, y, x2, y2) procedūrą - koordinatės nustato viršutinį kairįjį ir apatinį dešinįjį figūros kampą. Norėdami nupiešti apskritimą, parašykite tiesę Apskritimas (x, y, R), kur x, y, R yra centro koordinatės ir apskritimo spindulys, taip pat pikseliais. Elipsę nupiešti sunkiau, tam naudojama daug daugiau parametrų: Elipsė (x, y, BegA, EndA, RX, RY). Čia x, y yra tas pats elipsės centras, o BegA ir EndA nurodo kampą, kuriuo reikia pradėti ir baigti elipsės lanką. Kintamieji RX, RY nustato elipsės spindulį atitinkamai išilgai x ir y ašių.
9 žingsnis
Jei turite nurodytą formą, kurią lengviausia piešti atskirais segmentais, tam naudokite „MoveTo“ir „LineTo“procedūras. Pirmiausia perkelkite dabartinį žymeklį į norimą tašką: „MoveTo“(x, y). Tada nubrėžkite nuo jo liniją iki kito taško „LineTo“(x1, y1) ir vėl nubrėžkite tiesią liniją „LineTo“(x2, y2) ir taip toliau, kol gausite pradinę formą.
10 žingsnis
Programos kodo piešimo pabaigoje uždarykite grafikos režimą eilute: closegraph. Pabaikite programos turinį, kaip įprasta, žodžiu „pabaiga“. Dabar kodą galima sukompiliuoti ir paleisti vykdyti.
