Programmeringsspråket Turbo Pascal lar deg tegne forskjellige former grafisk på skjermen. Ethvert grafisk objekt kan konstrueres ved hjelp av punkter, linjer, buer. Pascal bruker en rastergrafikkmodus med en skjermoppløsning på 640 x 480. Tegning består i å sette koordinatene til start- og sluttpunktet til objektet som skal vises til de grafiske prosedyrene. Objektets farge, tykkelsen på linjene, samt stilen, er også satt som parametere for de grafiske prosedyrene. For å tegne ved hjelp av programvare, må du koble til Pascal-grafikkmodulen.
Nødvendig
Turbo Pascal programmeringsmiljø
Bruksanvisning
Trinn 1
Demonter det angitte tegneobjektet i dets bestanddeler. Velg individuelle linjer, buer, sirkler, rektangler og punkter. Dette er formene som kan tegnes ved hjelp av Turbo Pascal-prosedyrer.
Steg 2
Helt i begynnelsen av programkoden kobler du til grafikkmodulen. For å gjøre dette, skriv en linje som dette: bruker graf. Deretter lager du heltallvariabler for å initialisere grafikkmodus: var gdet, gm: heltall.
Trinn 3
Initialiser variablene i hoveddelen av programmet, etter start-nøkkelordet, og tildel en av dem en nullverdi, og den andre verdien for oppdag. Deretter indikerer du starten på den grafiske tegningsmodusen, skriv inn en linje i skjemaet: initgraph (gdet, gm, ''). Tøm skjermenheten: rydd enhet.
Trinn 4
Angi bakgrunnsfargen for tegning og linjefargen til objektene som skal tegnes. Bruk prosedyrene SetBkColor (hvit) og SetColor (8) for dette. Fargen som skal stilles er angitt i parentes. Totalt bruker Pascal 16 farger, og hver av dem er spesifisert enten med et tall eller et ord fra en spesiell fargetabell.
Trinn 5
Se for deg et skjermbilde med x-aksen fra venstre til høyre og y-aksen fra topp til bunn. Ved opprinnelsen til dette koordinatsystemet, det vil si øverst til venstre på skjermen, er koordinaten (0, 0). Beregn koordinatene til ønsket posisjon for det første grafiske objektet. Spesifiser alle koordinatene for tegning av figurer i dette systemet.
Trinn 6
Tegn en linje ved hjelp av prosedyrelinjen (x, y, x1, y1), hvor koordinatene x, y er startpunktet for linjen, og x1, y1 er slutten. Endre linjetykkelse eller type om nødvendig. For å gjøre dette, bruk prosedyren SetLineStyle (0, 0, NormWidth). Den første parameteren i prosedyren kan endre linjen ved å gjøre den til en strek eller en stiplet linje - endre dette tallet til 1 eller 2. Den tredje parameteren angir tykkelsen på linjene. Som standard er NormWidth-parameteren alltid satt - tynne linjer, for tykke linjer sett ThickWidth. Den endrede linjetypen blir tegnet etter at du har kalt denne prosedyren.
Trinn 7
Plasser et punkt på skjermen ved hjelp av PutPixel (x, y, farge) prosedyre, her er x og y også koordinatene til punktet, og fargen er fargen. Før du tegner en lukket form, kan du angi fyllingen. For å gjøre dette, ring SetFillStyle (EmptyFill, 0) -prosedyren, der den første parameteren spesifiserer den faste fyllingen av formen, og den andre angir fyllfargen.
Trinn 8
En rektangulær form tegnes ved hjelp av prosedyren Rektangel (x, y, x2, y2) - koordinatene angir øvre venstre og nedre høyre hjørne av formen. For å tegne en sirkel, skriv linjen Sirkel (x, y, R), der x, y, R er koordinatene til sentrum og sirkelens radius, også i piksler. En ellipse er vanskeligere å tegne, mange flere parametere brukes til dette: Ellipse (x, y, BegA, EndA, RX, RY). Her er x, y det samme sentrum av ellipsen, og BegA og EndA indikerer vinkelen der den elliptiske buen skal startes og avsluttes. Variablene RX, RY setter radiusen til ellipsen langs henholdsvis x- og y-aksen.
Trinn 9
Hvis du har en gitt form, som er enklest å tegne i separate segmenter, kan du bruke MoveTo og LineTo prosedyrene for dette. Først flytter du den gjeldende markøren til det punktet du ønsker: Flytt til (x, y). Tegn deretter en linje fra den til neste punkt LineTo (x1, y1) og trekk igjen en rett linje LineTo (x2, y2) og så videre til du får den opprinnelige formen.
Trinn 10
På slutten av tegningen i programkoden lukker du grafikkmodusen med linjen: closegraph. Avslutt hoveddelen av programmet, som vanlig, med ordet slutt. Nå kan koden kompileres og kjøres for kjøring.
