Met de programmeertaal Turbo Pascal kun je grafisch verschillende vormen op het scherm tekenen. Elk grafisch object kan worden geconstrueerd met behulp van punten, lijnen, bogen. Pascal gebruikt een grafische rastermodus met een schermresolutie van 640 x 480. Tekenen bestaat uit het instellen van de coördinaten van het begin- en eindpunt van het object dat moet worden weergegeven voor de grafische procedures. De kleur van het object, de dikte van de lijnen, evenals hun stijl, worden ook ingesteld als parameters van de grafische procedures. Om softwarematig te tekenen, moet u de grafische module Pascal aansluiten.
Noodzakelijk
Turbo Pascal programmeeromgeving
instructies:
Stap 1
Demonteer het opgegeven tekenobject in zijn samenstellende elementen. Selecteer afzonderlijke lijnen, bogen, cirkels, rechthoeken en punten. Dit zijn de vormen die kunnen worden getekend met behulp van Turbo Pascal-procedures.
Stap 2
Sluit helemaal aan het begin van de programmacode de grafische module aan. Om dit te doen, schrijft u een regel als volgt: gebruikt grafiek. Maak vervolgens integer-variabelen om de grafische modus te initialiseren: var gdet, gm: integer.
Stap 3
In de hoofdtekst van het programma, na het begin-sleutelwoord, initialiseert u de variabelen, kent u een van hen een nulwaarde toe en de tweede de waarde van detecteren. Geef vervolgens het begin van de grafische tekenmodus aan, voer een regel van de vorm in: initgraph (gdet, gm, ''). Wis het weergaveapparaat: cleardevice.
Stap 4
Stel de achtergrondkleur voor tekenen en de lijnkleur van de te tekenen objecten in. Gebruik hiervoor de procedures SetBkColor (wit) en SetColor (8). De in te stellen kleur staat tussen haakjes aangegeven. In totaal gebruikt Pascal 16 kleuren, en elk van hen wordt gespecificeerd door een nummer of door een woord uit een speciale kleurentabel.
Stap 5
Stel je een raster voor met de x-as van links naar rechts en de y-as van boven naar beneden. Aan de oorsprong van dit coördinatensysteem, dat wil zeggen in de linkerbovenhoek van het scherm, is de coördinaat (0, 0). Bereken de coördinaten van de gewenste positie van het eerste grafische object. Specificeer alle coördinaten voor het tekenen van figuren in dit specifieke systeem.
Stap 6
Teken een lijn met behulp van de procedurelijn (x, y, x1, y1), waarbij de coördinaten x, y het beginpunt van de lijn zijn en x1, y1 het einde ervan. Wijzig indien nodig de lijndikte of het type. Gebruik hiervoor de procedure SetLineStyle (0, 0, NormWidth). De eerste parameter van de procedure kan de lijn wijzigen door er een streepje of een stippellijn van te maken - verander dit getal in 1 of 2. De derde parameter stelt de dikte van de lijnen in. Standaard is de parameter NormWidth altijd ingesteld - dunne lijnen, voor dikke lijnen stelt u ThickWidth in. Het gewijzigde lijntype wordt getekend na het aanroepen van deze procedure.
Stap 7
Plaats een punt op het scherm met behulp van de PutPixel (x, y, kleur) procedure, hier zijn x en y ook de coördinaten van het punt, en kleur is de kleur ervan. Voordat u een gesloten vorm tekent, kunt u de vulling instellen. Roep hiervoor de procedure SetFillStyle (EmptyFill, 0) aan, waarbij de eerste parameter de effen vulling van de vorm aangeeft en de tweede de vulkleur.
Stap 8
Een rechthoekige vorm wordt getekend met behulp van de procedure Rechthoek (x, y, x2, y2) - de coördinaten bepalen de linkerboven- en rechterbenedenhoek van de vorm. Om een cirkel te tekenen, schrijft u de lijn Cirkel (x, y, R), waarbij x, y, R de coördinaten van het middelpunt en de straal van de cirkel zijn, ook in pixels. Een ellips is moeilijker te tekenen, hiervoor worden veel meer parameters gebruikt: Ellips (x, y, BegA, EndA, RX, RY). Hier is x, y hetzelfde middelpunt van de ellips en geven BegA en EndA de hoek aan waaronder de elliptische boog moet beginnen en eindigen. De variabelen RX, RY stellen de straal van de ellips langs respectievelijk de x- en y-as in.
Stap 9
Als u een bepaalde vorm heeft die het gemakkelijkst in afzonderlijke segmenten te tekenen is, gebruikt u hiervoor de procedures MoveTo en LineTo. Verplaats eerst de huidige cursor naar het gewenste punt: MoveTo (x, y). Trek er vervolgens een lijn van naar het volgende punt LineTo (x1, y1) en teken opnieuw een rechte lijn LineTo (x2, y2) enzovoort totdat je de oorspronkelijke vorm krijgt.
Stap 10
Sluit aan het einde van het tekenen in de programmacode de grafische modus met de regel: closegraph. Beëindig de hoofdtekst van het programma, zoals gewoonlijk, met het woord einde. Nu kan de code worden gecompileerd en uitgevoerd voor uitvoering.
