Programski jezik Turbo Pascal omogućuje vam grafičko crtanje različitih oblika na ekranu. Bilo koji grafički objekt može se konstruirati pomoću točaka, linija, luka. Pascal koristi način rasterske grafike s razlučivošću zaslona 640 x 480. Crtanje se sastoji u postavljanju koordinata početne i krajnje točke objekta koji će se prikazivati grafičkim postupcima. Boja predmeta, debljina linija, kao i njihov stil, također su postavljeni kao parametri grafičkih postupaka. Da biste crtali pomoću softvera, morate povezati grafički modul Pascal.
Potrebno
Turbo Pascal programsko okruženje
Upute
Korak 1
Rastavite navedeni objekt crtanja na njegove sastavne elemente. Odaberite pojedinačne linije, lukove, krugove, pravokutnike i točke. To su oblici koji se mogu nacrtati pomoću Turbo Pascal postupaka.
Korak 2
Na samom početku programskog koda spojite grafički modul. Da biste to učinili, napišite sljedeći redak: koristi graf. Zatim stvorite cjelovite varijable za inicijalizaciju grafičkog načina rada: var gdet, gm: integer.
3. korak
U tijelu programa, nakon ključne riječi start, inicijalizirajte varijable, dodijelivši jednoj od njih nultu vrijednost, a drugoj vrijednost detect. Dalje, označite početak načina grafičkog crtanja, unesite redak obrasca: initgraph (gdet, gm, ''). Očistite uređaj za prikaz: cleardevice.
4. korak
Postavite boju pozadine za crtanje i boju crte predmeta koji će se crtati. Za to upotrijebite postupke SetBkColor (bijeli) i SetColor (8). Boja koja se postavlja označena je u zagradama. Ukupno Pascal koristi 16 boja, a svaka od njih navedena je brojem ili riječju iz posebne tablice boja.
Korak 5
Zamislite zaslon mreže s osi x slijeva udesno i osi y od vrha do dna. U ishodištu ovog koordinatnog sustava, odnosno u gornjem lijevom kutu zaslona, nalazi se koordinata (0, 0). Izračunajte koordinate željenog položaja prvog grafičkog objekta. Navedite sve koordinate za crtanje figura u ovom određenom sustavu.
Korak 6
Nacrtajte liniju pomoću linije postupka (x, y, x1, y1), gdje su koordinate x, y početna točka crte, a x1, y1 njezin kraj. Promijenite debljinu ili tip linije ako je potrebno. Da biste to učinili, upotrijebite postupak SetLineStyle (0, 0, NormWidth). Prvi parametar postupka može promijeniti crtu čineći je crticom ili isprekidanom crtom - promijenite ovaj broj u 1 ili 2. Treći parametar postavlja debljinu crta. Prema zadanim postavkama parametar NormWidth uvijek je postavljen - tanke linije, za debele linije postavite ThickWidth. Promijenjena vrsta crte izvući će se nakon pozivanja ovog postupka.
Korak 7
Postavite točku na zaslon pomoću postupka PutPixel (x, y, boja), ovdje su x i y također koordinate točke, a boja je njezina boja. Prije crtanja zatvorenog oblika možete postaviti njegovo ispunjavanje. Da biste to učinili, pozovite postupak SetFillStyle (EmptyFill, 0), gdje prvi parametar određuje čvrsti ispun oblika, a drugi boju ispune.
Korak 8
Pravokutni oblik crta se postupkom Pravokutnik (x, y, x2, y2) - koordinate postavljaju gornji lijevi i donji desni kut oblika. Da biste nacrtali krug, napišite liniju Krug (x, y, R), gdje su x, y, R koordinate središta i radijus kruga, također u pikselima. Teže je crtati elipsu, za to se koristi mnogo više parametara: Elipsa (x, y, BegA, EndA, RX, RY). Ovdje je x, y isto središte elipse, a BegA i EndA označavaju kut pod kojim započinje i završava eliptični luk. Varijable RX, RY postavljaju polumjer elipse duž osi x, odnosno y.
Korak 9
Ako imate zadani oblik, koji je najlakše nacrtati u odvojenim segmentima, za to koristite postupke MoveTo i LineTo. Prvo pomaknite trenutni kursor na željenu točku: MoveTo (x, y). Zatim povucite liniju od nje do sljedeće točke LineTo (x1, y1) i opet povucite ravnu liniju LineTo (x2, y2) i tako dalje dok ne dobijete izvorni oblik.
Korak 10
Na kraju crtanja u programskom kodu zatvorite grafički način rada linijom: closegraph. Završite tijelo programa, kao i obično, riječju end. Sada se kôd može kompajlirati i pokrenuti za izvršenje.
