Turbo Pascal programmēšanas valoda ļauj grafiski uz ekrāna uzzīmēt dažādas formas. Jebkuru grafisko objektu var konstruēt, izmantojot punktus, līnijas, lokus. Paskāls izmanto rastra grafikas režīmu ar ekrāna izšķirtspēju 640 x 480. Zīmēšana sastāv no parādāmā objekta sākuma un beigu punktu koordinātu iestatīšanas grafiskajām procedūrām. Objekta krāsa, līniju biezums, kā arī to stils ir iestatīti arī kā grafisko procedūru parametri. Lai zīmētu, izmantojot programmatūru, jums jāpievieno Pascal grafikas modulis.
Nepieciešams
Turbo Pascal programmēšanas vide
Instrukcijas
1. solis
Izjauciet norādīto zīmēšanas objektu tā sastāvdaļās. Atlasiet atsevišķas līnijas, lokus, apļus, taisnstūrus un punktus. Šīs ir formas, kuras var uzzīmēt, izmantojot Turbo Pascal procedūras.
2. solis
Programmas koda pašā sākumā pievienojiet grafikas moduli. Lai to izdarītu, uzrakstiet šādu rindu: izmanto grafiku. Pēc tam izveidojiet veselu skaitļu mainīgos, lai inicializētu grafikas režīmu: var gdet, gm: integer.
3. solis
Programmas pamattekstā pēc sākuma atslēgvārda inicializējiet mainīgos, piešķirot vienam no tiem nulles vērtību, bet otrajam - noteikšanas vērtību. Pēc tam norādiet grafiskā zīmēšanas režīma sākumu, ievadiet formas līniju: initgraph (gdet, gm, ''). Notīriet displeja ierīci: notīrīt ierīci.
4. solis
Iestatiet zīmēšanas fona krāsu un zīmējamo objektu līnijas krāsu. Tam izmantojiet procedūras SetBkColor (balta) un SetColor (8). Iestatāmā krāsa ir norādīta iekavās. Kopumā Paskāls izmanto 16 krāsas, un katra no tām ir norādīta vai nu ar skaitli, vai ar vārdu no īpašas krāsu tabulas.
5. solis
Iedomājieties ekrāna režģi ar x asi no kreisās uz labo pusi un y asi no augšas uz leju. Šīs koordinātu sistēmas sākumpunktā, tas ir, ekrāna augšējā kreisajā stūrī ir koordināta (0, 0). Aprēķiniet pirmā grafiskā objekta vēlamās pozīcijas koordinātas. Norādiet visas figūru zīmēšanas koordinātas šajā konkrētajā sistēmā.
6. solis
Zīmējiet līniju, izmantojot procedūru līniju (x, y, x1, y1), kur koordinātas x, y ir līnijas sākuma punkts, un x1, y1 ir tās beigas. Ja nepieciešams, mainiet līnijas biezumu vai veidu. Lai to izdarītu, izmantojiet procedūru SetLineStyle (0, 0, NormWidth). Pirmais procedūras parametrs var mainīt līniju, padarot to par domuzīmi vai punktētu līniju - mainiet šo skaitli uz 1 vai 2. Trešais parametrs nosaka līniju biezumu. Pēc noklusējuma parametrs NormWidth vienmēr ir iestatīts - plānas līnijas, biezām līnijām - ThickWidth. Mainītais līnijas tips tiks uzzīmēts pēc šīs procedūras izsaukšanas.
7. solis
Novietojiet punktu uz ekrāna, izmantojot PutPixel (x, y, color) procedūru, šeit x un y ir arī punkta koordinātas, un krāsa ir tā krāsa. Pirms aizvērtas formas zīmēšanas varat iestatīt tās aizpildījumu. Lai to izdarītu, izsauciet procedūru SetFillStyle (EmptyFill, 0), kur pirmais parametrs norāda formas cieto aizpildījumu, bet otrais - aizpildījuma krāsu.
8. solis
Izmantojot taisnstūra (x, y, x2, y2) procedūru, tiek uzzīmēta taisnstūra forma - koordinātas nosaka formas augšējo kreiso un apakšējo labo stūri. Lai uzzīmētu apli, uzrakstiet līniju Circle (x, y, R), kur x, y, R ir centra koordinātas un apļa rādiuss, arī pikseļos. Elipsi ir grūtāk uzzīmēt, tam tiek izmantoti daudz vairāk parametru: Elipss (x, y, BegA, EndA, RX, RY). Šeit x, y ir vienāds elipses centrs, un BegA un EndA norāda leņķi, kurā sākt un beigt elipsveida loku. Mainīgie RX, RY nosaka elipses rādiusu attiecīgi pa x un y asi.
9. solis
Ja jums ir dota forma, kuru visvieglāk ir uzzīmēt atsevišķos segmentos, izmantojiet MoveTo un LineTo procedūras. Vispirms pārvietojiet pašreizējo kursoru uz vajadzīgo punktu: MoveTo (x, y). Tad velciet no tā līniju uz nākamo punktu LineTo (x1, y1) un atkal uzzīmējiet taisnu līniju LineTo (x2, y2) un tā tālāk, līdz iegūstat sākotnējo formu.
10. solis
Zīmēšanas beigās programmas kodā aizveriet grafikas režīmu ar līniju: closegraph. Pabeidziet programmas pamattekstu, kā parasti, ar vārdu end. Tagad kodu var apkopot un palaist izpildei.
