Programski jezik Turbo Pascal omogućava 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 rasterski grafički način rada s rezolucijom 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
Instrukcije
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 povežite grafički modul. Da biste to učinili, napišite sljedeći redak: koristi graf. Dalje, kreirajte cjelobrojne varijable za inicijalizaciju grafičkog načina rada: var gdet, gm: integer.
Korak 3
U tijelu programa, nakon ključne riječi start, inicijalizirajte varijable, dodijelivši jednoj od njih nultu vrijednost, a drugoj vrijednost detect. Dalje, naznačite početak grafičkog načina crtanja, unesite red obrasca: initgraph (gdet, gm, ''). Očistite uređaj za prikaz: cleardevice.
Korak 4
Postavite boju pozadine za crtanje i boju linije predmeta koji se crtaju. Za to koristite postupke SetBkColor (bijeli) i SetColor (8). Boja koja se postavlja označena je u zagradama. Ukupno, Pascal koristi 16 boja, a svaka od njih je navedena brojem ili riječju iz posebne tabele boja.
Korak 5
Zamislite ekran zaslona s osi x slijeva udesno i osi y od vrha do dna. Na početku ovog koordinatnog sistema, odnosno u gornjem lijevom uglu ekrana, 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 sistemu.
Korak 6
Nacrtajte liniju pomoću linije procedura (x, y, x1, y1), gdje su koordinate x, y početna točka linije, a x1, y1 njen kraj. Promenite debljinu linije ili tip ako je potrebno. Da biste to učinili, koristite postupak SetLineStyle (0, 0, NormWidth). Prvi parametar postupka može promijeniti liniju čineći je crticom ili isprekidanom crtom - promijenite ovaj broj u 1 ili 2. Treći parametar postavlja debljinu linija. Po defaultu je parametar NormWidth uvijek postavljen - tanke linije, za debele linije postavite ThickWidth. Promijenjeni tip linije bit će izvučen nakon pozivanja ove procedure.
Korak 7
Postavite točku na ekran pomoću postupka PutPixel (x, y, boja), ovdje su x i y također koordinate točke, a boja je njena boja. Prije crtanja zatvorenog oblika možete postaviti njegovo popunjavanje. Da biste to učinili, pozovite proceduru SetFillStyle (EmptyFill, 0), gdje prvi parametar navodi čvrsto ispunjenje oblika, a drugi boju ispune.
Korak 8
Pravougaoni oblik se crta pomoću postupka 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 treba započeti i završiti eliptični luk. Varijable RX, RY postavljaju radijus 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 ponovo 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.
