Med programmeringsspråket Turbo Pascal kan du grafiskt rita olika former på skärmen. Varje grafiskt objekt kan konstrueras med hjälp av punkter, linjer, bågar. Pascal använder ett rastergrafikläge med en skärmupplösning på 640 x 480. Ritningen består i att ställa in koordinaterna för start- och slutpunkterna för objektet som ska visas för de grafiska procedurerna. Objektets färg, linjernas tjocklek, liksom deras stil, ställs också in som parametrar för de grafiska procedurerna. För att rita med hjälp av programvara måste du ansluta Pascal-grafikmodulen.
Nödvändig
Turbo Pascal programmeringsmiljö
Instruktioner
Steg 1
Demontera det angivna ritobjektet i dess beståndsdelar. Välj enskilda linjer, bågar, cirklar, rektanglar och punkter. Det här är de former som kan ritas med hjälp av Turbo Pascal-procedurer.
Steg 2
Anslut grafikmodulen i början av programkoden. För att göra detta, skriv en rad så här: använder diagram. Skapa sedan heltalsvariabler för att initiera grafikläge: var gdet, gm: heltal.
Steg 3
Initiera variablerna i programmets kropp, efter början nyckelordet, tilldela en av dem ett nollvärde och det andra värdet för detektering. Ange sedan början på det grafiska ritningsläget, ange en rad i formen: initgraph (gdet, gm, ''). Rensa displayenheten: cleardevice.
Steg 4
Ställ in bakgrundsfärgen för ritning och linjefärgen för de objekt som ska ritas. Använd procedurerna SetBkColor (vit) och SetColor (8) för detta. Färgen som ska ställas in visas inom parentes. Totalt använder Pascal 16 färger, och var och en av dem anges antingen med ett nummer eller genom ett ord från en speciell färgtabell.
Steg 5
Föreställ dig en skärmbild med x-axeln från vänster till höger och y-axeln från topp till botten. I början av detta koordinatsystem, det vill säga i skärmens övre vänstra hörn, är koordinaten (0, 0). Beräkna koordinaterna för önskad position för det första grafiska objektet. Ange alla koordinater för att rita figurer i just detta system.
Steg 6
Rita en linje med procedurlinjen (x, y, x1, y1), där koordinaterna x, y är startpunkten för linjen, och x1, y1 är dess slut. Ändra linjetjockleken eller typ vid behov. För att göra detta använder du proceduren SetLineStyle (0, 0, NormWidth). Den första parametern i proceduren kan ändra linjen genom att göra den till en streck eller en prickad linje - ändra detta nummer till 1 eller 2. Den tredje parametern ställer in linjernas tjocklek. Som standard är NormWidth-parametern alltid inställd - tunna linjer, för tjocka linjer som ThickWidth. Den ändrade linjetypen dras efter att ha anropat denna procedur.
Steg 7
Placera en punkt på skärmen med PutPixel (x, y, färg) -proceduren, här är x och y också koordinaterna för punkten, och färgen är dess färg. Innan du ritar en sluten form kan du ställa in dess fyllning. För att göra detta, anropa SetFillStyle (EmptyFill, 0) -proceduren, där den första parametern anger formens fasta fyllning och den andra anger fyllningsfärgen.
Steg 8
En rektangulär form ritas med proceduren Rektangel (x, y, x2, y2) - koordinaterna anger formens övre vänstra och nedre högra hörn. För att rita en cirkel, skriv linjen Cirkel (x, y, R), där x, y, R är koordinaterna för centrum och cirkelns radie, även i pixlar. En ellips är svårare att rita, många fler parametrar används för detta: Ellipse (x, y, BegA, EndA, RX, RY). Här är x, y samma centrum för ellipsen, och BegA och EndA anger vinkeln vid vilken den elliptiska bågen ska startas och avslutas. Variablerna RX, RY ställer in ellipsens radie längs x- och y-axlarna.
Steg 9
Om du har en given form, som är lättast att rita i separata segment, använd MoveTo- och LineTo-procedurerna för detta. Först flyttar du den aktuella markören till önskad punkt: Flytta till (x, y). Rita sedan en linje från den till nästa punkt LineTo (x1, y1) och rita igen en rak linje LineTo (x2, y2) och så vidare tills du får den ursprungliga formen.
Steg 10
I slutet av ritningen i programkoden stänger du grafikläget med linjen: closegraph. Avsluta programmet som vanligt med ordet slutet. Nu kan koden sammanställas och köras för körning.
